多窗口的显示

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

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

就可以实现以这个要求。

转载于:https://www.cnblogs.com/bingege/archive/2011/11/03/2235176.html