如何让检查权限窗口在主窗口之前显示？

[woyaofa]

一个管理系统在启动时，我想让系统先检查用户的合法性，并且主窗口显示在检测权限窗口的后面，在DELPHI中应该怎样实现，请各位大侠们指点，谢谢！

[flypuma]

天哪，你在工程文件里面作不就可以了，就是.dpr文件里面啊，在applicaion.run
之前，将你的窗口create，showmodal出来不就可以了，我保证这个时候没有主窗口

[WilliamGui]

你們這幫人無聊。

寫在DM中的TDatabase組件OnLogin事件中﹐

procedure TMainForm.dbMainLogin(Database:TDatabase; LoginParams:TStrings);
var
LoginForm:TLoginForm;
begin
LoginForm:=TLoginForm.create(Application);
try
Result:=LoginForm.showmodal;
if Result=mrOK then begin
ALoginParams.Values['USER NAME']:=LoginForm.edtUserName.text;
ALoginParams.Values['PASSWORD']:=.........;
end;
finally
LoginForm.free;
end;
end;

[luhongjun]

把他在主窗口的OnShow事件中进行模式调用.

[woyaofa]

我这样做过，但是主窗口还是显示在密码窗口的上方。我是这样写的

mima_form.show;
对吗？

[luhongjun]

是模式窗口：
mima_form.show;
Tmima_form *mima_form =new Tmima_form(Application);
mima_form->ShowModal();
delete mima_form;

[blackfiles]

在工程的单元文件里写，生成密码窗口，校验成功后在显示主窗口。

或者先生成密码窗口，主窗口动态生成。
if IsPower then
self.hide;
begin
try
MainForm:=TMainForm.Create(self);
MainForm.ShowModal;
finally
MainForm.Free;
end;
end;

[zzutlink]

在主窗体的oncreate事件中让权限检查窗体showmodal

[Rabbit_Lap]

可在项目文件中进行进行控制，如下：
Program P_Sauna
Uses
...
{$R *.RES}
begin
Application.Initialize;
Application.CreateForm(TFormmain, Formmain);
FormLogin := TFormLogin.Create(Application);//权限窗体
FormLogin.ShowModal;
Application.Run;
end.

[fccw]

我是在窗体的ONCREATE事件中做的。
fmLoginDlg := TfmLoginDlg.Create( Self);
try
if fmLoginDlg.ShowModal <> mrOK then
Application.Terminate; //...>>>>>>>>>>>>>>>
finally
fmLoginDlg.Free;
end;

[tikkypeng]

在工程文件里面中的applicaion.run之前让密码窗口显示出来就行了～