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