Statusbar AutoHint mit mehreren Panels

[Luckie]

Meine Statusbar hat mehrer Panles, wenn ich jetzt AutoHint aktiviere, wird der Hilfetext nur im ersten Panel angezeigt, was Quatsch ist, da dieses nur 50 Pixel breit ist. Also habe ich TApplication.OnHint eine Ereignissprozedur zugewiesen:

Delphi-Quellcode:

procedure TfrmCold.OnHint(Sender: Tobject);
begin
  StatusBar1.SimplePanel := True;
  StatusBar1.SimpleText := GetLongHint(Application.Hint);
end;

Geht wunderbar, bis auf die Tatsache, dass ich nicht weiß wo und wann ich SimplePanel wieder auf False stellen kann. Nach dem man das Menü verlassen hat und somit keine Hints mehr angezeigt werden, bleibt die Eigenschaft SimplePanel natürlich auf True.

Wer weiß da Rat?

[Hawkeye219]

Hallo Michael,

ein Handler für TStatusBar.OnHint könnte dein Problem lösen:

Delphi-Quellcode:

procedure TForm1.StatusBar1Hint (Sender: TObject);
  var s : string;
begin
  s := Application.Hint;
  StatusBar1.SimpleText := s;
  StatusBar1.SimplePanel := (s <> '');
end;

Gruß Hawkeye

[Luckie]

Das war's. Allerdings darf man dann TApplication.OnHint keiner Ereignisbehandlungsroutine zu weisen, also TStatusBar.OnHintund die Eigenschaft AutoHint auf True reichtaus.

Danke.

[fylo]

Moin,

vielleicht hilf das auch noch weiter: TStatusBarPro

[Luckie]

Würde eventuell auch funktionieren, aber wozu eine extra Komponente, wenn es auch so geht.