一个管理系统的登录窗口放在哪呢？   Application.CreateForm(Tfm_login, fm_login);   fm_login.ShowModal;   Application.Run; 有人说象上面一样放，但我那样做不行，不管密码和用户名对不对，就直接进入了主界面！我又试了一种方法，把登录窗口作为主窗口，可是这样做登录窗口关闭以后，程序也关闭了，没有达到我要的效果！ 请问fm_login.ShowModal;这句话应该放在哪才行？怎样才能实现正常的登录呢？    

放在 MainForm 的 FormShow 事件罷 若成功則不用做甚麼 MainForm 就會 show 出來 若失敗 Application.Terminate 就會結束程式。 參考 : http://delphi.ktop.com.tw/topic.php?topic_id=27562 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=30317 發表人 - Justmade 於 2003/05/15 13:17:14

Application.Initialize;   fm:=Tfm.Create(Application);{Create创建闪现窗口对象}   fm.Show;   currentTime:=GetTickCount div 1000;   while ((GetTickCount div 1000)<(currentTime+2)) do   fm.Update;   Application.Title := '*****系统';   Application.CreateForm(Tmain_form, main_form);   Application.CreateForm(Tfm, fm);   if not main_form.Do_Logon then      begin      ShowMessage('与数据库连接失败，将退出本程序！');      Exit;      end;    fm.Hide;    fm.Free;{Free从内存中释放对象}    Application.CreateForm(TForm_data, Form_data);   Application.Run;    供参考！    风花雪月 e梦情缘

------
风花雪月 e梦情缘