bonjour, j'ai encore un souci.J'essaie de créer dynamiquement des label qui ont une caption de la valeur d'un nom.Malgré cela cela ne s'affiche pas et il m'indique qu'ils sont qd meme créer ( si je rappuie sur le bouton.) ai-je oublié un refresh ?
voila mon code (simple ):
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 var i, li_top : integer; MyLabel : TLabel; begin Query1.SQL.clear; Query1.SQL.add('select * from agent'); Query1.Open; Query1.First; li_top := 10; for i:= 0 to Query1.RecordCount do begin MyLabel := TLabel.create(self); MyLabel.parent := Form2; MyLabel.Name := 'MyLabel' + inttostr(i); li_top :=MyLabel.height + li_top; MyLabel.top := li_top + 5; MyLabel.Caption := Query1.fieldbyName('nom').asstring; Query1.Next; end; Query1.close;
[Balise code ajoutée par King Kaiser]
Partager