線上訂房服務-台灣趴趴狗聯合訂房中心
發文 回覆 瀏覽次數:1872
推到 Plurk!
推到 Facebook!

當DragMode為dmManual時,如何拖動視窗?

缺席
wonhuilin
一般會員


發表:1
回覆:2
積分:0
註冊:2007-02-02

發送簡訊給我
#1 引用回覆 回覆 發表時間:2007-10-20 04:23:29 IP:219.80.xxx.xxx 訂閱

我想要用滑鼠拖曳form中的TImage物件時,改變Form在桌面的位置
有人知道該怎麼寫嗎?
用dmAutomatic似乎是無法達成這個目的
所以想用dmManual,但找到不需要那些指令來控制…
由於我用的是無標題列,透明化的視窗,所以要用拖曳TImage物件來拖曳整個視窗...
拜託知道的人能告訴我>"<
------
還在努力學習,成為一個達人
wonhuilin
一般會員


發表:1
回覆:2
積分:0
註冊:2007-02-02

發送簡訊給我
#2 引用回覆 回覆 發表時間:2007-10-25 19:56:24 IP:219.80.xxx.xxx 訂閱
我把相同的問題貼到奇摩知識+
有人回應我了,方法試過可以用~
在這po給大家看看~ 如果有更好的方法也請大家分享囉 ^^

在TImage加入MouseDown的事件,如以下

[code cpp]
void __fastcall TForm1::Image1MouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift, int X, int Y)
{
ReleaseCapture();
Form1->Perform(WM_SYSCOMMAND,SC_MOVE HTCAPTION,0);
Application->ProcessMessages();
}

[/code]

裡面的Form1自己改成你主Form的名稱
這樣就可以了
------
還在努力學習,成為一個達人
系統時間:2024-05-06 2:24:55
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!