Déplacer une fenêtre en bsNone

Version imprimable

07/03/2006, 23h19
mobee

Déplacer une fenêtre en bsNone

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 !
08/03/2006, 00h18
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 :wink:

Salut !

Comme par exemple :

Code:

1
2
bool Flag = false;
TPoint Start;

Code:

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:

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:

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

A plus !

Code:

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);
}

09/03/2006, 22h06
mobee

Merci à vous.
finalement j'ai opté pour la solution de CGi qui est plus rapide.
10/03/2006, 20h15
Orangina

Bonjour

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