创建一个可调整大小和拖拽的Edit

核心提示：创建一个可调整大小和拖拽的Edit//---__fastcall TForm1::TForm1(TComponent* Owner): TForm(Owner){//修改此单字符串窗口组件性质，可自由缩放大小DWord dwStyle = ::GetWindowLong(Edit1->Handle, GWL_ST

　　创建一个可调整大小和拖拽的Edit
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
　　: TForm(Owner)
{
　　//修改此单字符串窗口组件性质，可自由缩放大小
　　DWord dwStyle = ::GetWindowLong(Edit1->Handle, GWL_STYLE);
　　::SetWindowLong(Edit1->Handle, GWL_STYLE, dwStyle WS_SIZEBOX);
　　//修正此单字符串窗口组件在Form1上的实际尺寸与范围
　　//以便USER直接调整单字符串窗口组件边沿
　　::MoveWindow(Edit1->Handle, Edit1->Left, Edit1->Top,
　　　　　　 Edit1->Width, Edit1->Height + 1, true);
}
//---------------------------------------------------------------------------
//当鼠标保持箭头图标时，Edit1即可被拖曳
void __fastcall TForm1::Edit1MouseDown(TObject *Sender,
　　　TMouseButton Button, TShiftState Shift, int X, int Y)
{
　　if(Edit1->Cursor == crArrow )
　　{
　　　　//释放原有鼠标捕捉状态，
　　　　//并同时送出鼠标单击位置等同于窗口标题栏可拖曳窗口的属性
　　　　::ReleaseCapture();
　　　　SNDMSG(Edit1->Handle, WM_NCLBUTTONDOWN, HTCAPTION, 0);
　}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Edit1MouseMove(TObject *Sender, TShiftState Shift,
　　　int X, int Y)
{
　　//鼠标在Edit1上移动时，仍保持箭头图标
　　Edit1->Cursor = crArrow;
}
//---------------------------------------------------------------------------