ShowModal窗体的ModalResult问题。(200分)

Button不设置ModalResult，在Click事件中根据需要写如下代码：ModalResult := mrOk
（也可以为其他的值，只要不为mrNone）。比如：
procedure Button1Click(Sender: TObject)
begin
......
if 满足条件 then
ModalResult := mrOk
end;
这样就不会关闭Form，我就是这样做的

设一标志变量：

closeb : Boolean;

procedure TPasswordDlg.FormCloseQuery(Sender: TObject;
var CanClose: Boolean);
begin
canclose:= closeb;
end;

procedure TPasswordDlg.OKBtnClick(Sender: TObject);
begin
if 身份验证通过 then
closeb := true;
else
closeb := False;
end;

procedure TPasswordDlg.CancelBtnClick(Sender: TObject);
begin
closeb := true;
end;

多人接受答案了。