国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 學院 > 開發設計 > 正文

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

2019-11-17 05:24:46
字體:
來源:轉載
供稿:網友

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

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板: 承德县| 齐河县| 鹤山市| 武平县| 大同市| 措勤县| 双江| 香格里拉县| 赤水市| 江安县| 大安市| 陵川县| 湖北省| 镇赉县| 全南县| 犍为县| 山东| 衡南县| 桃园县| 南开区| 星座| 仲巴县| 广昌县| 汕头市| 宝山区| 绵阳市| 根河市| 珠海市| 通江县| 玉环县| 衡南县| 资溪县| 长丰县| 荆门市| 彝良县| 崇左市| 南陵县| 富顺县| 铜鼓县| 祁门县| 射阳县|