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

        check.gif (991 bytes) Как закрыть окно помощи при выходе из программы

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

        check.gif (991 bytes) Вывод на форму 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.




Hosted by uCoz