unigui确认对话框

 MessageDlg('是否' + DelBut.Caption + '该用户', mtConfirmation, mbOKCancel,
    procedure(Sender: TComponent; Res: Integer)
    begin
      if Res = mrOk then
      begin
        deldb(t);
      end;
    end);

--------------------

F_usersmes.ShowModal(
    procedure(Sender: TComponent; Res: integer)
    begin
      case Res of
        mrYes:
          begin
            if not setdbbyform(true) then
              ShowMessage('用户添加失败');
          end;
        mrNo:
          begin

          end;
      end;

    end);