有关FORM(0分)

程序一运行自动显示FORM1 ，但我想先显示另一个FORM， 后再根据情况显示
FORM1，请问咱办？

用Case决定如何工作吧！

那谁是mainform呢？没什么难度！

你可以借鉴一下delphi例子中的splash窗口的用法。
如mastapp这个例子。

Form2用:
Form2 := TForm2.Create(Application);//创建
FOrm2.ShowModal;//显示
...//判断
if not passed then
begin
Form2.Free;
Application.Terminate;
exit;
end;

Application.Initialize;
Application.CreateForm(TMainForm, MainForm)
Form2.Free;
Application.Run;

我解决的办法是将FORM表的创建顺序移动就行了。
Application.Initialize;
Application.CreateForm(TPasswordDlg, PasswordDlg);//移动后这条语句先执行
Application.CreateForm(TForm1, Form1);
Application.CreateForm(TForm2, Form2);
Application.CreateForm(TForm3, Form3);
Application.CreateForm(TOKRightDlg, OKRightDlg);
Application.CreateForm(TQRListForm, QRListForm);
Application.CreateForm(TOKRightDlg1, OKRightDlg1);
Application.CreateForm(TOKRightDlg2, OKRightDlg2);
Application.CreateForm(TForm4, Form4);
Application.CreateForm(TOKBottomDlg, OKBottomDlg);
Application.CreateForm(TOKRightDlg3, OKRightDlg3);
Application.CreateForm(TForm5, Form5);
Application.CreateForm(TForm6, Form6);

呵呵，这样当然是可以，但前提条件是你的
Application.mainform不能是MDIForm，
否则，麻烦就大了。

时间太久，强制结束。 wjiachun