So, danke schonmal für alle Antworten, ich glaub das was xineohp mir geschrieben hat war das was ich wollte, nur hab ich das problem ich kriegs immernoch nich t hin habe jetzt folgendes
Delphi-Quellcode:
procedure ShapeClick(Sender:TObject);
begin
end;
....
procedure Bauen;
var i,x:integer;
begin
Spalten:= form1.Spinedit2.value;
Reihen:= form1.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.OnClick:=ShapeClick;
end;
end;
end;
end;
....
aber das kommt dann folgende Fehlermeldung:
-Record Object oder Klassentyp erforderlich
-Inkompatible Typen:Methodenzeiger und reguläre Procedure
was kann ich dagegen tun?