TForm1.CreateForm(sender :Tobject);
var i,j:integer;
begin
for i := 1 to 10 do
for j := 1 to 5 do begin
VetShape[i,j] := TShape.Create(Self);
With VetShape[i,j] do Begin
parent := self;
name:= 'shape'+inttostr(i)+'_'+inttostr(j);
end;
end;
end;
capito cosa intendo??? devo applicare a quei shape un evento onMouseDown in modo che quando li clicco facciano qualcosa... ma non so come fare... tky
uhm...?! xD