Как показать Hint любого объекта на StatusBar?

← →
worldmen (2008-04-24 15:59) [0]

Как показать Hint любого объекта на StatusBar ?
Я знал, но забыл. Там надо както изменить ParentShowHint и ShowHint объектов и самой формы, уже по разному изменял - не получается.

← →
Palladin © (2008-04-24 16:00) [1]

запиши куда нибудь на листочек, что бы не забывать

TApplication.OnHint

← →
{RASkov} © (2008-04-24 16:52) [2]

> Я знал, но забыл.

:) типа, не бейти меня)

procedure TForm1.Create(Sender: TObject); begin Application.OnHint:=ShowHint; end; procedure TForm1.ShowHint; begin if Length(Application.Hint) > 0 then begin StatusBar.SimplePanel := True; StatusBar.SimpleText := Application.Hint; end else StatusBar.SimplePanel := False; end;

← →
worldmen (2008-04-25 09:41) [3]

Зачем так заморачиваться. Я наконецто нашел как это делается. Чтобы в StatusBar выводило Hint объекта надо просто в свойстве StatusBar.AutoHint поставить True и все. После этого в любом объекте в свойстве Hint=Сторока 1|Строка 2 - на StatusBar будет выводить строку, которая после вертикальной черты.
Записали?

> {RASkov} © (24.04.08 16:52) [2]

А чем обоснован код; Length(Application.Hint) > 0 вместо Application.Hint <> ""?

> [4] Andy BitOff © (25.04.08 11:18)

Ничем. Можно еще и вот так:
procedure TForm1.ShowHint; begin StatusBar.SimplePanel := Application.Hint <> ""; if StatusBar.SimplePanel then StatusBar.SimpleText := Application.Hint; end;
А вообще вон в [3] тоже вариант в D7 есть такое свойство, я просто забыл про него )

Как показать Hint любого объекта на StatusBar? Найти похожие ветки