gleiche OnMouseMove zusammenfassen

[eddy]

Hallo Leute,

kann man das zusammenfassen?

Code:

procedure TForm.panHdWertMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
  panHDWert.Cursor := crHandPoint;
end;

procedure TForm.panHdTypMouseMove(Sender: TObject; Shift: TShiftState; X,Y: Integer);
begin
  panHDTyp.Cursor := crHandPoint;
end;

procedure TForm.panHdNameMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
  panHDName.Cursor := crHandPoint;
end;

So sinngemäß:

Sender.AktuellePanelKomponente.Cursor := crHandPoint


mfg
eddy

[sakura]

Du kannst im Objekt-Inspektor einfach eine bereits existierende Ereignismethode auswählen und so allen die gleiche zuweisen

......

[eddy]

Hallo sakura,

wenn das so einfach wäre!!!

In dem Fall von OnMouseMove funktioniert Dein Vorschlag nicht, weil der Name der Komponenten, über die der Cursor bewegt wird, vor .Cursor steht.

mfg
eddy

[sakura]

Schreibe doch die Methode so:

Delphi-Quellcode:

procedure TForm.SomeMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); 
begin 
  if Sender is TControl then
    (Sender as TControl).Cursor := crHandPoint; 
end;

......

[eddy]

Hallo sakura,

genau das:

Code:

if Sender is TControl 
  then (Sender as TControl).Cursor := crHandPoint;

habe ich gesucht!


Vielen Dank! Funktioniert bestens!!

mfg
eddy


PS: und wo kann man einen Beitrag als erledigt markieren?