频道分类

Delphi unigui确认对话框

作者:admin 来源: 日期:2019/10/22 20:33:56 人气: 标签:

 
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);
————————————————

原文链接:https://blog.csdn.net/ozhy111/article/details/83784760