Оперативная подсказка

         Как закрыть окно помощи при выходе из программы

         Вывод многострочной быстрой подсказки (hint)

         Вывод на форму URL


Как закрыть окно помощи при выходе из программы

В следующем примере показано как закрыть окно помощи если пользователь закончил приложение.

procedure TMainForm.FormClose(Sender: TObject; 
       var Action: TCloseAction);
begin
  Winhelp(Handle, 'WINHELP.HLP', HELP_QUIT, 0);
  Action := caFree;
end;

Вывод многострочной быстрой подсказки (hint)

procedure TForm1.FormCreate(Sender: TObject);
begin
  Form1.Button1.Hint:='Многострочная'+chr(13)+chr(10)+'подсказка';
  Form1.Button1.ShowHint:=True;
end;

Вывод на форму URL

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.
main_back.gif (3425 bytes)
Используются технологии uCoz