Sender :TObject geht nicht als Zeiger?

[Sharky]

Hai soup,

einfach über ein Typcasting machen

Delphi-Quellcode:

procedure TForm1.MouseMoveoverShape(Sender: TObject; Shift: TShiftState; X, Y: Integer);

begin 
  FieldNameLabel.Caption := (Sender AS TShape).Name; //in einem Label wird der Name des Objekts ausgegeben
end;