salut tout le monde, je veux savoir comment créer un bouton dynamiquement dans une forme là où je mets la souris merci.
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.
Mon site personnel consacré à MSEide+MSEgui : msegui.net
Bonjour à tous,
Voici un code qui fonctionne :
Par contre, il ne faut pas oublier StdCtrls dans les Uses.
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
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.
merci à tout
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager