| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Перехват отображения Hint а [D6, WinXP]

Th ©   (2003-02-10 18:36:00) 

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

---

Th   (2003-02-10 18:54:00) [1]

THanks!

---

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

application.onhint F1 ???

---

mrcat   (2003-02-10 18:40:00) [3]

var
...
MyHint: shortstring;

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

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

---

Наверх