OnShow property
|
OnShow property
|
Previous Top Next |
| FormHelp component.
|
| type
|
| TFormHelpOnShowEvent = procedure(Sender: TObject; HelpControl: TControl; var HelpMessage: String) of object;
|
|
|
| property OnShow: TFormHelpOnShowEvent;
|
| The OnShow event occurs before popup window with context-sensitive help became visible. Write the OnShow event handler to make some special processing before the help window appears on screen.
|
| procedure TForm1.FormHelpShow(Sender: TObject; HelpControl: TControl; var HelpMessage: String);
|
| begin
|
| if HelpControl.Name = 'Edit2' then
|
| begin
|
| FormHelp.DelayTime := 2000; // Two seconds delay
|
| FormHelp.Color := $00FFFFEC;
|
| FormHelp.Font.Name := 'Arial';
|
| FormHelp.Font.Size := 8;
|
| end;
|
| if HelpMessage = '' then HelpMessage := 'Hello World!';
|
| end;
|
| OnHide event.
|