Statusbar Panel

[Störtebeker]

Ich habe ne Toolbar und möchte, wenn ich mit maus auf ein bestimmten button der toolbar gehe, dass dann im Panel der statusbar angezeigt, worum es sich handelt.

Wie kann ich die Panels der Statusbar ansprechen?

Delphi-Quellcode:

procedure TForm2.ToolButton2MouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Integer);
begin
Statusbar1.0 - TStatusPanel.text:='Neues Dokument';
end;

habe ich schon versucht. Aber ihn stört die 0 mit folgender meldung: "Identifier expected, but number found" und leider lassen sich die panels nicht umbenennen.

[DeddyH]

Je nach Einstellung der Statusbar

Delphi-Quellcode:

Statusbar1.SimpleText := 'bla';

oder

Delphi-Quellcode:

Statusbar1.Panels[0].Text := 'bla';

[Störtebeker]

soweit so gut. Jetzt muss ich es nur noch hinkriegen, dass der text auch wieder verschwindet, wenn den button verlasse.

[shmia]

Ich würde nicht das Event OnMouseMove für diesen Zweck missbrauchen, sondern einen Hint eingeben und das Property ShowHint auf True setzen.
Nun erscheint das übliche, gelbe Hintfenster mit dem Hilfetext.
Zusätzlich kann man auch alle Hints zentral abgreifen und auf den Statusbar kopieren:

Delphi-Quellcode:

   Application.OnHint      := Self.HandleOnHint;       // Hinttexte in der Statusbar anzeigen
   Application.HintHidePause := 5000;                  // 5 Sek warten bis der Hint wieder verschwindet

procedure THauptForm.HandleOnHint(Sender: TObject);
begin
   StatusPanel1.SimpleText := Application.Hint;
end;

[Störtebeker]

wo hast du denn den ersten teil des quelltextes untergebracht?

und zu dem anderen: HandleOnHint habe ich ja bei der Form nicht im OI. Also muss ich den extra hinzufügen, oder?

Dass mache ich doch, in dem ich unter Implmentation procedure Main.HandleOnHint(Sender: TObject); einfüge und dann später nochmal die gesamte Procedure, oder?

[Störtebeker]

Die Lösung kann so einfach sein. :wall:

Zitat:

Für den Menüitem einen Hint eintragen, SimplePanel und AutoHint der Satausbar auf True setzen. Dann sollte es automatisch passieren