Консультация № 108689
09.11.2007, 12:54
0.00 руб.
0 1 1
Здравствуйте господа эксперты. Сталкнулся с такой проблемой. В приложении есть две формы основная и вспомогательная. Для вывода подсказок в статус бар использую такой код. Все подсказки из основной формы и дополнительной выводятся в статус бар главной формы. А как сделать, чтобы подсказки второй формы выводились в свой статус бар? Изменение названия статгс бара непомогает. Заранее спасибо за ответ.

Приложение:
procedure ShowHint(Sender: TObject);procedure Tzurnals.ShowHint(Sender: TObject); // Показ подсказок на панеле состоянияbegin if Length(Application.Hint) > 0 then begin StatusBar1.SimplePanel := True; StatusBar1.SimpleText := Application.Hint; end else StatusBar1.SimplePanel := False;end;procedure Tzurnals.FormCreate(Sender: TObject);begin Application.OnHint := ShowHint;end;

Обсуждение

Неизвестный
09.11.2007, 13:03
общий
это ответ
Здравствуйте, Genia007!
Попробуйте
procedure Tzurnals.ShowHint(Sender: TObject); // Показ подсказок на панеле состояния
begin
if Length(Application.Hint) > 0 then
begin
Sender.StatusBar1.SimplePanel := True;
Sender.StatusBar1.SimpleText := Application.Hint;
end
else Sender.StatusBar1.SimplePanel := False;
end;
Форма ответа