MouseOver Text (Statusbar)

[SLDZ]

Hallo,

Ich bin noch ein totaler Neuling in Sachen Delphi...
Ich habe folgenden Code gefunden und nach meinen Bedürfnisse angepasst:

Delphi-Quellcode:

procedure TForm1.StatusBar(Sender: TObject; Shift: TShiftState;
  X, Y: Integer);
//uses commctrl
Var i:integer;
    PanelRect: TRect;
    NeuerHint:string;
begin
  for i:=0 to StatusBar1.Panels.Count-1 do
    begin
      SendMessage(StatusBar1.Handle, SB_GETRECT, I, Integer(@PanelRect));
      if PtInRect(PanelRect,point(X,Y)) then
        begin
          NeuerHint:='Hint vom Panel '+inttostr(i);
          if NeuerHint<>StatusBar1.Hint then
            begin
              StatusBar1.Hint:=NeuerHint;
              Application.CancelHint;
            end;
          break;
        end;
    end;
end;

Nun will ich, dass er mir wenn ich z.B. mit der Maus über einen Button "fahre" in der Statusleiste einen Text ausgibt.
Aber irgendwie will das nicht funktionieren! Hab die "Coordinaten" auch schon ausgetausch (X,Y auf die "Coordinaten" des entsprechenden Buttons gelenkt) das will aber alles nicht funktionieren!
Ich hoffe ihr könnt mir helfen, am besten wäre natürlich gleich noch ein Beispiel mitzuposten :)

Bin dankbar für jede hilfe die ich bekommen kann ;)

[mkinzler]

.Hint?

[SLDZ]

Ganzer Satz? :mrgreen:

Edit: Danke, hat sich erledigt :D Nach ein paar Minuten Überlegen hab ich festgestellt was ich vergessen habe :drunken: