Comment on fait pour faire glisser des boutons???

Signaler
Messages postés
51
Date d'inscription
jeudi 23 mai 2002
Statut
Membre
Dernière intervention
17 novembre 2008
-
Messages postés
110
Date d'inscription
dimanche 2 mars 2003
Statut
Membre
Dernière intervention
19 juin 2012
-
Hello les amis, je voulais savoire comment on fais pour faire bouger un bouton, en cliquant sur le bouton et on maintenant appuié le bouton, on peut le faire glissé à notre guise dans la forme????

Merci d'avance!

5 réponses

Messages postés
962
Date d'inscription
mercredi 3 avril 2002
Statut
Membre
Dernière intervention
12 septembre 2006
1
Utilise le OnMouseMove du bouton :

procedure TForm1.Button1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
If ssLeft In Shift
Then Begin
Button1.Left := Button1.Left + X;
Button1.Top := Button1.Top + Y;
End;
end;

C'est tout...

--- :sleepy) Nono du Moulin :sleepy) ---
Messages postés
4580
Date d'inscription
samedi 19 janvier 2002
Statut
Modérateur
Dernière intervention
9 janvier 2013
27
Autre solution plus fluide :
procedure TForm1.Button1MouseMove(Sender: TObject;
Shift: TShiftState; X, Y: Integer);
begin
ReleaseCapture;
TButton(Sender).perform(WM_SYSCOMMAND, $F012, 0);

end;
May Delphi be with you.
Messages postés
4580
Date d'inscription
samedi 19 janvier 2002
Statut
Modérateur
Dernière intervention
9 janvier 2013
27
Autant pour moi, c'est dans l'évènement OnMouseDown qu'il faut mettre le code.
May Delphi be with you.
Messages postés
116
Date d'inscription
mercredi 22 novembre 2000
Statut
Membre
Dernière intervention
4 août 2010
1
Hug... Habibis , je voulais savoire comment on fais pour faire glisser une forme de droite à chauche ?

Merci lezamours :))))
Messages postés
110
Date d'inscription
dimanche 2 mars 2003
Statut
Membre
Dernière intervention
19 juin 2012

merci delphiprog ça marche nickel pour le bouton mais pour un composant Timage ça fonctionne pas!!

merci pour une solution