我想在主窗体显示后，不点击其他按钮或其他操作就显示另外一个窗体，不知如何做到？

[zzyyxxjc]

我想在主窗体显示后，不点击其他按钮或其他操作就显示另外一个窗体，不知如何做到？重分悬赏！

[samcrm]

设置为自动创建窗体

[fuyifan]

在OnShow 事件中 ****（窗体).show;
不好用吗？
或者在OnCreate事件中
****.create(selft);
****.show;

[dyzg]

呵呵，有个苯办法，在第一个窗体上加一个Timer,然后在第一个窗体on_show时间中激活Timer,在Timer的代码就上显示第二个窗体，最后将Timer关闭.这样的好处就是可以控制二个窗体显示的间隔

[GetWindowPos]

不是吧,这种问题也要做得这么复杂

Private Sub Form_Load()
form2.Show '显示第二个窗体
End Sub

[duxin]

上面的方法 很全了 要是不是立即显示 建议用 dyzg(地藏) 的方法

[zjj_horse]

同意GetWindowPos(阿汪)的说法。

[vchoushen6]

如果是在显示FORM1之后，随即显示FORM2，应该是在FORM1的ACTIVE事件里吧。

[kuan]

在工程文件中：

Application.Initialize;
Application.CreateForm(TForm1, Form1);
……
Form2.show; //你要显示的窗体
……
Application.Run;

[xtao]

我是这样的：

在Form1的OnCreate中给自己发PostMessage,比如MSGID = WM_USER + $0100
在Form1的处理MSG的消息处理中创建第二个Form

[大地精灵]

在OnShow里面写代码就行了，
Form2.show;
或者用Timer控件可以控制多长时间显示

to GetWindowPos(阿汪)
DELPHI中有这个写法吗？那好象是VB的吧

[kejian]

program Project2;

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);
form2.Show; //不知道是不是你想要的?
Application.Run;
end.

====================================================================

像和尚的唐僧。。。

====================================================================

[fhuibo]

OnShow 事件中写

[ZyxIp]

我觉得 dyzg(地藏) 的方法不错，将时间设的短一点，这样比较好看，如果第二个窗体显示时要读入的数据比较多更需要这样做。

[zzyyxxjc]

可能我没说清楚，我的意思是：做一个像SplashForm窗口一样的效果，只是这个窗口一直保留到主程序结束。这个问题我已经解决了，很感谢大家的关注，来者有分啊！