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

Как показать 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 будет выводить строку, которая после вертикальной черты.
Записали?

---

← →
Andy BitOff ©   (2008-04-25 11:18) [4]

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

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

---

← →
{RASkov} ©   (2008-04-25 12:10) [5]

> [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 есть такое свойство, я просто забыл про него )

---

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

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



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