Destruction d'après identification

Version imprimable

27/03/2006, 00h53
baddom

Destruction d'après identification

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.
27/03/2006, 08h54
evarisnea

tu pourrais utiliser la propriété Tag de tes Edits pour les identifier par exemple :idea:
27/03/2006, 10h01
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
27/03/2006, 12h26
baddom

tedit

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

merci

Code:

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;

27/03/2006, 16h01
baddom

x

le compilateur me repond a la phrase(top := (X * (editn.top + 30)) + 40;// X iditentificateur non déclaré?
27/03/2006, 16h08
baddom

x

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'
27/03/2006, 16h46
tourlourou
effectivement, editn est le tableau, et plus un élément :
Code:

1 2 3 4 if b>1 then prec:=Editn[b-1].Top // prec: Word else prec:=0; top := prec + 70;
27/03/2006, 19h11
baddom

editn

pour mon savoir débutant peux tu me preciser un peu plus....et encore merci de ta patience
27/03/2006, 19h12
baddom

edit

et ou je le mets ce code?

Code:

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;