Как закрыть окно помощи при выходе из программы
Вывод многострочной быстрой подсказки (hint)
В следующем примере показано как закрыть окно помощи если пользователь закончил приложение.
procedure TMainForm.FormClose(Sender: TObject; var Action: TCloseAction); begin Winhelp(Handle, 'WINHELP.HLP', HELP_QUIT, 0); Action := caFree; end;
procedure TForm1.FormCreate(Sender: TObject); begin Form1.Button1.Hint:='Многострочная'+chr(13)+chr(10)+'подсказка'; Form1.Button1.ShowHint:=True; end;
uses shellapi;
... URLLabel1: TLabel; ...
procedure TForm1.Label1Click(Sender: TObject); var TempString : array[0..79] of char; begin StrPCopy(TempString,Label1.Caption); OpenObject(TempString); ShellExecute(0, Nil, TempString, Nil, Nil, SW_NORMAL); end; //Метка URLLabbel1 должна содержать адрес URL.