Discussion :

[baddom]

voila le code qui marche tres bien:



procedure TForm1.Button1Click(Sender: TObject);


var
editn : Tedit;
begin
editn := Tedit.create(self); // création du Tedit comme composant de la fiche. c'est elle qui s'occupera de la destruction
editn.width := 80;
editn.height := 25;
editn.top := (X * (editn.top + 30)) + 40;// crée à partir de 40 pixels du haut de la fiche, un Tedit tous les 10 pixels
editn.left := 100;
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 identifier chaque tedit cree afin soit d'en detruire un choisi ou de pouvoir les detruire tous.

[evarisnea]

tu pourrais utiliser la propriété Tag de tes Edits pour les identifier par exemple

[tourlourou]

tu peux utiliser un tableau de TEdit, ou les ajouter à un TObjectList, par exemple

tu peux aussi leur affecter la propriété Name et les retrouver grâce à la fonction FindComponent(), mais c'est plus long

[baddom]

je suis vraiment débutant.Pourriez vous m'en dire un peu plus

merci

[tourlourou]

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
var 
 Editn: array[1..25] of Tedit; // tableau de 25 TEdits
 b: Byte;
begin 
 for b:=1 to 25 do begin
  Editn[b] := Tedit.create(self); // création du Tedit comme composant de la  fiche. c'est elle qui s'occupera de la destruction 
  with Editn[b] do begin // on lui affecte ses propriétés
   width := 80; 
   height := 25; 
   top := (X * (editn.top + 30)) + 40;// crée à partir de 40 pixels du    haut de la fiche, un Tedit tous les 10 pixels 
   left := 100; 
   text := s;//SaisieEdit.text; 
   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; 
end;

[baddom]

le compilateur me repond a la phrase(top := (X * (editn.top + 30)) + 40;// X iditentificateur non déclaré?

[baddom]

etop := (X * (editn.top + 30)) + 40 et en declarant comme variable privée de la fiche x:integer

j'ai le message 'type record class ou object requit'

[tourlourou]

effectivement, editn est le tableau, et plus un élément :

Code :

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

1
2
3
4
 if b>1
 then prec:=Editn[b-1].Top // prec: Word
 else prec:=0; 
 top := prec + 70;

[baddom]

pour mon savoir débutant peux tu me preciser un peu plus....et encore merci de ta patience

[baddom]

et ou je le mets ce code?

[tourlourou]

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
var 
 Editn: array[1..25] of Tedit; // tableau de 25 TEdits 
 b: Byte; 
 prec: Word; 
begin 
 for b:=1 to 25 do begin 
  Editn[b] := Tedit.create(self); // création du Tedit comme composant de la  fiche. c'est elle qui s'occupera de la destruction 
  with Editn[b] do begin // on lui affecte ses propriétés 
   width := 80; 
   height := 25; 
   if b>1 
     then prec:=Editn[b-1].Top + Height // bas du précédent
     else prec:=30; // le 1° à 30 du haut de la fiche 
 top := prec + 10;// crée à partir de 40 pixels du haut de la fiche, un Tedit tous les 10 pixels 
   left := 100; 
   text := s;//SaisieEdit.text; 
   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; 
end;