注册 登录
编程论坛 Delphi论坛

登陆窗体的小小问题

gulihuajhy 发布于 2006-05-19 10:07, 765 次点击
我就是做了一个登陆窗体,有个小小的问题,我想经过身份验证后能跳出另一个窗体,并隐藏登陆窗体,但不知道为什么我加了隐藏的代码后竟然跑不出来拉(有问题拉),那位高手帮我看看我那句应该添在那里,顺便看看代码啊有问题,谢拉。
begin
if (edit1.text='管理员') and (edit2.text='123') then
Form1.showmodal
Form2.Hide // 这句不写程序能运行,但写拉,放在这里就出了毛病拉
else
begin
if edit2.tag>=2 then
begin
showmessage('对不起,你不能进入本系统。');
close;
end
else
begin
showmessage('密码错误,请重新输入。');
edit2.setfocus;
edit2.selectall;
edit2.tag:=edit2.tag+1;
end;
end;
end;
7 回复
#2
kekele0072006-05-19 12:24
Form1.showmodal
Form2.Hide // 这句不写程序能运行,但写拉,放在这里就出了毛病拉


这里我习惯用form1.show;
form2.visible:=false;
#3
dsw182006-05-19 12:32
主窗体与子窗体设置
#4
wiliom2006-06-11 08:36

感谢上位老兄的提示,也为我解决了一个问题.

#5
dzy2006-06-12 08:28
Form2是登陆窗体吗]
是的话
直接用 hide 应该就可以了吧

还有少了 begin ......end

if (edit1.text='管理员') and (edit2.text='123') then
begin
Form1.showmodal;
Form2.Hide ;
end

[此贴子已经被作者于2006-6-12 8:39:40编辑过]

#6
Sewim2006-06-14 09:56
最好是把登录的窗体关掉,并Free一下,这样资源节约点
#7
tianykun2006-06-17 18:46

用close可以么??Form2.close;

#8
dzy2006-06-18 08:20
Form2如果是主窗口应该就不可以
关了就全部退出了
1