[Débutant] Créer des composants dynamiquement, dans un composant créé dynamiquement.

Version imprimable

18/02/2007, 22h07
arkzor

[Débutant] Créer des composants dynamiquement, dans un composant créé dynamiquement.

Bonjour !

Je débute avec Delphi et j'utilise la version 7 Professionel.

Voici mon problème.
J'ai un TScrollBox dans lequel je doit créer dynamiquement, X nombre de composant TPanel, dans lesquel je doit placer 1 TLabel et 2 TRadioButton.

Je n'ai aucune problème à créer les TPanel, mais c'est au moment de créer le TLabel et les TRadioButton que je m'y perd...

Merci de votre aide
18/02/2007, 22h19
PierreDelcroix

Cela ne dit pas beaucoup, on ne peut pas montrer que le code ?
19/02/2007, 00h15
macumba

Tu renseignes bien la propriété Parent c'est souvent le problème des créations dynamiques car on confond souvent avec le owner. Sinon mets un peu de code...

Voici mon code :
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 procedure TForm1.DisplayAss(Sender : TObject); var QSelAss : TQuery; x : Integer; begin QSelAss := TQuery.Create(Form1); QSelAss.DatabaseName := 'BDCOMPLET'; QSelAss.SQL.Clear; QselAss.SQL.Add('SELECT DISTINCT(D."Code Compagnie"), D."Nom Compagnie"'); QselAss.SQL.Add('FROM "cfg_ass.db" D'); QSelAss.Open; SBass.DestroyComponents; QSelAss.First; x := 0; While not QSelAss.eof do begin With TPanel.Create(SBAss) do begin Parent := SBAss; Name := 'Pa' + QSelAss.FieldbyName('Code Compagnie').AsString; Caption := ''; BevelInner := bvNone; BevelOuter := bvNone; BorderStyle := bsSingle; BorderWidth := 1; Color := $00E2E2E2; Ctl3D := False; Left := 2; Top := 2 + (24 * x); Width := 457; Height := 22; Visible := True; end; QSelAss.Next; inc(x); end; end;
SBAss est un TScrollBox que j'ai crée sur la Form1.
Ce que je veut crée dedans, c'est une nombre inconnue (dépendant du nombre d'enregistrement dans la BD) de TPanel contenant chacun d'autres éléments créés dynamiquement.

Le nom de chacun des TPanel est généré selon le contenu du champ dans la BD, donc je ne le connais pas au moment de créer les composant à l'intérieur de chaque TPanel...

J'espère être clair...

Merci de votre aide.

Voici un exemple de création dynamique de composants :

- 1 JvCaptionPanel (que tu pourras remplacer par un panel
- 3 label créé dynmiquement dans le JvCaptionPanel

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
53
54
55
56
57
58
59
60
 
procedure CreateItems(sName : string);
var
  jvcnPanel : TjvCaptionPanel;
  lblSource : TLabel;
  lblDest   : TLabel;
  lblEtat   : TLabel;
  Compo : TComponent;
begin
  jvcnPanel := TJvCaptionPanel.Create(frmMain.ScrollBox1);
  With jvcnPanel do
  begin
    Align := alTop;
    CaptionPosition := dpTop;
    Name := 'jvcn' + sName;
    OutlookLook := true;
    Height := 80;
    Parent := frmMain.ScrollBox1;
    Caption := '';
    Resizable := False;
    Locked := True;
    Visible := True;
  end;
 
  Compo := TJvCaptionPanel(frmMain.ScrollBox1.findComponent('jvcn' + sName));
  lblSource := TLabel.Create(Compo);
  With lblSource do
  begin
    Left := 8;
    Top := 24;
    Name := 'ES' + sName;
    Parent := TJvCaptionPanel(Compo);
    Caption := '';
    Visible := True;
  end;
 
  lblDest := TLabel.Create(Compo);
  With lblDest do
  begin
    Top := 40;
    Left := 8;
    Name := 'ED' + sName;
    Parent := TJvCaptionPanel(Compo);
    Caption := '';
    Visible := True;
  end;
 
  lblEtat := TLabel.Create(Compo);
  With lblEtat do
  begin
    Top := 56;
    Left := 8;
    Name := 'ET' + sName;
    Parent := TJvCaptionPanel(Compo);
    Caption := '';
    Visible := True;
  end;
  Application.ProcessMessages;
 
end;

19/02/2007, 15h44
arkzor

Bon ! C'était pourtant très simple :)
Merci bcp pour ton aide !