Statusbar на двух формах

[Albenous]

Люди, хочу прописать по статусбару на каждой форме, чтоб там выводились подсказки (hint) в каждом для своей формы.
для одной формы - все OK. для двух - выводит подсказки со всех элементов (при наведении курсора, конечно) только на статусбаре первой формы.
кто не в курсе как вообще подсказки на статусбаре показывать - кидаю код:

type
...
procedure DisplayHint(Sender: TObject);
...

procedure TForm2.DisplayHint(Sender: TObject);
begin
StatusBar1.Panels[0].Text := Application.Hint;
end;

сразу скажу, что фишка

Form2.StatusBar1.Panels[0].Text := Application.Hint;

не проходит

[SERG1980]

Попробуй поставь на форму компонент ТApplicationEvent с политры Additional (невидимый компонент)
В окне свойств переключись на вкладку Events, найдите событие
OnHint и создайте следующий обработчик:
procedure TPictureForm.ApplicationEventsHint( Sender: TObject);
begin
with StatusBar do
begin
SimpleText := Application.Hint;
SimplePanel := SimpleText <> '';
end;
end;
Вместо SimplePanel можно задать например Panel[0] .....
У меня всегда это работало и проблем небыло.