主菜单界面不能够(SHOW)出来。请指点!(50分)

  • 主题发起人 主题发起人 fj
  • 开始时间 开始时间
F

fj

Unregistered / Unconfirmed
GUEST, unregistred user!
我有一个原来做好了的PC版的程序,现来增加一个登录运行口令,但加密算法及编译成功后,新增登录窗口登录后,那个原来作为无口令的主菜单界面,如今在登录验正加密口令后,却不能够在符合条件下(SHOW)出来。请指点!
 
Project ->options选项下的Main form 是什么?
 
先象烂泥说的那样看一下。
然后呢......最好在bpr文件中加上显示口令窗口的代码。
 
agree liguang:
在bpr中加代码,可参考splash窗口代码:

//创建并显示封面
SplashForm:=TSplashForm.Create(Application);
SplashForm.Show;
SplashForm.Update;
while (GetTickCount-ITime)<2000 do; //延迟两秒

Application.CreateForm(TMainForm, MainForm);
Application.CreateForm(TTitleForm, TitleForm);
Application.CreateForm(TJbzlglQueryForm, JbzlglQueryForm);
TitleForm.Left:=Trunc((MainForm.ClientWidth-TitleForm.Width)/2);
TitleForm.Top:=Trunc((MainForm.ClientHeight-TitleForm.Height)/2);

SplashForm.Hide;
SplashForm.Free;
另外,将登陆窗口showmodal后,验证登陆成功后将ModalResult设为mrOK,登陆窗
口.Hide;即可返回继续执行代码.
 
中间应该加判断,是否正确。
 
1,先在Project ->options选项下的Main form是否正确!
2,你看一看你的登陆框程序是否有错误,
 
delphi认为如果mainform close掉,那么
程序就终止了,所以如果一登录框作mainform,
在他close后,其他窗体都不能show出来了。
 

Application.CreateForm(TMainForm, MainForm);
Application.CreateForm(TLoginForm, TLoginForm);

if LoginForm.ShowModal=mrOK then Application.Run
else
begin
LoginForm.Free;
MainForm.Free;
end;
 
时间太久,强制结束。 wjiachun
 
后退
顶部