delphi 登陆窗口大问题

来源：百度知道 编辑：UC知道 时间：2024/09/24 22:45:11
创建制作了Main主窗体，现在我写了个登陆窗体Access，怎么做才能实现启动程序或，显示主窗体前先通过登陆窗体来验证密码，密码错误才进入主窗体，密码错误就不能进入！声明:在Main单元的uses添加Access的单元名后，不能在登陆前实现先显示Access!!!

打开工程源文件，找到：
program Project1;

uses
Forms,
Unit1 in 'Unit1.pas' {MainForm},
Unit2 in 'Unit2.pas' {Access};
{$R *.res}

begin
Application.Initialize;
Application.CreateForm(TAccess, Access);
Application.CreateForm(TMainForm, MainForm);//这句
Application.Run;
end.

把 Application.CreateForm(TMainForm, MainForm);前切，并放到Access中将要显示mainform的语句之前：比如：
if 登录验证通过 then
begin
access.hide;
Application.CreateForm(TMainForm, MainForm);
mainform.Show;
end
else
showmessage("登录失败");
就是改变了窗口的创建顺序。这个也可以在菜单->projects->options中Auto-Create forms列表中改，只要用鼠标拖动Access到main的上面也能实现。