A la suite de recherche sur le deplacement de Form, j'ai trouve sur trucs et astuces de CGI ceci
et en cherchant j'ai trouve un code Delphi de NONO40 qui fait la meme chose mais sans SendMessagevoid __fastcall TForm1::FormMouseDown(TObject *Sender, TMouseButton Button,
TShiftState Shift, int X, int Y)
{
ReleaseCapture();
SendMessage(Handle, WM_SYSCOMMAND, 0xF012, 0);
}
Ce dernier code fonctionne parfaitementvoid __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);
}
Partager