if edit1.text:='afd' then
major.show
else
showmessage('error');
major.show
else
showmessage('error');
解决方案 »
- 请问如何获取指定窗口的坐标
- 放分!谁能告诉我有关“delphi属性,控件参考手册”的下载地址???
- 如何检测与query相连的datasource的个数?或与datasource相连的datacontrol的数目?
- delphi做asp组件,遇到了难解的问题.......
- 急救!!!!关于MTS/COM+问题,在线等等
- 打印的小问题
- 如何响应鼠标滚轮消息?
- delphi 调用DLL的问题
- 有个项目找人合作,月收入可以过10万RMB.
- 小弟我要去省城,大家给介绍几本好书吧.(delphi5开发人员指南我已经有了)
- 如何把一个表的某列的值给另外一列啊??
- 关于sql语句max的问题,大家帮帮我啊!
然后调用你原来的主窗口.
应该在主窗口create后没show出来时把密码窗口create然后showmodal
当用户密码输入正确后把密码窗口free.
可以使用模态窗口,这样不敲密码不通过就进入不到主程序窗口中。
yourmainform.showmodal;
使用模态窗口,只能在键入正确的用户名和密码的情况下才可以进入主程序
form2.showmodal
首先,你应该编辑你项目的.dpr文件.方法是选择project目录下的view source,你的code editor中就会
自动打开这个文件.你会看到你的project file中有类似下面这样的代码.
begin
Application.Initialize;
Application.CreateForm(Tmainform, mainform);
Application.Run;
end.这就是你程序开始时要运行的代码.比如你已经有了一个输入密码的form叫codeform.
在
Application.CreateForm(Tmainform, mainform);
之前加上这样几行:
codeform:=Tcodeform.create(Application);
codeform.showmodal;
codeform就会在mainform产生之前出现.而且codeform不关闭,程序就不会继续进行.
添加这两行之后,前我们刚看到的那段代码会变成下面这个样子:
begin
Application.Initialize;
codeform:=Tcodeform.create(Application);
codeform.showmodal;
Application.CreateForm(Tmainform, mainform);
Application.Run;
end.然后你就可以在codeform中处理用户的输入.如果cancel则终止Application.
不要忘了最后一定要释放 codeform.