菜问题，先答先给：有关窗口的。

Question

program test;uses
  Forms,
  MainFrm in 'MainFrm.pas' {MainForm},
  SplashFrm in 'LoginFrm.pas' {LoginForm};{$R *.RES}
begin
  Application.Initialize;
  { Create the login form }
  LoginForm := TLoginForm.Create(Application);
  LoginForm.Showmodal;   
  LoginForm.free;
  LoginForm := nill;  Application.CreateForm(TMainForm, MainForm);
  Application.Run;
end.

Answer 1

一个应用实例：      //显示启动画面
      frmFlash:=TfrmFlash.Create(nil);
      try
        frmFlash.Show;
        frmFlash.Update;
        Application.ProcessMessages;
        //创建主窗体但不显示,这段时间正显示启动画面
        Application.CreateForm(TfrmMain, frmMain);
      finally
        frmFlash.Free;
      end;      //创建登录窗体并显示
      frmLogon:=TfrmLogon.Create(nil);
      try
        Logoned:=frmLogon.ShowModal;
      finally
        frmLogon.Free;
      end;
      if Logoned=mrOK then Application.Run
        else Application.Terminate;

Answer 2

program test;uses
  Forms,
  MainFrm in 'MainFrm.pas' {MainForm},
  SplashFrm in 'LoginFrm.pas' {LoginForm};{$R *.RES}
begin
  Application.Initialize;
  { Create the login form }
  LoginForm := TLoginForm.Create(Application);
  LoginForm.Showmodal;    if LoginForm.ModalResult = mrOk then
  begin
    Application.CreateForm(TMainForm, MainForm);
    Application.Run;
  end;
end.   

Answer 3

一个应用实例：      //显示启动画面
      frmFlash:=TfrmFlash.Create(nil);
      try
        frmFlash.Show;
        frmFlash.Update;
        Application.ProcessMessages;
        //创建主窗体但不显示,这段时间正显示启动画面
        Application.CreateForm(TfrmMain, frmMain);
      finally
        frmFlash.Free;
      end;      //创建登录窗体并显示
      frmLogon:=TfrmLogon.Create(nil);
      try
        Logoned:=frmLogon.ShowModal;
      finally
        frmLogon.Free;
      end;
      if Logoned=mrOK then Application.Run
        else Application.Terminate;

Answer 4

program renamefile;uses
  Forms,
  rename in 'rename.pas' {Form1},
  Unit2 in 'Unit2.pas' {Form2};{$R *.res}begin
  Application.Initialize;
  With TForm2.Create(nil)do
    if ShowModal = 1 then
    begin
      Application.CreateForm(TForm1, Form1);
      Application.Run;
    end;
end.// 下面是如何设置控制变量;unit Unit2;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;type
  TForm2 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form2: TForm2;implementation{$R *.dfm}procedure TForm2.Button1Click(Sender: TObject);
begin
  ModalResult := 1;
end;procedure TForm2.Button2Click(Sender: TObject);
begin
  ModalResult := 2;
end;end.

Answer 5

那要是用户信息在数据库服务器上呢，怎么读取用户信息？在login 窗口里放置连接到数据库的控件？