Methoden während der Laufzeit erstellter Objekte

[Neutral General]

Delphi-Quellcode:

procedure TForm1.Bauen; 
var i,x:integer; 
begin 
Spalten:= Spinedit2.value; 
Reihen:= Spinedit1.value; 
  for x:= 1 to Reihen do begin 
     for i:=1 to Spalten do begin 
     MyShape[i] := TMyShape.Create(Form1); 
       with MyShape[i] do begin 
       Parent := Form1; 
       Height := 15; 
       Width := 15; 
       Shape:=strectangle; 
       Left := 120+22*i; 
       Top := x*22; 
       OnClick:=ShapeClick;   
       end; 
     end; 
  end;

So muss es gehn