Скачать: CL | DM;

Отображение текста в StatusBar   Найти похожие ветки 

← →
_Mat_   (2006-09-04 21:03) [0]

Добрый вечер!!! Подскажите как сделать так, чтобы при наведении на пункт меню мышкой, в StatusBar"е отображался какой либо текст?
Спасибо!!!

---

← →
Virgo_Style ©   (2006-09-04 21:17) [1]

Если мне не изменяет, надо задать хинты пунктам меню, остальное само. Ну и ShowHint выставить.

---

← →
Loginov Dmitry ©   (2006-09-04 21:30) [2]

кидаешь на форму TApplicationEvents, и в событии OnHint пишешь:


procedure TForm1.ApplicationEvents1Hint(Sender: TObject);
begin
 if Application.Hint <> "" then
   StatusBar1.SimpleText := Application.Hint
 else
   StatusBar1.SimpleText := "Рульная програ!";
end;


Можешь также поюзать свойство TStatusBa.AutoHint

---

← →
Virgo_Style ©   (2006-09-04 21:39) [3]

Loginov Dmitry ©   (04.09.06 21:30) [2]

Ага, точно, к [1] еще надо AutoHint в true. И, кажется, при наведении мышкой на меню не получится. Впрочем, опять не проверял, возможно, что опять зря %-)

---

← →
_Mat_   (2006-09-04 22:02) [4]

Ну так а как с мышкой то быть, ведь мне надо при наведении на пункт меню чтобы отображался текст в StatusBar! А Hint это не то!!!

---

← →
Loginov Dmitry ©   (2006-09-04 22:59) [5]

> Ну так а как с мышкой то быть, ведь мне надо при наведении
> на пункт меню чтобы отображался текст в StatusBar! А Hint
> это не то!!!


У пунктов меню TMenuItem есть свойство Hint. Заполняй его, если хочешь чтобы при наведении на пункт меню чтобы отображался текст в StatusBar

---

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

Скачать: CL | DM;



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