Delphi 显示两个窗口

admin

在Delphi中，显示两个窗口可以通过创建两个不同的窗体类实例来完成。以下是一个简单的例子：

1. uses
   
2.   Form1, Form2; // 确保你的两个窗体单元已经在uses部分声明
   
3. 
   
4. procedure TForm1.ShowTwoForms;
   
5. var
   
6.   Form2: TForm2;
   
7. begin
   
8.   Form2 := TForm2.Create(nil); // 创建第二个窗体的实例
   
9.   try
   
10.     Form2.Show; // 显示第二个窗体
    
11.   except
    
12.     Form2.Free; // 如果出现异常，确保释放资源
    
13.     raise; // 重新抛出异常
    
14.   end;
    
15. end;

复制代码

在这个例子中，Form1 是主窗体，Form2 是第二个要显示的窗体。你需要确保 Form1 和 Form2 是你的窗体设计单元的名称。调用 ShowTwoForms 方法会创建并显示 Form2。使用 try...except 块确保即使发生错误，第二个窗体也会被适当地释放。