![]() |
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.
|