Discussion :

[jengo]

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]

[BoBoToTo]

je crois qu'en dehors de dbase et paradox, le recordcount est un peu bancal en BDE.

essaie plutot un truc du genre :

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: integer;
begin
	i := 0;
	Query1.SQL.clear;
	Query1.SQL.add('select nom from agent');  // (le champ 'nom' suffit')
	Query1.Open;
	Query1.First;  // (inutile ?)
	while not Query1.Eof do
		with TLabel.Create(Form2) do
			begin
				i := i + 1;
				Parent := Form2;
				Name := 'MyLabel' + IntToStr(i);
				Top := i * (Height + 8);  // (enfin là c'est à toi de voir)
				Caption := Query1.Fields[0].AsString;
				Query1.Next;
			end;
	Query1.Close;
end;

++