窗体上放置一Image,响应MouseDown事件。
void __fastcall TForm1::Image1MouseDown(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y)
{
ReleaseCapture();
Perform(WM_SYSCOMMAND,0xf012,0);
}
void __fastcall TForm1::Image1MouseDown(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y)
{
ReleaseCapture();
Perform(WM_SYSCOMMAND,0xf012,0);
}