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

如何控制 MDIForm 的 scroll 不要出現

缺席
sfy257000
一般會員


發表:21
回覆:13
積分:6
註冊:2002-07-11

發送簡訊給我
#1 引用回覆 回覆 發表時間:2002-10-28 13:28:26 IP:61.222.xxx.xxx 未訂閱
請教各位大大 當 MDIChild 不為最大化時,我該如何控制不讓 User Move Form or Change Form Size ? thanks
------
*********************
* 只要用心一定成功 *
*********************
sanwin
一般會員


發表:20
回覆:60
積分:16
註冊:2002-06-03

發送簡訊給我
#2 引用回覆 回覆 發表時間:2002-10-28 14:02:53 IP:210.201.xxx.xxx 未訂閱
把BorderStyle設成bsToolWindow或bsDialog,就不能change form size了 我是剛入門的子弟,請大家多多指教!
------
我是剛入門的子弟,請大家多多指教!
RaynorPao
版主


發表:139
回覆:3622
積分:7025
註冊:2002-08-12

發送簡訊給我
#3 引用回覆 回覆 發表時間:2002-10-28 14:11:56 IP:203.73.xxx.xxx 未訂閱
引言: 請教各位大大 當 MDIChild 不為最大化時,我該如何控制不讓 User Move Form or Change Form Size ? thanks
Move--> DockSite 設為 true Size--> bsSingle 也可以
------
-- 若您已經得到滿意的答覆,請適時結案!! --
-- 欲知前世因,今生受者是;欲知來世果,今生做者是 --
-- 一切有為法,如夢幻泡影,如露亦如電,應作如是觀 --
sfy257000
一般會員


發表:21
回覆:13
積分:6
註冊:2002-07-11

發送簡訊給我
#4 引用回覆 回覆 發表時間:2002-10-28 15:51:48 IP:61.222.xxx.xxx 未訂閱
對不起各位大大....我可能表達的不是很好 MDIForm為最大化 但其下的MDIChild並不是為最大化 我要如何控制MDIChild不能Move? 因MDIChild在Move時,若超過MDIForm的寬度或高度時 就會有Scroll的出現
------
*********************
* 只要用心一定成功 *
*********************
sfy257000
一般會員


發表:21
回覆:13
積分:6
註冊:2002-07-11

發送簡訊給我
#5 引用回覆 回覆 發表時間:2002-10-28 15:51:56 IP:61.222.xxx.xxx 未訂閱
對不起各位大大....我可能表達的不是很好 MDIForm為最大化 但其下的MDIChild並不是為最大化 我要如何控制MDIChild不能Move? 因MDIChild在Move時,若超過MDIForm的寬度或高度時 就會有Scroll的出現
------
*********************
* 只要用心一定成功 *
*********************
sanwin
一般會員


發表:20
回覆:60
積分:16
註冊:2002-06-03

發送簡訊給我
#6 引用回覆 回覆 發表時間:2002-10-28 16:49:48 IP:210.201.xxx.xxx 未訂閱
你可以在mdichild form的onpaint 事件中寫上 form.top:=xx; form.left:=xx; 把位置寫死就好了 我是剛入門的子弟,請大家多多指教!
------
我是剛入門的子弟,請大家多多指教!
danny
版主


發表:100
回覆:522
積分:595
註冊:2002-03-11

發送簡訊給我
#7 引用回覆 回覆 發表時間:2002-10-28 16:51:42 IP:210.202.xxx.xxx 未訂閱
AutoScroll := False DockSite := False DragKind := dkDrag DragMode := dmManual 不知道是不是您要的 ?
------
將問題盡快結案也是一種禮貌!
sanwin
一般會員


發表:20
回覆:60
積分:16
註冊:2002-06-03

發送簡訊給我
#8 引用回覆 回覆 發表時間:2002-10-29 15:23:38 IP:210.201.xxx.xxx 未訂閱
你可以在mdi childform的private加上 procedure WMNCHitTest(var Msg: TMessage); message WM_NCHITTEST; 然後 procedure TForm2.WMNCHitTest(var Msg: TMessage); begin inherited; // 這樣,移動就不可能了... Msg.Result := HTCLIENT; end; 備註:如果要關閉childform就要另外寫一個button來close! 我是剛入門的子弟,請大家多多指教!
------
我是剛入門的子弟,請大家多多指教!
系統時間:2024-05-09 3:24:26
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!