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