透明視窗製作，如何移動視窗？ |
|
答題得分者是：hagar
|
|
flyup
資深會員   發表：280 回覆：508 積分：385 註冊：2002-04-15 發送簡訊給我 |
|
|
ccchen
版主  發表：61 回覆：940 積分：1394 註冊：2002-04-15 發送簡訊給我 |
|
|
flyup
資深會員 發表：280 回覆：508 積分：385 註冊：2002-04-15 發送簡訊給我 |
|
|
hagar
版主  發表：143 回覆：4056 積分：4445 註冊：2002-04-14 發送簡訊給我 |
ccchen 前輩不是回答了嗎？
改變 TForm.Left 與 TForm.Top 值即可移動視窗。
或者您要手動用滑鼠去移動透明視窗？
那就參考以下:
procedure WmNCHitTest(var Msg: TWMNCHitTest); message WM_NCHITTEST;
procedure TForm1(use your form name).WmNCHitTest(var Msg: TWMNCHitTest);
begin
DefaultHandler(Msg);
if Msg.Result = HTCLIENT then
Msg.Result := HTCAPTION;
end;
另一個方法參考: http://www.swissdelphicenter.ch/en/showcode.php?id=417
--
Everything I say is a lie. 發表人 - hagar 於 2002/10/01 15:52:56
|
|
flyup
資深會員 發表：280 回覆：508 積分：385 註冊：2002-04-15 發送簡訊給我 |
發表時間：2002-09-30 21:44:14
IP:61.225.xxx.xxx 未訂閱
系統時間：2024-06-29 17:06:42
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |