Discussion :

[mobee]

Bonjour,
J'ai une fenêtre dans une application qui necessite d'être en BorderStyle=bsNone
La barre de titre disparait donc et il est impossible en l'état pour l'utilisateur de déplacer cette fenêtre.
Existe t'il une propriété du Form qui autorise le déplacement de cette fenêtre par Drag & Drop ?
Sinon, comment pourrais-je m'y prendre ?

D'avance, Merci !

[totoche76]

Hello

Coder les événements OnMouseDown, OnMouseMove, OnMouseUp:
Sur OnMouseDown tu mémorises la position de la souris et le début du mouvement, sur OnMouseMove tu déplaces la fenêtre en tenant compte des coordonnées actuelles de la souris et de la position de départ.
Sur ces événements le paramètre Shift contient l'état des boutons de la souris.

Bon courage

[henderson]

Salut !

Comme par exemple :

Code :

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

1
2
bool Flag = false;
TPoint Start;

Code :

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

1
2
3
4
5
6
void __fastcall TForm1::FormMouseDown(TObject *Sender, TMouseButton Button,
      TShiftState Shift, int X, int Y)
{
Flag = true; 
Start = Point(X,Y);
}

Code :

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

1
2
3
4
5
6
7
8
void __fastcall TForm1::FormMouseMove(TObject *Sender, TShiftState Shift,
      int X, int Y)
{
if(Flag)
    {
    SetBounds(Left + X - Start.x, Top + Y - Start.y, Width, Height);
    }
}

Code :

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

1
2
3
4
5
void __fastcall TForm1::FormMouseUp(TObject *Sender, TMouseButton Button,
      TShiftState Shift, int X, int Y)
{
Flag = false;
}

A plus !

[CGi]

Code :

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

1
2
3
4
5
6
void __fastcall TForm1::FormMouseDown(TObject *Sender, TMouseButton Button,
      TShiftState Shift, int X, int Y)
{
   ReleaseCapture();
   SendMessage(Handle, WM_SYSCOMMAND, 0xF012, 0);
}

[mobee]

Merci à vous.
finalement j'ai opté pour la solution de CGi qui est plus rapide.

[Orangina]

Bonjour

Pour mon information personnelle, 0xF012 cela correspond à quoi ?
J'ai trouvé SC_MOVE (0xF010) mais pas 0xF012.
Merci