Как использовать файлы справки?

Previous  Top  Next

    
 

 

 

 

Code:

{ First we need to tell the Application object the name

of the Help file and where to locate it. }

 

Application.HelpFile := ExtractFilePath(Application.ExeName) + 'YourHelpFile.hlp';

 

{ To Show a help file's content tab: }

Application.HelpCommand(HELP_CONTENTS, 0);

{  To display a specific topic of your help file: }

Application.HelpJump('TApplication_HelpJump');

 

©Drkb::04543

Взято с сайта http://www.swissdelphicenter.ch/en/tipsindex.php


Вот код для трех стандартных пунктов меню "Help":

 

Code:

procedure TForm1.Contents1Click(Sender: TObject);

begin

Application.HelpCommand(HELP_CONTENTS, 0);

end;

 

procedure TForm1.SearchforHelpOn1Click(Sender: TObject);

begin

Application.HelpCommand(HELP_PARTIALKEY, 0);

end;

 

procedure TForm1.HowtoUseHelp1Click(Sender: TObject);

begin

Application.HelpCommand(HELP_HELPONHELP, 0);

end;

 

 

 

 

©Drkb::04544

       

Взято с http://delphiworld.narod.ru