Как закрыть help при закрытии приложения?
Falk0ner, вс, 06/07/2008 - 15:35.
procedure TForm1.FormDestroy(Sender: TObject);
begin
Application.HelpCommand(HELP_QUIT, 0);
end;
begin
Application.HelpCommand(HELP_QUIT, 0);
end;
Взято с сайта http://www.swissdelphicenter.ch/en/tipsindex.php
procedure TMainForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Winhelp(Handle, 'WINHELP.HLP', HELP_QUIT, 0);
Action := caFree;
end;
begin
Winhelp(Handle, 'WINHELP.HLP', HELP_QUIT, 0);
Action := caFree;
end;
Отправить комментарий