一个程序有三个窗体，一为主窗体。我在二中调用三。现在我想在三中关闭二应该怎么办？

Question

form1 建立中
form3.show;
form2.show;就可以了

Answer 1

你大家想一下，如果想用二调用三比如说显示三吧，那就一定要在二的use部分声明一下三。同时如果想在三中关闭二，那就也得在三的use部分声明一下二。这样一来就会出现“[Fatal Error] Unit2.pas(6): 循环的单元参考 'Unit2'。还是请大家很很的想一下。小弟没想出办法来。

Answer 2

不要自己手动添加其他单元，用菜单中的那个可以解决这个问题，其实在函数的实现前面还有一个Uses 在这里添加就没有循环了

Answer 3

unit3:
implementation
uses unit2
--------------------
unit2:
implementation
uses unit3
uses不要放在interface部分

Answer 4

又出错了。“[Error] Unit3.pas(26): ,'或 ';盼望但是 'PROCEDURE'发现”
unit Unit3;interfaceuses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;type
  TForm3 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form3: TForm3;implementation
   uses unit2
{$R *.DFM}procedure  TForm3.Button1Click(Sender: TObject);
begin
form2.close
end;end.
unit Unit2;interfaceuses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;type
  TForm2 = class(TForm)
    Button1: TButton;
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form2: TForm2;implementation
 uses unit3
{$R *.DFM}end.
unit Unit2;interfaceuses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;type
  TForm2 = class(TForm)
    Button1: TButton;
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form2: TForm2;implementation
 uses unit3
{$R *.DFM}end.

Answer 5

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Db, ADODB;type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementationuses Unit2;{$R *.DFM}procedure TForm1.Button1Click(Sender: TObject);
begin
  form2.show;
end;end.
-----------------------------
unit Unit2;interfaceuses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;type
  TForm2 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form2: TForm2;implementationuses Unit3;{$R *.DFM}procedure TForm2.Button1Click(Sender: TObject);
begin
  form3.show;
end;end.
-------------------------------------
unit Unit3;interfaceuses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;type
  TForm3 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form3: TForm3;implementationuses Unit2;{$R *.DFM}procedure TForm3.Button1Click(Sender: TObject);
begin
  form2.close;
end;end.

Answer 6

procedure onform3close(Sender: TObject);
begin
 form2.close;
end;