Delphi打开重复自动销毁上一个

在Delphi中，打开重复的窗口时，可以通过以下步骤自动销毁上一个窗口：

1. 在窗口的OnClose事件中添加代码，将窗口的变量设置为nil，以便在下一次打开窗口时重新创建窗口对象。

2. 在打开新窗口的代码中，添加检查窗口变量是否为nil的代码。如果不为nil，则先销毁上一个窗口对象，然后再创建新的窗口对象。

例如，以下代码演示了如何实现自动销毁上一个窗口：

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Unit2;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    FForm2: TForm2;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  FForm2 := nil;
end;

procedure OpenForm2;
begin
  if Assigned(Form1.FForm2) then
    FreeAndNil(Form1.FForm2);
  Form1.FForm2 := TForm2.Create(Application);
  Form1.FForm2.Show;
end;

end.

在这个示例中，TForm1有一个名为FForm2的私有变量，用于存储打开的TForm2对象。在FormCreate事件中，FForm2初始化为nil。

在OpenForm2过程中，首先检查FForm2是否为nil，如果不是，则先释放并销毁FForm2对象。然后创建新的TForm2对象，并将其显示。

这种方法可以确保每次打开窗口时只存在一个窗口对象。