Текущий архив: 2003.02.24;
Скачать: CL | DM;

Вниз

Пример для 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 ©   (2003-02-14 00:43) [2]

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

---

Страницы: 1 вся ветка

Текущий архив: 2003.02.24;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.02 c