Question

delphi编写的程序,如何让程序退出后在屏幕居中位置显示另一个窗口,要求详细代码.谢谢了!

Answer 1

是一个程序的两个窗口的互相切换还是两个独立程序之间的互相切换？

追问

一个程序，主程序退出后，显示一个附带的窗口

追答

这个容易
procedure TForm1.Button1Click(Sender: TObject);
begin
form1.Visible :=false;
form2.show;
end;

追问

是要程序退出后自动显示，不是点击按钮后显示的

追答

首先你要记住一点！main form 要退出的话整个程序都退出了。
所以只能是主窗口隐藏，其他的form退出后运行其他窗口 onClose
procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
form1.Visible :=true;
form1.Show;
end;

追问

我是想让主程序退出后，显示一个带TWebBrowser组件的窗口.然后附窗口关闭后，整个程序全部退出

追答

那么在 TWebBrowser 窗口中的onClose 过程内添加 mainform.close; 不就可以了！
如有问题可以将程序发给我 qq： 603353134