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;