begin
Pedine[r,c]:= true; //creazione pedine
PedDis[r,c]:=Tshape.Create(Self);
PedDis[r,c].Parent:=self;
PedDis[r,c].Width:=20;
PedDis[r,c].Height:=PedDis[r,c].Width;
PedDis[r,c].Top:=50+scacchiera[r,c].Height*r;
PedDis[r,c].Left:=100+c*Scacchiera[r,c].Width+100;
PedDis[r,c].Shape:=stEllipse;
PedDis[r,c].Brush.Color:=clRed;
end;
PedDis è un array di Tshape. All'interno di esso sono presenti le coordinate delle varie pedine, mentre Pedine è un array di buleani che mi dicono se su quel quadratino è presente una pedina.
Il mio problema è che quando clicco su una pedina devo riuscire a chiamare una procedure. come faccio?
|