主窗体关闭时弹出身份认证

时间：2011-05-03 来源：比翼飞贤

在主窗体上调用退出认证需要把退出认证的窗体上将visible设为false，然后以showmodal来调用。根据showmodal返回值判断。

在退出窗口正确的认证时，把modalresult设置为idok。代码如下

View Code

1 procedure TF_ITMMAIN.FormCloseQuery(Sender: TObject;
2   var CanClose: Boolean);//主窗体事件
3  begin
4   F_Exit := TF_Exit.Create(self);
5   if F_Exit.ShowModal  = 2  then
6     CanClose := False
7   else CanClose := True;
8 end;

View Code

 1 procedure TF_Exit.Bt_CancelClick(Sender: TObject);
 2 begin
 3   inherited;
 4   close;
 5 end;
 6 
 7 procedure TF_Exit.bt_OkClick(Sender: TObject);
 8 begin//认证确定按钮
 9   inherited;
10   if (bt_User.Text <> UserManage.UserInf.UserN) and (ED_Password.Text <> UserManage.UserInf.UserP) then//判断方法
11   begin
12     Application.Messagebox('跟登陆账户密码不一致，请重新输入！','信息', MB_Ok+MB_DEFBUTTON2);
13   end
14   else
15   begin
16     Self.ModalResult := IDOK;
17   end
18 end;
19 
20 end.