[Back to DELPHI SWAG index]  [Back to Main SWAG index]  [Original]

     procedure TForm1.HelpSearch(Sender: TObject);
     var
        HelpMacro:pchar;
     begin
          HelpMacro:='Search()';
          with Application do begin
               Application.HelpContext(1);
               HelpCommand(HELP_COMMAND,longint(HelpMacro));
          end;
     end;
        

[Back to DELPHI SWAG index]  [Back to Main SWAG index]  [Original]