Как закрыть help при закрытии приложения? |
Previous Top Next |
Code: |
procedure TForm1.FormDestroy(Sender: TObject); begin Application.HelpCommand(HELP_QUIT, 0); end; |
©Drkb::04545
Взято с сайта http://www.swissdelphicenter.ch/en/tipsindex.php
Code: |
procedure TMainForm.FormClose(Sender: TObject; var Action: TCloseAction); begin Winhelp(Handle, 'WINHELP.HLP', HELP_QUIT, 0); Action := caFree; end; |
©Drkb::04546