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;