Voila, dans le cadre de mes études, je developpe un petit jeu de pion.
Alors j'ai crée dynamiquement un tableau de tshape de la facon suivante

begin
For a:= 0 to 120 do begin
tab[a]:=TShape.create(FormHex);
tab[a].Parent:=FormHex;
tab[a].width:=20;
tab[a].Height:=20;
tab[a].Top:=15*(a mod 11)-15*(a div 11)+246;
tab[a].left:=26*(a mod 11) + 26* (a div 11)+65;
tab[a].Shape:= StCircle;
tab[a].brush.style:=bsclear;
tab[a].Pen.style:=psclear;
tab[a].Tag := a;
tab[a].OnMouseDown:=ShapeMouseDown;
end;
end;

et la procedure shapemousedown

procedure TFormHex.ShapeMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
(sender as tshape).Brush.color:=clwhite;
casejouee := (sender as tshape).Tag;


je voudrais savoir comment on recupère le casejouee (je sais pas si la derniere ligne est correcte)

est-ce que le casejouee prend bien la valeur 23 quand on clique sur la case 23 ???

merci de votre aide