Form

[supershan]

在我工程里有三个Form,分别是Form1,Form2,Form3,Form1为主界面，
从菜单调出Form2,
在Form2上调出Form3,同时关掉Form2,在Form3上调出Form2,同时关掉Form3.
请回复！

[zyb]

form3.onshow中加入form2.close
form2.onshow中加入form3.close

[startcn]

为什么不给我分数？
我的答案和他们是一样的吧
不是稀罕你那10分，只是觉得太没道理！

[supershan]

startcn:
sorry!由于我急于编程所以随便找一个一试如可以就给分了，下一次送你一些分可以吧！

[startcn]

这个很容易解决！
在FORM1中要调用FORM2，加入‘form2.show'即可！
要在Form2上调出Form3,同时关掉Form2，只需在FORM2中加入‘form3.show'，同时在
FORM3中的onShow事件中加入‘IF FORM2.ACTIVE THEN FORM2.CLOSE'就可以了!
同理,要在Form3上调出Form2,同时关掉Form3,也只要在FORM3中加入‘form2.show'，同时在FORM2中的onShow事件中加入‘IF FORM3.ACTIVE THEN FORM3.CLOSE'就可以了

[Venne]

为了简便起见，我在三个表单上分别放一个按钮，做这个效果。
//工程源文件

program Project1;

uses
Forms,
Unit1 in 'Unit1.pas' {Form1},
Unit2 in 'Unit2.pas' {Form2},
Unit3 in 'Unit3.pas' {Form3};

{$R *.RES}
begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.CreateForm(TForm2, Form2);
Application.CreateForm(TForm3, Form3);
Application.Run;
end.
//--------------------------------------------------------
//Form1的文件
//--------------------------------------------------------
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

uses Unit2;

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
form2.show;
end;

end.
//--------------------------------------------------------
//Form2的文件
//--------------------------------------------------------
unit Unit2;

interface

uses
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;

implementation

uses Unit3;

{$R *.DFM}

procedure TForm2.Button1Click(Sender: TObject);
begin
form3.show;
close;
end;

end.
//----------------------------------------
//FORM3的文件
//------------------------------------------
unit Unit3;

interface

uses
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.show;
close;
end;

end.