I. Déplacement d'une fenêtre sans barre de titre▲
Le déplacement de la fenêtre (Form1) se fera par maintien du bouton gauche de la souris enfoncé sur une zone quelconque de la surface de la fenêtre.
Dans Unit1.h, déclarer les variables :
Sélectionnez
private: // Déclarations de l'utilisateur
bool Deplacement;
int XPos, YPos;Dans Unit1.cpp sur les événements OnMouseDown, OnMouseMove et OnMouseUp :
Sélectionnez
void __fastcall TForm1::FormMouseDown(TObject *Sender, TMouseButton Button,
TShiftState Shift, int X, int Y)
{
XPos = X;
YPos = Y;
if (Button == mbLeft) Deplacement = true;
}
void __fastcall TForm1::FormMouseMove(TObject *Sender, TShiftState Shift,
int X, int Y)
{
if ( Deplacement == true )
{
Left += X-XPos;
Top += Y-YPos;
}
}
void __fastcall TForm1::FormMouseUp(TObject *Sender, TMouseButton Button,
TShiftState Shift, int X, int Y)
{
Deplacement = false;
}Autre solution beaucoup plus simple
Sur l'événement OnMouseDown de la fiche (Form1)
Sélectionnez
void __fastcall TForm1::FormMouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift, int X, int Y)
{
ReleaseCapture();
SendMessage(Handle, WM_SYSCOMMAND, 0xF012, 0);
}