全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:1679
推到 Plurk!
推到 Facebook!

該如何讓視窗不能移動呢

尚未結案
yachu721
初階會員


發表:51
回覆:98
積分:44
註冊:2003-07-13

發送簡訊給我
#1 引用回覆 回覆 發表時間:2005-11-17 23:01:37 IP:203.67.xxx.xxx 未訂閱
如題 BCB該如何讓滑鼠不能拖曳移動視窗呢
RedSnow
版主


發表:79
回覆:1322
積分:845
註冊:2003-12-15

發送簡訊給我
#2 引用回覆 回覆 發表時間:2005-11-18 00:46:49 IP:61.230.xxx.xxx 未訂閱
yachu721 您好:    製作一個不包含 Titltbar 的視窗 (BorderStyle 設為 bsNone)?      7 天天敲鍵盤 v 時時按滑鼠 8
huwk
資深會員


發表:26
回覆:340
積分:323
註冊:2002-04-03

發送簡訊給我
#3 引用回覆 回覆 發表時間:2005-11-18 00:58:41 IP:211.76.xxx.xxx 未訂閱
不好意思給你DELPHI的CODE.因為我手邊的BCB剛好移掉了. 怕給錯的CODE讓大家見笑    
 
TForm1 = class(TForm)
private
  procedure WMNCHitTest(var M: TWMNCHitTest); message wm_NCHitTest;
end;    implementation    procedure TForm1.WMNCHitTest(var M: TWMNCHitTest);
begin
  inherited; 
  if M.Result = HTCAPTION then //點在CAPTION上
    M.Result := HTNOWHERE; //
end; 
此法只對於mouse點在caption要移動的控制有效 若他自己去選單選擇移動.則無效.因為他是控制讓程式 以為他沒點在caption上的oh!
------
熊的學習 http://huwk.blogspot.com
yachu721
初階會員


發表:51
回覆:98
積分:44
註冊:2003-07-13

發送簡訊給我
#4 引用回覆 回覆 發表時間:2005-11-18 17:19:31 IP:220.130.xxx.xxx 未訂閱
謝謝兩位大大的指導 已經解決了 再次感謝....
系統時間:2024-07-01 19:55:36
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!