我想实现这样一个功能:
在显示主窗口后,同时显示登陆窗口。
我在新建的工程里,这样可以实现:
在主窗口的FormActivate写:
Application.CreateForm(TFrmLogin, frmFrmLogin);
FrmLogin.ShowModal;
但在我快完成的项目程序里这样却没反应,不知道是什么原因
在显示主窗口后,同时显示登陆窗口。
我在新建的工程里,这样可以实现:
在主窗口的FormActivate写:
Application.CreateForm(TFrmLogin, frmFrmLogin);
FrmLogin.ShowModal;
但在我快完成的项目程序里这样却没反应,不知道是什么原因
解决方案 »
- Delphi中使用OpenGL。谢谢了!
- DBGrideh如何在同表格中Drag数据
- dbgrid显示小数为何显示为2.20000004768372 ?
- 这种格式的报表怎么做?非常着急!谢谢大家
- 怎样让DBGrid拥有多层表头?不用第三方控件
- 求助:DELPHI的安装程序的制作问题。
- 请问这条语句有什么错误?
- Socket异步非阻塞send error wsaewouldblock 如何解决?
- word录制宏-- 选择性粘贴--图片问题!
- 怎样让窗体一出现即自动执行某一例程,然后自己关闭,最好放在哪个事件中?
- 为什么我的adoquery的ative属性不能设为true??
- 请问谁用过CDBurner这个控件啊,能给点实例指点一下吗?
var Fsign:TForm2;
begin
Fsign:=TForm2.Create(self);//动态创建登录窗体
while (Fsign.Edit1.Text<>'abc')and(Fsign.ModalResult<>mrcancel) do
begin
Fsign.ShowModal;
Fsign.Label1.Caption:='密码错误';
end;
if Fsign.Edit1.Text='abc' then
Fsign.Close
else Application.Terminate;
end;
Application.Initialize;
Application.Title :=‘某某系统’;
Application.CreateForm(Tmainform, mainform); //先创建MAIN窗体,但是不可见
Application.CreateForm(TDataModule1, DataModule1);
Application.CreateForm(Tloginform, loginform); //创建登陆login窗体
loginform.ShowModal ; //login窗体出现。
loginform.Free;
Application.Run;
end.
-----------
这样的问题只能靠你自己去检查。
建议检查你项目程序的工程文件,OnCreate,OnShow,OnPaint等先于OnActivate执行的部分,
看看是不是有代码令你的登陆窗口显示不出来。