Отображение текста в 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 это не то!!!

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

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

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