Discussion :

[Limonoss]

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 :

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
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;

[SergioMaster]

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

[Limonoss]

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

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

[Paul TOTH]

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

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
 
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;
...

[Limonoss]

Je vous remercie pour votre réponse , mais elle est pas claire pour moi vu que je suis un peux nouveau dans ce domaine ; si je reçois pas un exemples dans mon code je serai perdu lol

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

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
 
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;
...

[Paul TOTH]

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

[SergioMaster]

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

à partir de votre code

Code :

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

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;

[Limonoss]

Merci cette solutions est efficace , merci encore une fois .

à partir de votre code

Code :

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

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;