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

关于MDI主窗体和子窗体之间的信息链接

答題得分者是:pceyes
wq236589
一般會員


發表:21
回覆:37
積分:16
註冊:2008-08-27

發送簡訊給我
#1 引用回覆 回覆 發表時間:2008-09-18 10:20:13 IP:124.237.xxx.xxx 訂閱
问题一:我新建了2个form,form1是主窗体form2是子窗体 我更改子窗体的Width, Height 属性以控制子窗体大小。但是,试运行以后子窗体并不是Width, Height 属性规定的大小,而是按照主窗体的比例自动缩小的,我怎么才能让子窗体按照Width, Height 属性规定的大小来运行?
问题二:如果一个主窗体下有数个子窗体 如何在打开一个子窗体同时关闭 已开启的其他子窗体?
如果有高手对DELPHI串口数据传输很在行请留下QQ以便日后请教
編輯記錄
wq236589 重新編輯於 2008-09-18 10:22:27, 註解 無‧
wq236589 重新編輯於 2008-09-18 13:09:57, 註解 無‧
pceyes
尊榮會員


發表:70
回覆:657
積分:1140
註冊:2003-03-13

發送簡訊給我
#2 引用回覆 回覆 發表時間:2008-09-18 11:06:34 IP:122.118.xxx.xxx 訂閱
Frm_child.WindowState := Maximized;
->
Frm_child.WindowState := Normal;
------
努力會更接近成功
wq236589
一般會員


發表:21
回覆:37
積分:16
註冊:2008-08-27

發送簡訊給我
#3 引用回覆 回覆 發表時間:2008-09-18 13:08:01 IP:124.237.xxx.xxx 訂閱
子窗体WindowState := Normal 
不是这个属性的问题
pceyes
尊榮會員


發表:70
回覆:657
積分:1140
註冊:2003-03-13

發送簡訊給我
#4 引用回覆 回覆 發表時間:2008-09-18 14:41:57 IP:122.118.xxx.xxx 訂閱
詢問問題一

您是要子窗大於主窗嗎?

回答問題二

1. 先關掉全部
VCL 元件使用或設計討論區(Delphi) » 如何讓 MDI Mail Form 亦有 "Close All" 所有 Child Form 的功能
http://delphi.ktop.com.tw/board.php?cid=30&fid=71&tid=57734

2. 再開你要的子窗。


------
努力會更接近成功
編輯記錄
pceyes 重新編輯於 2008-09-18 17:42:46, 註解 無‧
pceyes 重新編輯於 2008-09-18 17:44:00, 註解 無‧
wq236589
一般會員


發表:21
回覆:37
積分:16
註冊:2008-08-27

發送簡訊給我
#5 引用回覆 回覆 發表時間:2008-09-19 09:28:01 IP:123.181.xxx.xxx 訂閱
我要实现的是子窗体的大小由子窗体的Width, Height 属性规定、还有子窗体的位置由left,top属性规定。
我现在子窗体的大小和位置都是由主窗体的数据自动规定的。
pceyes
尊榮會員


發表:70
回覆:657
積分:1140
註冊:2003-03-13

發送簡訊給我
#6 引用回覆 回覆 發表時間:2008-09-21 07:18:46 IP:220.141.xxx.xxx 訂閱
我試沒有問題,你要不要檢查你自已設錯了些什麼。

附上我的測試Form2
http://delphi.ktop.com.tw/download.php?download=upload/48d5843227a46_mdi.zip
------
努力會更接近成功
wq236589
一般會員


發表:21
回覆:37
積分:16
註冊:2008-08-27

發送簡訊給我
#7 引用回覆 回覆 發表時間:2008-09-22 08:57:07 IP:123.181.xxx.xxx 訂閱
我现在也是在form1的单击事件中加入了form2的长宽属性,但是,我的程序加了很多代码和控件在打开form2的时候有明显变形痕迹(先是一个大小然后又变成另一个大小的过程)。
編輯記錄
wq236589 重新編輯於 2008-09-22 09:07:27, 註解 無‧
pceyes
尊榮會員


發表:70
回覆:657
積分:1140
註冊:2003-03-13

發送簡訊給我
#8 引用回覆 回覆 發表時間:2008-09-22 23:06:04 IP:220.141.xxx.xxx 訂閱
Perform($000B, Perform($000B, 1, 0); // 解鎖屏幕
RedrawWindow(Child.Handle, Nil, 0, RDW_FRAME RDW_INVALIDATE // 重畫子視窗
RDW_ALLCHILDREN RDW_NOINTERNALPAINT);

end;
------
努力會更接近成功
編輯記錄
pceyes 重新編輯於 2008-09-22 23:51:53, 註解 無‧
wq236589
一般會員


發表:21
回覆:37
積分:16
註冊:2008-08-27

發送簡訊給我
#9 引用回覆 回覆 發表時間:2008-09-23 11:49:32 IP:124.237.xxx.xxx 訂閱
谢谢帮忙了
系統時間:2024-05-05 22:21:54
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!