现在有两个窗体FORM1和FORM2,FORM1的FORMSTYLE设置为fsMDIForm,FORM2的FORMSTYLE设置为fsMDIChild且把FORM2移动到AVAILABLE FORMS中,现在想在FORM1中打开FORM2,然后在FORM1中的菜单中加入如下代码:
procedure TFORM1.N3Click(Sender: TObject);
var
FORM2:TFORM2;
begin
if not assigned (FORM2)then
FORM2:=TFORM2.Create(application);
FORM2.Show;
end;
但是却不显示!不知道为什么?请制教!多谢了!
procedure TFORM1.N3Click(Sender: TObject);
var
FORM2:TFORM2;
begin
if not assigned (FORM2)then
FORM2:=TFORM2.Create(application);
FORM2.Show;
end;
但是却不显示!不知道为什么?请制教!多谢了!
解决方案 »
- 关于Delphi时间加减问题,紧急求助啊
- 想设计这么一个程序:当我在图形界面下,双点其中的各个文本框,下拉框时,框中的内容能被自动复制到指定的文本文件中?
- 如没有知道数字滤波的朋友?
- 一个关于存储过程的问题
- 如何将一段文本,写代码导入到数据库中???
- ======★☆★请教:如何禁用 Flash.ocx 控件的默认的右键?★☆★=====
- 来者有分:::大家来讨论一下怎么做个全屏的翻译程序?
- 程序运行中突然自动退出(寻求捕获所有异常的方法)
- 程序为何不能正常运行?见笑了。
- gsm610转pcm后有杂音,什么原因?
- delphi
- 编译时没出错,但运行时出现错误对话框(具体详见内容).而且更奇怪的是,原先是可以运行的,后来突然不行了!真搞不懂
varbegin
if not assigned (FORM2)then
FORM2:=TFORM2.Create(application);
FORM2.Show;
end;
这样就行.
if not assigned (FORM2)then
FORM2:=TFORM2.Create(application);
FORM2.Show;
end;
应该这样,,刚才上面多写了个var
我按照你的方法试了!是可以显示了!但是当FORM2
但是当FORM2最大化的时候和FORM1成为一体了!怎么才能让FORM2最大化的时候不能大过FORM1?