creation de button sans le declarer

Question

voila j'aimerai faire quelque chose comme sa :

var i:integer;
begin
for i:=1 to 10 do
  begin
    Tbutton(inttostr(i)).create;
  end;

je sais que c'est possible mais je ne sais pas comment.
Aider moi sVp

Bruto · Answer

Exemple :

var but:array [1..10] of TButton;

procedure TForm1.FormCreate(Sender: TObject);
begin
     but[1] := TButton.Create(Self);
     but[1].Parent := Form1;
     but[1].Left := 20;
     but[1].Top := 20;
     but[1].Visible := True;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
     but[1].Free;
end;

 ;)  Bruto --- Le p'tit belge --- pour vous servir

cs_Amadeus · Answer

Il faudrait peut-être avoir un lien sur chaque bouton créer pour pouvoir mieux les gérer ou bien les détruire. Tu pourrais référencer dans un TObjectList tout les bouton créés.

cs_Amadeus · Answer

var i:integer;
      but: TButton
begin
for i:=1 to 10 do
begin
but := TButton.Create(Self);
but.Parent := Form1;
but.name:= 'Button' + IntToStr(i); 
but.Left := 20;
but.Top := 20;
but.Visible := True;end;
end;

Et gérer tous les objets créer dans un ObjectList pour pouvoir les libérer aprés.

g0belin · Answer

OK merci les gars, surtout de la rapidité de la reponse sa fait plaisir :)

Creation de button sans le declarer

4 réponses

Votre réponse

Discussions similaires