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
