Créer un objet en cours d'exécution

Version imprimable

29/08/2011, 23h06
joreveur

Créer un objet en cours d'exécution

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.
29/08/2011, 23h33
darrylsite

Citation:

Envoyé par 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 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.
30/08/2011, 00h42
mick605

Salut

Bien sur. Il te suffit de faire :

Code:

MyButton:=TButton.Create;

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

Bonne chance ;)

Bonjour

Voilà un exemple complet:

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

30/08/2011, 07h32
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.