Пример для Chlavik

← →
jack128 © (2003-02-14 00:12) [0]

var h : THintWindow;

// показать hint
procedure TForm1.Button1Click(Sender: TObject);
var r : TRect;
begin
h.Color := clWhite;
r.Left := 100;r.Top := 100;r.Right := 200; r.Bottom := 200;
h.ActivateHint(r,"My hint");
h.Show;
end;
// создать hintwindow
procedure TForm1.FormCreate(Sender: TObject);
begin
h := THintWindow.Create(Self);
end;

// Скрыть hint
procedure TForm1.Button2Click(Sender: TObject);
begin
h.ReleaseHandle;
end;

← →
Chlavik © (2003-02-14 00:27) [1]

Chalvik пример не смотрел ... :-)

jack128 пример не писал

Пример для Chlavik Найти похожие ветки