Borland C++ Builder FAQ - Перемещение формы мышью не за заголовок

ОГЛАВЛЕНИЕ


Перемещение формы мышью не за заголовок

// Напишите следующий обработчик события OnMouseDown  формы
void __fastcall TForm1::FormMouseDown(TObject *Sender, TMouseButton Button,
TShiftState Shift, int X, int Y)
{
 long SC_DRAGMOVE = 0xF012;
 if(Button == mbLeft)
  {
  ReleaseCapture();
  SendMessage(Handle, WM_SYSCOMMAND, SC_DRAGMOVE, 0);
 }
}