Discussion :

[Benjamin GAGNEUX]

Salut,

Je souhaiterais permettre à l'utilisateur de pouvoir déplacer une Form sans barre de titre.

J'ai donc récupérer l'exemple de la FAQ mais ....

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
procedure TDlgErreur.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  ReleaseCapture;
  Perform(WM_SysCommand, SC_MOVE, 0);
end;

La form est chargé en ShowModal et comporte un Bevel, quelques boutons, un panel avec image et labels.

Lorsque je clique sur la souris (et que j'ai retiré le Bevel) , le curseur se centre sur le bord haut de la form et aucun déplacement n'est effectué.
Si le Bevel est la, alors rien ne se passe, l'évenement n'est pas déclenché.

merci,

[Pierre Castelain]

Réponse ici : http://www.developpez.net/forums/viewtopic.php?t=249530

[Benjamin GAGNEUX]

milles excuses ....
merci

[Benjamin GAGNEUX]

Pour gérer le déplacement d'une fenêtre via les glisser-déplacer de son panel, on peut faire comme cela :

//déclaration
//....
procedure FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
// ces procedures d'évènement doivent être utiliser pour tous les composants devant gérer le déplacement

Private
FPoint : TPoint;
// permet de garder la position du curseur par rapport à la fiche

// permet de gérer le déplacement seulement si un bouton est enfoncé
...

puis dans les gestionnaires d'évenement :

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
 
procedure TDlgErreur.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  FPoint.X := X;
  FPoint.Y := Y;
end;
 
procedure TDlgErreur.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  if (ssLeft in Shift) then
  begin
    Self.Top := Self.Top + (Y - FPoint.Y);
    Self.Left :=  Self.Left + (X - FPoint.X);
  end;
end;

Voila comment permettre le déplacement d'une fiche via son composant.

Pour déplacer une fiche par celle-ci, cette méthode ne fonctionne pas et il faut donc gérer cela par message (comme le précisait Pierre Castelain (cf lien précédent)):

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
procedure TDlgErreur.WMNCHitTest(var msg: TWMNCHitTest);
var
  pt: TPoint;
begin
  inherited;
  pt:= ScreenToClient(Point(msg.XPos, msg.YPos));
  if PtInRect(Rect(0, 0, ClientWidth, Panel2.Height), pt) then
    msg.Result:= HTCAPTION;
end;

voila,

j'espère que cela pourra servir à d'autre.
A bientot,