同上,选择不同的登陆选项,主窗体不同,这个我试过,但是不行
Form_login := TForm_Login.Create(nil);
try
Form_Login.ShowModal;
if Form_Login.ModalResult = 2 then
begin
Application.Terminate;
exit;
end;
finally
Form_login.Destroy;
end;
if Trim(_DatabaseName)<>'HE' then
begin
Application.CreateForm(TForm_main, Form_main) ;
Application.CreateForm(TForm_main_HE, Form_main_HE);
end else
begin
Application.CreateForm(TForm_main_HE, Form_main_HE);
Application.CreateForm(TForm_main, Form_main) ;
end;
这样不行,怎么实现呢?
Form_login := TForm_Login.Create(nil);
try
Form_Login.ShowModal;
if Form_Login.ModalResult = 2 then
begin
Application.Terminate;
exit;
end;
finally
Form_login.Destroy;
end;
if Trim(_DatabaseName)<>'HE' then
begin
Application.CreateForm(TForm_main, Form_main) ;
Application.CreateForm(TForm_main_HE, Form_main_HE);
end else
begin
Application.CreateForm(TForm_main_HE, Form_main_HE);
Application.CreateForm(TForm_main, Form_main) ;
end;
这样不行,怎么实现呢?
解决方案 »
- FireMonkey初体验-XE2在MAC下的应用程序开发
- turbo delphi 如何完成注册问题
- 请问一下,delphi弹出这个错误,应该怎么解决!
- 110110110110110110110------------->>数据表的行列转换,哪位高手给指点?多谢了!
- tquery里面如何传递日期参数问题?
- ★★★★(离散点)非线性回归的算法(最好有Delphi例子)
- 编写web浏览器,如何让网页在同一窗口打开?
- 如何获取一个字段的最大值
- tedit的一个小问题
- 如何作出象IE收藏选项里的动态菜单
- 请教:关于通过回车(#13)激发事件的问题
- 大家都来看看吧,如有知道答案的,请告诉我吧,谢谢!
错误提示??????????????Application.CreateForm(TForm_main, Form_main) ;
Application.CreateForm(TForm_main_HE, Form_main_HE);改为:
Form_Main:=TForm_Main.Create(Application);
Form_Main_He:=TForm_Main.Create(Application);
begin
Application.CreateForm(TForm_main, Form_main) ;
end else
begin
Application.CreateForm(TForm_main_HE, Form_main_HE);
end;这样不行吗?