Discussion :

[Douine]

Bonjour,

je suis débutante en Delphi et je galère !

En fait, j'ai une liste, et je dois la décomposer pour mettre chaque élément de la liste dans une ligne d'une ScrollBox. Puis chaque élément doit être décomposé dans un TEdit, puis un Combobox puis la dernière partie dans un TEdit, tout celà devant être contenu dans la ScrollBox.
Je sais pas si c'est très clair !


Le problème en fait est que je ne sais pas comment créer par programme un Edit ou un ComboBox ou un Scrollbox.

Si quelqu'un peut m'aider, je vous remercie d'avance !
Camille

[Matt2094]

Si j'ai bien compris, ton problème est de créer des composants pendant l'éxécution de ton programme. Pour cela, cherche dans la F.A.Q du côté de la création dynamique de composants.

[Hauwke]

Bonjour et bienvenue sur le forum de Developpez.com
D'une façon générale, il suffir de créer l'objet à l'aide de la focntion "create" (voir l'aide en ligne pour plus de détail sur sa syntaxe)
des exemples génériques... (en supposant qu'on les pose sur une fiche "form1" et qu'on décide que cette "form1" sera responsable de leur destruction

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
 
procedure CreerdesObjets;
var
unEdit:Tedit;
UneCombo:Tcombobox;
UneListe:Tlist;
begin
UnEdit:=Tedit.create(Form1);
UneCombo:=TCombobox.create(Form1);
UneList:=Tlist.create(self)
with UneList do
begin
...
Des instructions de traitements
end;
Unelist.free; // on libére la mémoire puisqu'on a pas dédié cette opération à un autre composant (form1, en l'occurence)
end;

Voilà un petit début.. le reste se trouve dans l'aide, les tutos, les sources et la faq
Bon dev
Cordialement,
Hauwke

[Douine]

Merci pour votre aide. J'ai plus le temps de regarder ça aujourd'hui mais dès demain je regarderai si ça marche.

Merci encore, je pensais pas obtenir une réponse aussi vite !

Restez pas loin, je vais surement avoir encore besoin de vous !!!!

Cam

[qi130]

dès demain je regarderai si ça marche.

Ca je n'en doute pas

Cependant, les instructions et le code fournis constituent des pistes et des orientations qu'il faudra nécessairement adapter à ton besoin: en vrac

• le parent des composants crées
• le positionnement dans la scrollbox
• l'écartement des "lignes" de composants créés
• ...

Aussi, ne te décourage pas...

[sjrd]

Pour compléter, tu devras d'abord boucler sur ta liste. Pour chaque élément, créer un TComboBox et un TEdit. Tu dois leur affecter une position grâce à Left, Top, Width et Height, ainsi que le ScrollBox1 en tant que Parent :

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
procedure RemplirScrollBox(ScrollBox : TScrollBox; Liste : array of TElement);
var I : integer;
begin
  // D'abord il faut supprimer tous les contrôles qui existaient auparavent dans la scrollbox
  while ScrollBox.ControlCount > 0 do
    ScrollBox.Controls[0].Free;

  // Ensuite on boucle sur la liste
  for I := Low(Liste) to High(Liste) do
  begin
    // On crée la combo box
    with TComboBox.Create(ScrollBox) do
    begin
      Parent := ScrollBox;
      Left := 16;
      Top := 18 + 24*I;
      Width := 16;
      Height := 16;
      Checked := Liste[I].ValeurBooleenne;
      Visible := True;
    end;
    // On crée l'edit
    with TEdit.Create(ScrollBox) do
    begin
      Parent := ScrollBox;
      Left := 40;
      Top := 16 + 24*I;
      Width := ScrollBox.Width-56; // la largeur restante
      Text := Liste[I].ValeurChaine;
      Visible := True;
    end;
  end;
end;

Il ne te reste plus qu'à adapter TElement, ValeurBooleenne et ValeurChaine aux types réels de ta liste, et puis appeler cette routine avec en paramètres la scroll box et la liste

Bon dev'
Sébastien

[Douine]

Merci beaucoup à tous !

Ca marche, c'est trop bien !!!


Mais c'est pas fini encore... Y'a encore du boulot, alors vous risquez de me revoir bientôt !!!

A+,
Camille

[Douine]

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
procedure RemplirScrollBox(ScrollBox : TScrollBox; Liste : array of TElement);
var I : integer;
begin
  // D'abord il faut supprimer tous les contrôles qui existaient auparavent dans la scrollbox
  while ScrollBox.ControlCount > 0 do
    ScrollBox.Controls[0].Free;

  // Ensuite on boucle sur la liste
  for I := Low(Liste) to High(Liste) do
  begin
    // On crée la combo box
    with TComboBox.Create(ScrollBox) do
    begin
      Parent := ScrollBox;
      Left := 16;
      Top := 18 + 24*I;
      Width := 16;
      Height := 16;
      Checked := Liste[i].ValeurBooleenne;
      Visible := True;
    end;
    // On crée l'edit
    with TEdit.Create(ScrollBox) do
    begin
      Parent := ScrollBox;
      Left := 40;
      Top := 16 + 24*I;
      Width := ScrollBox.Width-56; // la largeur restante
      Text := Liste[i].ValeurChaine;
      Visible := True;
    end;
  end;
end;

Re-salut !

merci pour ton message, ça marche nickel !

Je voudrais maintenant ajouter une propriété dans la combobox pour que si l'utilisateur clique sur un choix particulier de la combo (par exemple, j'ai une liste du style : =, <>, := ... et qu'il choisit 'parmi' ) ça affiche une nouvelle boite TEdit. (ça je sais faire maintenant )

Est-ce que je peux rajouter dans le code au-dessus un truc du genre : OnChange do (if (Text = 'parmi') then edit2 := ' '); ?

Bon en fait, je sais que je peux pas puisque ça marche pas, mais est-ce que j'y suis presque ou est-ce que c'est pas du tout comme ça qu'il faut faire ???

Voilà, encore un de mes nombreux soucis !
Merci beaucoup de vos réponses et de votre patience avec moi !!!!

Camille