登陆窗口(100分)

  • 主题发起人 主题发起人 hwj
  • 开始时间 开始时间
H

hwj

Unregistered / Unconfirmed
GUEST, unregistred user!
我想先出现登陆窗口,经密码验证后再决定是否出现系统窗口,
我修改工程文件后依然只出现系统窗口,登陆窗口一现而过,
我不想通过延时来出现登陆窗口,能否直接在登陆窗口后运行一个判断,
如用户名和密码正确后再运行系统程序
 
可以啊,不要在工程文件单元中创建系统主窗口,
,即删除类似语句application.createform(mainform,Tmainform);(mainform为系统主窗口)
,在你的登陆窗口的确定按钮中创建系统主窗口不就行了吗?
 
打开project source
program Project1;
uses
Forms,
Unit1 in 'Unit1.pas' {Form1},
Unit2 in 'Unit2.pas' {Form2};
{$R *.RES}
begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);//mianform
Application.CreateForm(TForm2, Form2);
//登陆窗口
Form2.showmodal;
Application.Run
end;

form2中:
如果登陆失败则调用halt;
成功系统继续运行
 
多人接受答案了。
 
后退
顶部