Delphi 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);
――――――――――――――――

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

相关阅读 >>

Delphi 调用单元unit代码

Delphi xe5也可以开发 google glass应用

Delphi 关于禁止程序重复启动的另一种需要与实现

Delphi 安卓如何获取当前系统语言

Delphi tms web core twebhttprequest使用

Delphi隐藏指定程序的托盘图标

Delphi线程中动态创建ado控件

Delphi @ 与 ^ 运算符

Delphi压缩图片代码

Delphi 自带单元字符md5加密

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...

    暂无评论...