So gehts - wenn ich z.B. in das zweite Panel der StatusBar schreiben will, was mit AutoHint nicht funzt:
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
begin
Application.OnHint := ApplicationHint;
end;
procedure TForm1.ApplicationHint(Sender: TObject);
begin
StatusBar1.Panels[1].Text := Application.Hint;
end;
Danke nochmal an euch beide
Habs die ganze Zeit mit
TControl(Sender).Hint anstatt
Application.Hint probiert, doch das hat nich gefunzt.
Hätt ich früher mal in der Delphi-Hilfe nachgeschaut:
Da ist es ja mit Beispiel erklärt