[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]