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