Discussion :

[joreveur]

Bonjour

est-il possible de créer sur un Tform un objet et ce, par programme ?

je m'explique...

en cours d’exécution je voudrais créer dynamiquement un ou plusieurs nouveaux buttons. ces buttons n'ont a pas été créés en mode édition (choix volontaire).

merci de vos conseils.

[darrylsite]

Bonjour

est-il possible de créer sur un Tform un objet et ce, par programme ?

je m'explique...

en cours d’exécution je voudrais créer dynmyquement un ou plusieurs nouveaux buttons. ces buttons n'ont a pas été créés en mode édition (choix volontaire).

merci de vos conseils.

Salut,

il est bien possible de le faire sans aucun trick. N'étant pas un fan des Form, je code toujours mes objets à la mains sans utiliser l'éditeur graphique.

[mick605]

Salut

Bien sur. Il te suffit de faire :

Code :

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

MyButton:=TButton.Create;

Et tu met MyButton de type TButton en variable privée de ta Form.

Bonne chance

[DOLPat®]

Bonjour

Voilà un exemple complet:

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
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
 
 
uses  StdCtrls; // à rajouter si pas présent
 
...
 
  private
    { private declarations }
    MesBoutons: array[0..2] of TButton;
    procedure MesBoutonsOnClic(Sender: TObject);
  public
    { public declarations }
  end; 
 
...
 
procedure TForm1.FormCreate(Sender: TObject);
var
  i: Integer;
begin
  for i:=0 to 2 do
    begin
      MesBoutons[i]:=TButton.Create(Form1);
      MesBoutons[i].Parent:=Form1;
      MesBoutons[i].Width:=80;
      MesBoutons[i].Height:=24;
      MesBoutons[i].Left:=i*84;
      MesBoutons[i].Top:=4;
      MesBoutons[i].Caption:='Bouton '+IntToStr(i+1);
      MesBoutons[i].Tag:=i;
      MesBoutons[i].OnClick:=@MesBoutonsOnClic;
    end;
end;
 
procedure TForm1.MesBoutonsOnClic(Sender: TObject);
begin
  with sender as TButton do
    case Tag of
      0: Form1.Caption := 'Clic sur le bouton de gauche';
      1: Form1.Caption := 'Clic sur le bouton central';
      2: Form1.Caption := 'Clic sur le bouton de droite';
    end;
end;

[joreveur]

Bonjour,
merci à chacun pour sa participation.
je viens de tester l'exemple cité, qui m'a bien éclairé.
en fait Pascal je connais un peu et Lazarus très peu... (mais ça à l'air sympa)
je vais pouvoir continuer un peu mon projet... (qui n'en est qu'à son début...)

merci à chacun, encore une fois !

cordialement.