密码验证的问题

[hhzqf1980]

我的密码验证窗体---一旦密码输入错误，就关闭了；
我不想让它关闭，让用户重新输入密码，直到正确为止！！
如何实现呢？
我的密码验证窗体是这样打开的：
if f_login.ShowModal = MROK then
Begin
Application.CreateForm(TF_main, F_main);
End ;
密码确定：
if Edit1.Text=password then
begin
Application.Run ;
end
else
begin
ShowMessage('你输入密码错误');
Edit1.SetFocus;
Edit1.Text:='';
end;
这样一旦密码输入错误，就关闭了？？？？？？？？？？？

[valorman]

朋友，输入密码的界面非用这个吗？用个Panel都行啊，也会比这个漂亮。

[net_jun]

贴的代码太少！不过这类问题一般都是代码次序不对造成地！

[sxy_9761]

var
i : integer;


i := 0;
while i<3 do
begin
if f_login.showmodal = mrOK then
begin
if f_login.edit1.text = password then
begin
Application.CreateForm();
Application.Run;
end;
end;
end;

[sxy_9761]

楼主的代码当然会关闭,输错密码后消息循环都没有。

[hhzqf1980]

to: sxy_9761() :输错密码后如何进行消息循环？？
请详细点，谢谢！！！

[bales]

做一个循环次数限定，
Application.Initialize;
try
Application.CreateForm(Tf_login, f_login);
for i:=0 to 2 do
begin
if f_login.ShowModal =mrOK then
Begin
if f_login.Edit1.Text='a' then
begin
Application.CreateForm(Tf_main, f_main);
f_main.ShowModal;
break;
end
else
begin
ShowMessage('你输入密码错误');
f_login.Edit1.SetFocus;
f_login.Edit1.Text:='';
end;
end
end
finally
f_login.free;
f_login:=nil;
end;
application.Run ;

[SydPink]

if f_login.ShowModal = MROK then........

只要 按下 确定 按牛 ，不关 结果任何（密码对和错），窗口都要关闭。

不要把这个按牛 的 ModalResult:=mrOK.就用一个普通 按牛，在这个按牛的事件里判断密码。
然后根据密码的结果做动作，包括加代码决定什么时候关闭这个窗体。
不要出现 诸如 if f_login.ShowModal = MROK then 这个样子的句子。否则都会关闭的。因为在按牛的 ModalResult=mrOK.导致窗体关闭。

[hhzqf1980]

问题是：我的代码是在工程文件中写的：
if f_login.ShowModal = MROK then
Begin
Application.CreateForm(TF_main, F_main);
End ;

[lzy6204]

设一个Boolean型的变量好了
密码正确就为TRUE；错误就为FALSE；
var
tt: boolean;
begin
While tt<>true do
begin
//验证密码
end;
end;

[sxy_9761]

Application.Run; //消息循环
SydPink(希望不再敲键盘!) 说得对