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转换长文件名函数 getshortname

Delphi 释放bitmap

Delphi 判断文件存在的一个api函数

winapi 字符及字符串函数(1): charlower - 字符或字符串转小写

Delphi多线程程序示例（最简单的多线程）

Delphi 合并两个 wav 文件流的函数

Delphi回调函数高级应用

Delphi map file

Delphi 去除右边指定字符

Delphi opentextfiledialog用法

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

转载请注明出处：木庄网络博客 » Delphi unigui确认对话框