‘典型’登陆界面怎么做？

Question

所谓的典型指：首先主界面显示，仅接着，登陆界面以模式小窗体出来验证你的合法性。是不是很简单，可是我不会。
     我的做法：把登陆界面放到了主界面的ONSHOW事件中，主窗体没出来，登陆界面就出来了，很不爽！

Answer 1

可以这样做：在Form上放个TButton button1, 隐藏起来，在它的OnClick事件中写弹出登陆界面的代码，
然后在 Form的OnCreate 中写（在OnShow等也可以）：PostMessage(Handle,WM_COMMAND,0,Integer(button1.Handle));因为PostMessage是异步的，不会阻碍Form的创建和显示等过程。

Answer 2

在工程文件中写
program project1;uses
  Forms,
  Controls,
  SysUtils;
begin
  Application.Initialize;
  try
    CurrentPath:=ExtractFilePath(Application.ExeName);
    ComputName := GetComputName;
    Application.Title := '************ ---- 测试版';
    Application.CreateForm(TDM, DM);     数据模块
  Application.CreateForm(TfmMain, fmMain);   主窗口
  Application.CreateForm(TfmLogin, fmLogin);  验证窗口
  fmLogin.ShowModal;
    if fmLogin.ModalResult = mrOk then    
    begin
      fmLogin.Free;
      fmMain.Show;
      Application.Run;
    end
    else begin
      fmLogin.Free;
      fmMain.Free;
      dm.Free;
    end;
  except
    Application.Terminate;
  end;
end.

Answer 3

登陆窗体动态创建，放在主窗体OnActivate事件即可
procedure TForm1.FormActivate(Sender: TObject);
var  Fsign:TForm2;
begin
  Fsign:=TForm2.Create(self);//动态创建登录窗体
  while (Fsign.Edit1.Text<>'abc')and(Fsign.ModalResult<>mrcancel) do
     begin
        Fsign.ShowModal;
        Fsign.Label1.Caption:='密码错误';
      end;
  if Fsign.Edit1.Text='abc' then
   Fsign.Close
    else Application.Terminate;
end;

Answer 4

'所谓的典型指：首先主界面显示，仅接着，登陆界面以模式小窗体出来验证你的合法性。'
这样的话，最好用一个timer来实现

Answer 5

放个定时器吧：）procedure TForm1.FormShow(Sender: TObject);
begin
  Timer1.Interval:=1;
  Timer1.Enabled:=true;
end;procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Timer1.Enabled:=false;
  Form2.ShowModal;
end;

Answer 6

放Timer 可以了吧，学习中

Answer 7

clasj的
……
form2.showModal;
form1.hide
……