有这样一个问题，我现在有一个启动窗口（它先启动，我想让它帮Form2做一些创始化的工作怎么做呢？）

[Linux2001]

我在启动窗口中的user后加一个Form2然后做我的创始化工作，程序执行错误，怎么办啊？

[ch81]

可能在那个地方，FORM2还没创建，而你又操作FORM2，所以就出错。
你可以先把FORM2创建后，但是不显示，然后进行初始化。初始化完毕
后，你在FORM2。SHOW

[Linux2001]

我以为高手很多！唉！

[guig]

说得不清楚，帖点代码来看看。

[colacoca]

不能只在uses中加form2
还要在project1.dpr中加入
Unit2 in 'Unit2.pas' {Form2};
和
Application.CreateForm(TForm2, Form2);

具体代码如下

program Project1;

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

{$R *.RES}

begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.CreateForm(TForm2, Form2);
Application.Run;
end.

[zjqyb]

最好用动态创建Form,少用静态创建

[m_leaner]

uses form2;
procedure 初始花FORM2;
begin
form2:=Tform2.create(application);
form2.caption:='可以了吗?'
form2.left:=145;
end;

[m_leaner]

对不起,应该是uses unit2

[lzzqqq]

对啊，我找了半天也没找到Linux2001所说的user是个什么玩意!!!

[zgh1688]

在启动窗口里的启动事件里增写代码对form2做自己想做的事.但是必须要在启动窗口里面动态的创form2.我也只是说出供你试试,我也没有来得及做过.

[Steven_Chang]

如此便可：
工具栏中project->view source
....
Application.Initialize;
Application.CreateForm(TForm2, Form2);
Application.CreateForm(TForm1, Form1);
Application.Run;

[zjqyb]

干吗不在Form2中做一些创始化的工作
是不是VB用多

[m_leaner]

　回复人：m_leaner(m_kk)　(2001-6-26 18:50:38) 得0分
uses unit2;
procedure 初始花FORM2;
begin
form2:=Tform2.create(application);
form2.caption:='可以了吗?';
form2.left:=145;
end;

[ylk_pop]

program Project1;

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

{$R *.RES}

begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.CreateForm(TForm2, Form2);

Form1.ShowModal;//在此加入身份验证对不？那你只要在Form1中设置Application.Terminate还是Form1.Close就行了。

Application.Run;
end.

[Linux2001]

对阿，我是VB转过来的

[Linux2001]

对阿，我是VB转过来的

[saxphone]

在工程文件里添加如下代码：

program Project1;

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

{$R *.RES}

begin
Application.Initialize;
Form2:=Application.Create(TForm2);
Form2.Show;
Form2.Update;
Application.CreateForm(TForm1, Form1);
Form2.Close;
Form2.Free;
Application.Run;
end.

[saxphone]

在工程文件里添加如下代码：

program Project1;

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

{$R *.RES}

begin
Application.Initialize;
Form2:=Application.Create(TForm2);
Form2.Show;
Form2.Update;
Application.CreateForm(TForm1, Form1);
Form2.Close;
Form2.Free;
Application.Run;
end.

然后，在Form2.Create中添加你想要初始化的代码！

[lastshrill]

同意楼上