求助,希望帮忙解决一下。

huangrx 2002-11-01 04:25:43
是这样的,我用一个FORM1作为MAINFORM,然后,我想在FORM1内点击一BUTTON后,能弹出FORM2(FORM2的作用:FORM2内放置一DBLOOKUPLISTBOX,用来存放记录的帮助信息,点击某一行记录后,FORM2再消失),而且,FORM1不能消失,即FORM2,FORM1同时出现,FORM2叠在FORM1之上。当然,FORM2的形状比FORM1小的多。
不知,我说得是否清楚,请高手指教.
谢谢!
...全文
14 5 打赏 收藏 转发到动态 举报
写回复
用AI写文章
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
hansion3406 2002-11-01
  • 打赏
  • 举报
回复
如果两个不是独立的PAS。。
那么。。继承一个和FORM1一样子的。。
Var Form2:Tform1;
begin
form2.create(self);
form2.height:='你想要的高度。';
form2.width:='你想要的宽度';
form2.show;
end;
如果是独立的PAS。
那么要在implemetion中加入:
uses unit2;//如果你的FORM2是在unit2.pas中的话。。
goodloop 2002-11-01
  • 打赏
  • 举报
回复
同Snakeguo(楠) (莫等闲&up2myself
huangrx 2002-11-01
  • 打赏
  • 举报
回复
谢谢snakeguo的建议,似乎是可行的。
另:问jwboyr:我只看到有mdiapplication而没看到mdiform?
Snakeguo 2002-11-01
  • 打赏
  • 举报
回复
点Button的时候Form2.ShowModal;
点击某一行记录后Form2.ModalResult := mrOK就好了
jwboyR 2002-11-01
  • 打赏
  • 举报
回复
用mdiform,然后form2的DBLOOKUPLISTBOX的双击事件中(DBCLICK)加入你想要实现的代码!

5,392

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧