Discussion :

[pierrejean75]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[ALWEBER]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[pierrejean75]

Fabuleux !
Merci Merci