Création de composant à l'exécution

Question

Bonjour à tous

Lors de l'exécution de mon prog, je doit créer X composant Tedit sur une forme. Suis je obligé de déclaré X fois Edit1, Edit2, ..., ou puis uniquement en déclarer un, puis les créer dans une boucle en utilisant un indice genre Edit[i] := Tedit.create ...

Merci d'avance

cs_Nono40 · Answer

Tu peux effectivement les créés à la chaine dans le OnCreate de la fiche ou à un autre moment :

procedure TForm1.FormCreate(Sender: TObject);
Var ED:TEdit;
    i:Integer;
begin
  ListBox1.Items.Assign(Screen.Fonts);
  For i:=1 to 100 Do
  Begin
    ED:=TEdit.Create(Self);
    ED.Parent:=Self;
    ED.Name  :='MonEdit'+IntToStr(i);
    ED.Top:=i*2;
    ED.Meft:=i*2;
  End;
end;

Ensuite pour accéder à un Edit particulier :

TEdit(Form1.FindComponent('MonEdit'+IntToStr(Num))).Text:='Toto';

--- :sleepy)  Nono40@fr.st  :sleepy) ---
Nouveau ---> Nono40.fr.st

birdyz · Answer

Merci beaucoup pur ta réponse. Ca parait tellement simple dès qu'on a la solution ^^

@pluche

Création de composant à l'exécution

2 réponses

Votre réponse

Discussions similaires