创建一个可调整大小和拖拽的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 +...[ 查看全文 ]