论坛首页 › 电脑综合 › delphi如何编写密码验证框？

yesful 发表于 2010-12-31 21:01:42

delphi如何编写密码验证框？

在2010年即将结束的这一刻，请教大家一个问题，如何在delphi中实现如下效果：在修改内容时，点“确认”控件后，弹出一个密码验证框，验证密码正确则返回 True,不正确刚返回False~~~有什么方法可以实现？麻烦大家指点一下~~~

SkyGz 发表于 2010-12-31 23:13:44

随手写的.
function tform1.checkpwd(S1:String):Boolean;
Begin
Result :=CompareText(S1, "我的密码") = 0
end;

procedure tform1.buttonokclick(sender:tobject);
begin
if passwordDlg.ShowModal= IDOK then
Begin
    If Checkpwd(PasswordDlg.PassEdit.Text) Then
    ShowMessage('正确') else showmwssage('错误');
End;

end;

查看完整版本: delphi如何编写密码验证框？