一个初学者的问题(10分)

  • 主题发起人 主题发起人 爱delphi者
  • 开始时间 开始时间

爱delphi者

Unregistered / Unconfirmed
GUEST, unregistred user!
本人刚学delphi不久,有个问题请大师们帮忙!
我做个登录框登录成功后那个框还在后台显示着,不知道怎么不要它那样显示呢?
还有要做个切换用户的功能,怎么做啊?
 
mainForm.show;
loginForm.close;
 
有这么简单吗?这样不行的,我试过了!
 
打开项目的DPR文件,修改成如下:
program project1;

uses
Forms,
frm_main in 'frm_main.pas' {Form_Main},
......
.......(略)

{$R *.res}

begin
Application.Initialize;
Form_login:=TForm_login.create(application);
Form_login.showmodal;
if Form_login.ModalResult=1 then
begin
Application.CreateForm(TForm_main, Form_main);
Form_login.Free;
form_login:=nil;
Application.Run;
end
else
begin
Form_login.Free;
form_login:=nil;
end;

end.
 
后退
顶部