多窗口的显示

        在进销存软件中经常会用到输入货品信息,查询相关报表等数据......按以往的程序,我全部是采用的showmodal模式,这样就极不方便,必须关闭了这个窗口后,才可以打开另一个窗口。于是想使用多个窗口同时显示在屏幕上,可以点击窗口切换。按常规换成了show模式,结果一测试,发现一个窗口出现了,另一个窗口就没有了,或者是跑到主窗口的背后去了。一点也不方便。在网上转了一天,今天终于发现在窗口的 FormStyle属性,设置FormStyle:=fsStayOnTop,然后再使用: 

if not Assigned(Form2) then
  begin
    Form2 := TForm2.Create(self);
    Form2.show;
  end else
    Form2.BringToFront;

就可以实现以这个要求。

posted @ 2011-11-03 23:34  bingege  阅读(246)  评论(0编辑  收藏  举报