Форум: "Начинающим";
Текущий архив: 2006.09.24;
Скачать: [xml.tar.bz2];
ВнизОтображение текста в 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 вся ветка
Форум: "Начинающим";
Текущий архив: 2006.09.24;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.047 c