Comment bouger un form avec un Panel [Résolu]

Signaler
Messages postés
19
Date d'inscription
dimanche 12 décembre 2004
Statut
Membre
Dernière intervention
2 février 2006
-
Messages postés
19
Date d'inscription
dimanche 12 décembre 2004
Statut
Membre
Dernière intervention
2 février 2006
-
salut !!!!

Il y a une facon de faire bouger le form en cliquan sur un panel ????

mon form : BorderStyle := bsNone

SkrypterZ

4 réponses

Messages postés
992
Date d'inscription
jeudi 2 novembre 2000
Statut
Membre
Dernière intervention
24 avril 2013
2
Salut essaye ca c mieux

procedure TForm1.Panel1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
ReleaseCapture;
form1.Perform(WM_SYSCOMMAND, $F012, 0);
end;

Ciao
Messages postés
3825
Date d'inscription
vendredi 23 juillet 2004
Statut
Modérateur
Dernière intervention
1 février 2021
38
Salut,
voici un petit exemple

var
Form1: TForm1;
xx, yy : Integer;


implementation


{$R *.DFM}


procedure TForm1.Panel1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
xx := x; // Initialisation de la position
yy := y; // de la souris
end ;


procedure TForm1.Panel1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
If ssLeft in Shift Then
Begin
Left : = Left + (x - xx); // Ajuste la position de la Form
Top := Top + (y - yy); // par raport à la position de la souris
End;
end;


end.



@+
Cirec
Messages postés
3825
Date d'inscription
vendredi 23 juillet 2004
Statut
Modérateur
Dernière intervention
1 février 2021
38
oui c'est claire, c'est même beaucoup mieux, en même temps il était 4 heure du matin et en plus ça fonctionnait



@+
Cirec
Messages postés
19
Date d'inscription
dimanche 12 décembre 2004
Statut
Membre
Dernière intervention
2 février 2006

merci !!!!!! sa marche bien :P

SkrypterZ