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

为何这样的Form不能激活?

缺席
mustapha.wang
資深會員


發表:89
回覆:409
積分:274
註冊:2002-03-13

發送簡訊給我
#1 引用回覆 回覆 發表時間:2003-09-11 14:56:51 IP:218.1.xxx.xxx 未訂閱
procedure TForm1.Button1Click(Sender:TObject); begin   Form2:=TForm2.Create(Self);   Form2.Parent:=Self;   Form2.BorderStyle:=bsNone; Form2.Show; end; 如果不写红色一行,Form2就不能激活,它里面的TEdit等元件都无法获得焦点, 什么原因呢?有办法解决吗? 久病成良医--多试 千人之诺诺,不如一士之谔谔--兼听
------
江上何人初见月,江月何年初照人
cashxin2002
版主


發表:231
回覆:2555
積分:1937
註冊:2003-03-28

發送簡訊給我
#2 引用回覆 回覆 發表時間:2003-09-11 15:05:43 IP:63.84.xxx.xxx 未訂閱
您好﹗    請移除下句即可﹕ Form2.Parent := Self; 參考看看﹗ ===================== 努力,相信會獲得美麗! 忻晟
------
忻晟
mustapha.wang
資深會員


發表:89
回覆:409
積分:274
註冊:2002-03-13

發送簡訊給我
#3 引用回覆 回覆 發表時間:2003-09-11 15:27:06 IP:218.1.xxx.xxx 未訂閱
你误会我的意思了,我就是要Form1作为Form2的Parent,需要这个类似MDI的效果 还有一种应用,在ActiveForm里, 我在ActiveForm创建时,把MDI的主Form创建出来,把它Dock到ActiveForm上, 或把ActiveForm作为它的Parent(BorderStyle要设为bsNone),这样MDI主Form都正常,但MDIChild会不能激活,它上面的TEdit都不能获得焦点(有时鼠标右键 可以),因此,怀疑是Form机制的问题,故先撇开ActiveForm举了个简单的例子。    谢谢,再帮我看看。     久病成良医--多试 千人之诺诺,不如一士之谔谔--兼听
------
江上何人初见月,江月何年初照人
系統時間:2024-05-18 14:35:07
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!