程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> C語言 >> VC >> vc教程 >> 創建一個可調整大小和拖拽的Edit

創建一個可調整大小和拖拽的Edit

編輯:vc教程

創建一個可調整大小和拖拽的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;
}
//---------------------------------------------------------------------------

  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved