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

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

Как показать Hint c текстом из панели StausBar'a? [D5, WinXP]

SerKom ©   (2005-01-19 05:46:00) 

Есть StausBar, содержащий несколько панелей, в некоторых из них текст полностью не виден (не помещается по ширине) - как показывать всплывающую подсказку (чтобы текст полностью прочитать можно было), когда пользователь наводит курсор мыши на такие панели?

---

SerKom   (2005-01-19 11:22:00) [1]

Спасибо.

---

RDen   (2005-01-19 08:45:00) [2]

мона типа:

procedure TForm1.StatusBar1MouseMove(Sender: TObject; Shift: TShiftState;
 X, Y: Integer);
begin
 if x <= StatusBar1.Panels[0].Width Then
 begin
  StatusBar1.ShowHint := True;
  StatusBar1.Hint := StatusBar1.Panels[0].Text;
 end
  else StatusBar1.ShowHint :=False

...для остальных панелей
end;

---

Александр Иванов   (2005-01-19 08:34:00) [3]

Самому написать код в onHint

---

Наверх