大家来看看，这段代码起什么作用，我认为不能运行的结果可以运行。

[Thumb168]

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

var
Form1,Formx: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
xApplication:=TApplication.Create(self);
xApplication.Initialize;
xApplication.CreateForm(TForm1, Formx);
xApplication.Run;
end;

[zhxfzhxf1]

up

[Thumb168]

xApplication.CreateForm(TForm1, Formx);
这里面的两个参数可以为其它的TForm。

[zhxfzhxf1]

同时我怀疑是否还有其他的单元