Delphi 如何简单的做一个登录窗体

1. 在 工程文件里不要创建  loginFORM

  Application.Initialize;
  Application.MainFormOnTaskbar := True;
  Application.CreateForm(TMainForm, MainForm);
  Application.Run;

2  在主窗体的FormCreate

procedure TMainForm.FormCreate(Sender: TObject);
begin
  with TLoginForm.Create(self) do
  try
    ShowModal();
  finally
    Free()
  end;
end;

3. 登录窗体重载

  protected
    procedure CreateParams(var Params: TCreateParams); override;

procedure TLoginForm.CreateParams(var Params: TCreateParams);
begin
  inherited CreateParams(Params);
  Params.ExStyle := Params.ExStyle or WS_EX_APPWINDOW;
end;