Форум: "Основная";
Текущий архив: 2003.02.17;
Скачать: [xml.tar.bz2];

Вниз

Перехват отображения Hint а   Найти похожие ветки 

← →
Th   (2003-02-10 18:36) [0]

Вопрос: как перехватить отображение hint"а всех контролов формы. Задача довольно прозрачная: есть некоторое информационное окошко в которое необходимо выводить Hint, когда он появляется у любого контрола.

---

← →
mrcat   (2003-02-10 18:40) [1]

var
...
MyHint: shortstring;

procedure TThForm.DisplayHint(Sender: TObject);
begin
MyHint := GetLongHint(Application.Hint);
end;

procedure TThForm.FormCreate(Sender: TObject);
begin
Application.OnHint := DisplayHint;
end;

---

← →
icWasya   (2003-02-10 18:41) [2]

application.onhint F1 ???

---

← →
Th   (2003-02-10 18:54) [3]

THanks!

---

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

Форум: "Основная";
Текущий архив: 2003.02.17;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.009 c