Methoden während der Laufzeit erstellter Objekte

[Gruber_Hans_12345]

ups ....

natürlich so :

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;
       MyShape[i].OnClick:=ShapeClick;   < ==================
       end;
     end;
  end;