delphi多窗口登录器问题

longwei1218

用delphi制作登录窗口，根据图片猜想，应该是建立了两个窗口，而且不是fsMDIChild和fsMDIForm模式，应该是先弹出主窗口，然后再Show模式化窗口，但是不能用Oncreate事件，不然报错。
也不能用Onshow事件，因为用Onshow事件只显示一个窗口。那么，我应该怎么办？

ljq5555

同时出现2个窗体？
最简单的就是做个timer，第一个窗口FormCreate完成后延迟触发，然后用ShowModal弹出，不用考虑太多的关系

ljq5555

procedure TForm1.FormCreate(Sender: TObject);
begin
tmr1.Interval :=1000;
end;

procedure TForm1.tmr1Timer(Sender: TObject);
begin
form2.ShowModal   ;
tmr1.Interval :=0;
end;