Statusbar Panel

[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;