Discussion :

[baddom]

voici le code:begin

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
s:=edit1.text;
editn := Tedit.create(self); // création du Tedit comme composant de la fiche. c'est elle qui s'occupera de la destruction
editn.width :=203;
editn.height := 29;
editn.top := (X * (editn.top + 30)) + 100;// crée à partir de 100 pixels du haut de la fiche, un Tedit tous les 10 pixels
editn.left :=1;
editn.text := s;//SaisieEdit.text;
editn.parent := self;
inc(X); // pour la gestion de X, un increment sur une variable privée de la fiche à chaque création de tedit
edit1.text:='';
 end;
end.

je voudrais pouvoir reperer chaque editn afin de le detruire,le modifier(graphiquement) et sauver ses donnes dans un ficheir text .pas besoin de db pour ces information.

faut il mieux que j'abandonne cette piste?et que je passe par un tableau ou equivalent?


FRANK

[qi130]

Pour accéder à ces Tedit crées dynamiquement, il faut utiliser FindComponent

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
For i:=1 to 4 do
  Tedit(findComponent('Edit'+IntToStr(i)).Text:='ma valeur';

permet de écrire la propriété Text des Tedit1 à 4

[Pedro]

Pour accéder à ces Tedit crées dynamiquement, il faut utiliser FindComponent

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
For i:=1 to 4 do
  Tedit(findComponent('Edit'+IntToStr(i)).Text:='ma valeur';

permet de écrire la propriété Text des Tedit1 à 4

Le problème c'est qu'avec le code qu'il a donné, il ne nomme pas les composants... Ce qui devrait donner une erreur d'ailleurs...
Pour utiliser cette méthode, il faut nommer les composants:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
  editn.Name:='Edit'+IntToStr(X);//Si X est bien le compteur que tu utilises

[rasta girl]

Je débute vraiment en delphi et là je suis un peu dans la même situation sauf qu'en utilisant FindComponent, j'ai le message, identifisateur non déclaré. Que faut-il inclure ?

[Bloon]

Voici un exemple, avec 2 boutons sur ta form :

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
 
var
  cptEdit : integer; // pour compter les TEdit créés
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  // Création d'un TEdit
  with TEdit.Create(self) do
  begin
    Top := (cptEdit * (Height + 8)) + 8;
    Left := 8;
    inc(cptEdit);
    Name := 'myedit' + intToStr(cptEdit);
    Parent := self;
  end;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
  // Affichage du dernier TEdit créé
  if (cptEdit > 0) then
    showMessage(TEdit(findComponent('myedit' + intToStr(cptEdit))).Text);
end;

Bloon

[rasta girl]

Ok, je suis d'accord, mais je ne sais pas quoi mettre dans les uses. Lorsque je compile FindComponent est surligné et j'ai identificateur non déclaré.

[Eric Sigoillot]

Bonjour,

Le plus simple reste de déclarer un tableau de TEdit. Pourquoi passer par la RTTI dans ce cas là ?

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
const
  CFieldCount = 4;
 
type
  TForm1 = class(TForm)
    ...
    Fields: array[1..CFieldCount] of TEdit;
    procedure CreateFields;
    procedure DestroyFields;
    ...
  end;
 
...
procedure TForm1.CreateFields;
var
  i: Integer;
begin
  try
    for i := 1 to Length(Fields) do
      with Fields[i] do
      begin
        Create(Self);
        Parent := Self;
        ...
      end;
  except
    // Erreur à la création
  end;
end;
 
procedure TForm1.DestroyFields;
var
  i: Integer;
begin
  try
    for i := 1 to Length(Fields) do
      if Fields[i] <> nil then FreeAndNil(Fields[i]);
  except
    // Erreur à la destruction
  end;
end;

Tout simplement

@++

[Bloon]

Ok, je suis d'accord, mais je ne sais pas quoi mettre dans les uses. Lorsque je compile FindComponent est surligné et j'ai identificateur non déclaré.

FindComponent est une méthode de TComponent qui permet de rechercher un composant parmi les composants d'un autre.

Si tu as un message d'erreur, c'est que tu n'es pas dans un composant. Quel est ton code ?

Bloon

[rasta girl]

Exactement, voilà j'ai trouvé mon erreur : il falait en fait mettre TComponent.FindComponent ... Merci bien pour toutes ces réponses.

[forzaxelah]

moi j'aurais une requete en plus.
SI on veut ensuite avoir des procedures sur ces TEdit???
Par exemple pour les déplacer...Il faudrait affecter à chaque TEdit crée les procedure de MouseMove et Mouse Down.... comment faire???

[Bloon]

moi j'aurais une requete en plus.
SI on veut ensuite avoir des procedures sur ces TEdit???
Par exemple pour les déplacer...Il faudrait affecter à chaque TEdit crée les procedure de MouseMove et Mouse Down.... comment faire???

http://delphi.developpez.com/faq/?pa...ajoutevenement

Bloon

[Sub0]

Voici une démo de création dynamique de composant (TButton) et d'utilisation d'un évènement :
http://sub0.developpez.com/delphi/mahjongg.zip