Discussion :

[blondelle]

A la suite de recherche sur le deplacement de Form, j'ai trouve sur trucs et astuces de CGI ceci

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

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

[winow]

Bonsoir

Moi je trouve super sympa les codes que tu mes pour en faire profiter les autres
Moi a chaque fois que tu poste un code, je l'enregistre sur mon pc pour le cas ou j'en aurais besoin plus tard.
Merci blondelle

[blondelle]

Salut winow
C'est le but du Forum, en plus certains codes amenent d'autres solutions donc tout le monde est gagnant