![]() |
![]() ![]() ![]() |
acFormHelp component.
|
type
|
TacFormHelpOnShowEvent = procedure(Sender: TObject; HelpControl: TControl; var HelpMessage: string) of object;
|
|
property OnShow: TacFormHelpOnShowEvent;
|
The OnShow event occurs before appearing of the popup window with context-sensitive help. Write the OnShow event handler to make some special processing before the help window became visible on screen.
|
|
Use HelpControl parameter to get pointer to control from wich with the context-sensitive help was taken.
|
|
Use HelpMessage parameter to determinate or change the text of context-sensitive help which is about to be displayed.
|
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.
|