TEdit dynamique

Version imprimable

TEdit dynamique

voici le code:begin
Code:

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?

:tagcode: :merci:
FRANK

02/04/2006, 22h06
qi130
Pour accéder à ces Tedit crées dynamiquement, il faut utiliser FindComponent
Code:

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
03/04/2006, 13h48
Pedro
Citation:
Envoyé par qi130

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

Code:

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:

1 2 editn.Name:='Edit'+IntToStr(X);//Si X est bien le compteur que tu utilises
22/05/2006, 09h44
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 ?:oops:

Voici un exemple, avec 2 boutons sur ta form :

Code:

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

22/05/2006, 10h04
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é.

Bonjour,

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

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
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 ;)

@++

22/05/2006, 10h29
Bloon

Citation:

Envoyé par 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é.

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
22/05/2006, 16h08
rasta girl

Exactement, voilà j'ai trouvé mon erreur : il falait en fait mettre TComponent.FindComponent :D... Merci bien pour toutes ces réponses.
08/06/2006, 14h05
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???:?
08/06/2006, 14h20
Bloon

Citation:

Envoyé par 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???:?

:faq:

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

Bloon
08/06/2006, 15h42
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