FMX GridPanelLayout : recuperer le numero de la case ?

Version imprimable

1 pièce(s) jointe(s)

Bonjour a tous
Delphi Rad Studio 10.4 pour Android
J'ai un GridPaneLayout avec 1 colonne et 2 lignes dans lequel je mets a chaque fois 1 rectangle de couleur verte et un autre rectangle de couleur blanche plus petit dedans
Lorsque je clic dans la couleur verte je recupere bien la valeur qui correspond a l element ici la ligne ( 0 ou 1 correspondant a la ligne 1 ou 2 ) mais quand je clic dans la couleur blanche (donc le sous element ) je n'ai rien
Voici mon code
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 procedure TForm1.Button1Click(Sender: TObject); var Rectangle0,Rectangle1:TRectangle; i:Integer; begin for i:=1 to 2 do begin Rectangle0 := TRectangle.Create(self); Rectangle0.Width := 400; Rectangle0.Height := 300; Rectangle0.Fill.Color := TAlphaColorRec.Green; Rectangle0.OnClick := Click0; Rectangle1 := TRectangle.Create(self); Rectangle1.Parent := Rectangle0; Rectangle1.Width := 300; Rectangle1.Height := 150; Rectangle1.Fill.Color := TAlphaColorRec.White; Rectangle0.OnClick := Click0; GridPanelLayout1.AddObject(Rectangle0); end; end; procedure TForm1.Click0(Sender: TObject); var Pos : Integer; begin Pos := GridPanelLayout1.ControlCollection.IndexOf(Sender as TRectangle); showmessage('Position : '+inttostr(Pos)); end;
Quelqu'un saurait il comment faire ? Il faudrait que je puisse récupérer la valeur du Parent de mon rectangle1 mais si je met Sender.Parent j'ai un message d'erreur
Pièce jointe 579847

Si j'ai bien compris ta demande voici une solution :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
 
procedure TForm1.Button1Click(Sender: TObject);
var
  Rectangle0, Rectangle1: TRectangle;
  i: Integer;
begin
  for i := 1 to 2 do
  begin
 
    Rectangle0 := TRectangle.Create(self);
    Rectangle0.Width := 300;
    Rectangle0.Height := 200;
    Rectangle0.Fill.Color := TAlphaColorRec.Green;
    Rectangle0.OnClick := Click0;
 
    Rectangle1 := TRectangle.Create(self);
    Rectangle1.Parent := Rectangle0;
    Rectangle1.Width := 200;
    Rectangle1.Height := 100;
    Rectangle1.Fill.Color := TAlphaColorRec.White;
    Rectangle1.OnClick := Click0;
 
    GridPanelLayout1.AddObject(Rectangle0);
  end;
 
end;
 
procedure TForm1.Click0(Sender: TObject);
var
  Pos: Integer;
  r1: TRectangle;
begin
  if TControl(Sender).Parent is TRectangle then
    r1 := TRectangle(TControl(Sender).Parent)
  else
    r1 := Sender as TRectangle;
  Pos := GridPanelLayout1.ControlCollection.IndexOf(r1);
  showmessage('Position : ' + inttostr(Pos));
end;

Attention la ligne 21 a été modifiée

22/09/2020, 18h48
pierrejean75

Fabuleux !
Merci Merci