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

王朝other·作者佚名  2008-06-01
窄屏简体版  字體: |||超大  

创建一个可调整大小和拖拽的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;

}

//---------------------------------------------------------------------------

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
 
© 2005- 王朝網路 版權所有 導航