salut tout le monde, je veux savoir comment créer un bouton dynamiquement dans une forme là où je mets la souris merci.
Version imprimable
salut tout le monde, je veux savoir comment créer un bouton dynamiquement dans une forme là où je mets la souris merci.
Bonjour !
Vous trouverez une partie de la réponse dans la FAQ :
Comment créer dynamiquement un composant visuel ?
L'exemple donné est justement celui d'un bouton.
Bonjour à tous,
Voici un code qui fonctionne :
Par contre, il ne faut pas oublier StdCtrls dans les Uses.;)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
44
45
46
47
48
49
50
51
52 unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) procedure FormMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); procedure FormDestroy(Sender: TObject); procedure FormCreate(Sender: TObject); private Button2 : TButton; public { Déclarations publiques } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin With Button2 do begin parent:=self; //affichage du button dans son parent Left:=X; //pour positionner le bouton sur ton curseur Top:=Y; Width:=100; Height:=50; end; end; procedure TForm1.FormDestroy(Sender: TObject); begin Button2.Free; //destruction du button end; procedure TForm1.FormCreate(Sender: TObject); begin Button2:=TButton.Create(self); //création du button lors de la crétation de la fiche end; end.
Il n'est pas vraiment créé lors du click de la souris mais c'est plus simple.:P
merci à tout