关于一个多文档及登陆问题

Question

我做的东东有一个父窗体和几个子窗体,但登陆窗体要先与父窗体出现,我试了好多次都不会,请问该怎么办??????????

Answer 1

在主窗体的 Show 事件中显示登录窗体。

Answer 2

在主窗体的oncreate 的地方加入你要应用的窗体uses Unit2;procedure TForm1.FormCreate(Sender: TObject);
begin
form2.Show;
end;

Answer 3

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);
  form2.ShowModal;
  Application.Run;
end.form2 是登陆窗体

Answer 4

各位老大：
   是这样的，我一共有9个窗体，其中一个窗体的formstyle为fsmdiform，其余的为fsmdichild
。但是我要让登陆界面先于父窗体出现，这时就会出现错误，急！

Answer 5

登陆窗体不要设为fsmdichild,应为普通窗体.否则是不可能在fsmdiform之前出现的!
其他的上面的朋友都说了

Answer 6

to: jxc163(一水寒) 
 具体一点，谢谢

Answer 7

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);
  form2.ShowModal;//当form2关闭是才显示form1
  
  Application.Run;
end.

Answer 8

program Project1;uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {Form2};{$R *.res}begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.
然后在Form1中的OnCreate中输入如下代码：
var Form2 : TForm2;
begin
  Form2 := TForm2.Create(Application);
  Form2.ShowModule;
end;
  即可，怎么样好使啦吧！！！

Answer 9

to:ccchxy(长春程序员)
thanks!