怎样在启动主界面后，自动弹出一个子窗口？

Question

如题，谢谢！

Answer 1

A、如果在显示之前则可以在SHOW事件或CREATE事件中建立并显示该子窗口即可
B、如果是显示这后则可以在SHOW事件中启用定时器（主要用来延时）弹出，也可以在IDLE事件中处理（需要进行简单判断）

Answer 2

uses
  Forms,
  MainFrm in 'MainFrm.pas' {MainForm},
  Unit1 in 'C:\Program Files\Borland\Delphi7\Projects\Unit1.pas' {Form1};{$R *.res}begin
  Application.Initialize;
  Application.CreateForm(TMainForm, MainForm);
  form1.ShowModal;  //------------------------------要弹出的窗口
  Application.Run;

Answer 3

一楼已经说的很清楚了。begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TForm2, Form2);
  Application.Run;
end.//////////////////////////
窗体上放一个Timer，全部是默认值。
uses unit2;procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Form2.Show;
  Timer1.Enabled:=False;
end;

Answer 4

再主界面的Show事件中应该是可以地

Answer 5

等等，我找找～～…………终于找到了～
procedure TMainForm.FormCreate(Sender: TObject);
begin
  FLogo:=TFLogo.Create(application);
  FLogo.ShowModal;
end;

Answer 6

不知道楼上几位有没有试验过在SHOW里的效果？