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