Autant pour moi, c'est dans l'évènement OnMouseDown qu'il faut mettre le code.
May Delphi be with you.
-------------------------------
Réponse au message :
-------------------------------
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.
-------------------------------
Réponse au message :
-------------------------------
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...
---
Nono du Moulin
---
-------------------------------
Réponse au message :
-------------------------------
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!