刚接手别人做的一个软件碰到一个问题：程序运行时在MDI主窗体中上下两个子窗体同时显示，请问这是怎么实现的？高手请进，高分！！！！！

Question

刚接手别人做的一个软件碰到一个问题：程序运行时在MDI主窗体中上下两个子窗体同时显示，请问这是怎么实现的？看了一下代码发现有一个过程是实现在启动时调用窗体的，但是我做了一次却调用不了，单步调试发现是在运行到“Application Run"的时候调用该过程的，请问这是如何设置在运行”Application Run"调用该过程？？？？

Answer 1

它Show出了两个窗口，
然后　，它应该还调用　了Cascade方法~~~
================================================================
　　　　　◆◆◆ CSDN查询助手，查询方便快捷◆◆◆ 下载地址：  
　http://CoolSlob.ifood1.com/Download/CSDNFinder.exe  
　http://CoolSlob.8u8.com/Download/Tools/CSDNFinder.Slob[更名为.exe即可]  
功能简介：
　　1、打开
　　>>> 输入贴子号码。如：1017425
　　>>> 输入连接地址。如：http://expert.csdn.net/Expert/TopicView1.asp?id=1009387
　　2、给我提点
　　　　>>> 这里可以填写您的建议意见和BUG报告！
　　3、自动认识操作系统语言（简体与繁体自动切换，无需人工干预）
　　4、其它：略！　　

Answer 2

更正：应用是调用Tile方法~
================================================================
　　　　　◆◆◆ CSDN查询助手，查询方便快捷◆◆◆ 下载地址：  
　http://CoolSlob.ifood1.com/Download/CSDNFinder.exe  
　http://CoolSlob.8u8.com/Download/Tools/CSDNFinder.Slob[更名为.exe即可]  
功能简介：
　　1、打开
　　>>> 输入贴子号码。如：1017425
　　>>> 输入连接地址。如：http://expert.csdn.net/Expert/TopicView1.asp?id=1009387
　　2、给我提点
　　　　>>> 这里可以填写您的建议意见和BUG报告！
　　3、自动认识操作系统语言（简体与繁体自动切换，无需人工干预）
　　4、其它：略！　　

Answer 3

这是窗体的显示方式选择成平铺(cascade)(不好意思，那个单词给忘记了)，
默认方式是层叠的

Answer 4

具体的写法：
//假设你已经显示了第一个窗口：
procedure TMainForm.showotherformclick(Sender: TObject);
begin
  with  MainForm.ActiveMDIChild do
  begin
    width:=mainForm.width;
    heigth:=mainform.height/2;
    left:=0;
    top:=0;
  end;
  if (not Assigned (ZmdStockEdit)) then
    ZmdStockEdit:=  TZmdStockEdit.Create(Application);
  with zmdstockedit do
  begin
  width:=mainform.width;
  height:=mainform.height/2;
  left:=0;
  top:=mainform.height/2+1;
  Show;
  end;
end;

Answer 5

是不是可以先调用一个窗体，再在该窗体的create事件里调用另一个窗体？

Answer 6

to uusong:
当然可以呀！
不过，第一个窗体就是成为当前子窗体。

Answer 7

TileMode := tbVertical;
  Tile;OR  
 TileMode := tbHorizontal;
  Tile;

Answer 8

是在当前程序下调用另外一个程序，用application run 调用的！