Вот код для трех стандартных пунктов меню "Help":
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; |
- Neil [000770]