zur laufzeit erstelltes objekt ansprechen

[s.h.a.r.k]

Delphi-Quellcode:

var
shape: TShape;
...
procedure TForm1.Button1Click(Sender: TObject);
begin
shape:=TShape.Create(Form1);
 With shape do
  begin
   Parent:=Form1;
   Left:=0;
   Top:=0;
   Width:=100;
   Height:=50;
   Shape:=stRoundRect;
   Name:='Shape1';
  end;

  // Hier weißt du dem shape den entsprechenden
  // OnClick-Handler zu
  shape.OnClick := Self.onklick;
end;
...

// Hier hast du den Parameter Sender vergessen.
procedure Shape1.onklick(Sender: TObject); //und hier weiß ich nicht wie es richtig heißt
begin
...
end;