运行时控件的移动
int __fastcall Perform(Cardinal Msg, int WParam, int LParam);
其中参数M s g传递一个消息的I D号。消息通过W P a r a m、L P a r a m传递给进程。
void __fastcall TForm1::Edit1MouseMove(TObject *Sender, TShiftState Shift,int X, int Y)
{
WORD SC_DragMove = 0xF012;
ReleaseCapture ( ) ;
((TWinControl*)Sender)->Perform(WM_SYSCOMMAND, SC_DragMove, 0);