zur laufzeit erstelltes objekt ansprechen

[mkinzler]

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';
   onClick = OnShapeKlick;
  end;
end;
...
procedure Form1.onShapeklick( Sender:...
begin
...
end;