ถาม Delphi XE หน่อยครับ ทำไงให้ แสดง FormLogin หลังจากที่ MainForm แสดงแล้ว

[Multithreading]

ลอง Create  FormLogin ใน Event  OnShow หรือ OnCreate ของ MainForm
ก็ไม่ได้  โปรแกรมจะแสดง FormLogin ก่อน ที่ MainForm จะ Show ครับ

[naj]

 

[tigerfx]

ใน FormActivate ได้มั้ยครับ
แล้วค่อยสร้างฟอร์มในนั้น
  Application.CreateForm(TPasswordDlg, PasswordDlg);
  PasswordDlg.ShowModal;

ก่อน Application.Run;

[Multithreading]

ใช่ครับ  จะทำแบบ ของ อ.naj   เลยครับ

[dusit]

ลอง เพิ่ม timer ได้ไหมครับ

ลองใส่ open login form ใน  event ใน timer ตั้ง timer ให้ 3 วิค่อยขึ้น login form

timer set ให้ enabled ตอน on show ของ main form

[Multithreading]

ใช้ Timer ได้ผลตามที่ต้องการ

แปะ Timer1  ( interval=1,Enable=true)

procedure TFormMain.Timer1Timer(Sender: TObject);
begin
  timer1.Enabled:=false;
  FormLogin:= TFormLogin.Create(Application);
  try
     FormLogin.ShowModal();
  finally
      FormLogin.Free;
  end;
end