Deplacement d'une Form sans bordures
A la suite de recherche sur le deplacement de Form, j'ai trouve sur trucs et astuces de CGI ceci
Citation:
void __fastcall TForm1::FormMouseDown(TObject *Sender, TMouseButton Button,
TShiftState Shift, int X, int Y)
{
ReleaseCapture();
SendMessage(Handle, WM_SYSCOMMAND, 0xF012, 0);
}
et en cherchant j'ai trouve un code Delphi de NONO40 qui fait la meme chose mais sans SendMessage
Citation:
void __fastcall TForm1::FormMouseDown(TObject *Sender, TMouseButton Button,
TShiftState Shift, int X, int Y)
{
// Astuce pour déplacer facilement un WinControl ou descendant
// ( Merci à DelphiProg qui l'a donnée dans le forum il y a un bout de temps...)
ReleaseCapture();
Perform(WM_SYSCOMMAND, 0xF012, 0);
}
Ce dernier code fonctionne parfaitement
