一个主界面,一个登录界面。主界面是通过Data Module动态建立,在主程序FormCreate的时候建立登录界面。在检测用户名及密码正确后进入主界面。可是不知道为什么在进入主界面时主界面闪一下就关闭了。。各位高手些帮忙解决下。。先谢了!!
解决方案 »
- 如何监视某个进程的磁盘文件操作
- 报表如何统计字段值
- 怎么獲得SQL函數或過程的傳回值
- #########Indy10.0.52的idtcpclient,idtcpserver进行通讯时候,如果网线突然断开,然后重新连接后,报10054异常,怎么屏蔽掉该
- DELPHI如何调用GetWindowThreadProcessId?
- 小弟有重要问题请教,请求各位高手帮忙???????特急,已经捆扰两我周了。。。。。
- 菜鸟问题:我用finddialog找到指定字符串时,如何使TDBMemo的滚动条滚动,使被找到的字符串能被看见?
- 100分的问题,然道真的就没有人能解答吗? 如果分不够我再加!进来有分!
- 请问众位高手一个关于格式化数值的问题,详细情况请进来一看, 谢谢,谢谢
- 这个AdoConnection应如何写?
- 如何实现已打印了数据记录,紧接是 --END---????
- 用delphi建立ISAPI的WebServices出现的问题。
可以在工程文件中这样处理
Application.CreateForm(TfrmMain, frmMain);
Application.CreateForm(TDataModule1, DataModule1);
Application.CreateForm(TfrmLogin, frmLogin);
FrmMain.Hide;
frmLogin.ShowModal;
Application.Run;
这样登陆到主界面以后就不会自动退出了
其实写登陆界面先创建主界面后创建登陆界面 不需要动态创建
简单的方法
用Form1当启动窗体,uses unit2;
在Form2中设置两个按钮,把它们的Caption分别设置为:确认、取消,ModelResult属性分别设置为:mrYes、mrNo
在Form1的OnShow中来判断
procedure TForm1.FormShow(Sender: TObject);
begin
if (Form2.ShowModal <> mrYes) or
(Form2.Edit1.Text <> '2') or
(Form2.Edit2.Text <> '3') then
close;
{也即是当不添入正确的用户名和密码,以及在选择按钮的时候没有点确认的时候,程序自动关闭}
end;