Attribuer une valeur à un bouton dynamique

Bonjour ;
J'ai crée un Button dynamique et je veux on click qu'il soit attribuer automatiquement a ligne concerne

Merci d'avance

Exemple btn1 = ID num 1
btn2 = ID num 2
ex...

Voila mon code du button dynamique

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
40
41
42
43
44
45
46
47
48
49
50
51
52
 
try
    UniQuery1.First;
    Layout14.BeginUpdate;
    for var i := 1 to T do
    begin
      Rec1 := TRectangle.Create(self);
      btn := TSpeedButton.Create(self);
 
      btn.Name := 'btn' + i.ToString;
 
      btn.OnClick := btnClick;
 
      // Edtimage.Bitmap.LoadFromFile('G:\Projet Delphi\Login\image\invoices-icon-6.png');
      btn.Parent := Rec1;
      btn.Align := TAlignLayout.Client;
      Rec1.Height := 70;
      Rec1.Margins.Left := 0;
      Rec1.Margins.Right := 0;
      Rec1.Margins.Top := 0;
      Rec1.Margins.Bottom := 5;
      Rec1.Parent := Layout14;
      UniQuery1.Next;
      begin
        if Odd(i) then
        begin
          Rec1.Fill.Color := talphacolors.Silver;
        end
        else
          Rec1.Fill.Color := talphacolors.White;
      end;
      Rec1.Align := TAlignLayout.MostTop;
    end;
 
  finally
    Layout14.EndUpdate;
  end;
 
 
procedure TFrame2.btnClick(Sender: TObject);
 
BEGIN
  UniQuery1.First;
  // T := UniQuery1.RecordCount;
  begin
    if btn.Name = 'btn' + UniQuery1.FieldByName('ID').AsString then
    begin
      showmessage (UniQuery1.FieldByName('ID').Value);
    end;
  end;
 
END;

Bonjour
Solution "facile" : utiliser le tag ou tagstring du TButton

Merci pour votre réponse , pouvez vous me donner un exemple sur le code ?

Citation:

Envoyé par SergioMaster

Bonjour
Solution "facile" : utiliser le tag ou tagstring du TButton

le mieux c'est encore de dériver le type TButton

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
type
  TMonBouton = class(TSpeedButton)
  // tout ce dont j'ai besoin pour gérer le click
    XXX:XXXX;
   //
    procedure Click; override;
  end;
 
procedure TMonBouton.Click;
begin
  ZZZZZZZZ;
end,
 
...
 
begin
...
   btn := TMonBouton.Create(self);
   btn.XXXX := XXXX;
...

Je vous remercie pour votre réponse , mais elle est pas claire pour moi vu que je suis un peux nouveau dans ce domaine :D ; si je reçois pas un exemples dans mon code je serai perdu lol
Citation:
Envoyé par Paul TOTH
le mieux c'est encore de dériver le type TButton
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 type TMonBouton = class(TSpeedButton) // tout ce dont j'ai besoin pour gérer le click XXX:XXXX; // procedure Click; override; end; procedure TMonBouton.Click; begin ZZZZZZZZ; end, ... begin ... btn := TMonBouton.Create(self); btn.XXXX := XXXX; ...

ce n'est pas comme cela qu'on apprend...reste à savoir si le but est d'apprendre ou pas

Citation:

Envoyé par Limonoss

Merci pour votre réponse , pouvez vous me donner un exemple sur le code ?

à partir de votre code
Code:

1 2 3 4 5 btn.Name := 'btn' + i.ToString; btn.tag:=i; // ou autre valeur entière btn.tagstring:='un texte comme la valeur de la clé'; // il existe aussi btn.TagObject pour assigné un objet btn.OnClick := btnClick;

Merci cette solutions est efficace , merci encore une fois .
Citation:
Envoyé par SergioMaster
à partir de votre code
Code:

1 2 3 4 5 btn.Name := 'btn' + i.ToString; btn.tag:=i; // ou autre valeur entière btn.tagstring:='un texte comme la valeur de la clé'; // il existe aussi btn.TagObject pour assigné un objet btn.OnClick := btnClick;