BCB窗体移动

窗体上放置一Image，响应MouseDown事件。

void __fastcall TForm1::Image1MouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
  ReleaseCapture();
  Perform(WM_SYSCOMMAND,0xf012,0);
}