zoukankan      html  css  js  c++  java
  • unigui ShowModal、MessageDlg

    procedure Calback(Sender: TComponent; AResult: Integer);
    procedure TForm.Calback(Sender: TComponent; AResult: Integer);
    begin
      case AResult of
        mrYes:
          begin

          end;
        mrNo:
          begin

          end;
      end;
    end;

     //fomr窗体不需要代码创建 如下会报错

    var
      F_Envcategory: TF_Envcategory;
    begin
      F_Envcategory := TF_Envcategory.Create(self);
      F_Envcategory.ShowModal(Calback);

      FreeAndNil(F_Envcategory);

    //直接调用
      F_Form.ShowModal(Calback);

       

    //-------------------------------------------------

    Form.ShowModal(
             procedure(Sender: TComponent; Res: integer)
              begin
                      case Res of
                            mrYes :
                            begin
                              UniEdit1.Text:='1';
                            end;
                            mrNo :
                            begin
                              UniEdit1.Text:='0';
                            end;
                      end;

              end

     );


     
     ModalResult := mrYes;
     ModalResult := mrNo;

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

     MessageDlg('是否?', mtConfirmation, mbOKCancel,
        procedure(Sender: TComponent; Res: Integer)
        begin
          if Res = mrOk then
          begin
             
            end
            else
            begin
             
            end;

          end;
        end);
    ---------------------
    作者:ozhy111
    来源:CSDN
    原文:https://blog.csdn.net/ozhy111/article/details/83148923
    版权声明:本文为博主原创文章,转载请附上博文链接!

  • 相关阅读:
    sql count中加条件
    zero-copy总结
    问题诊断神器arthas
    rabbitmq 消息确认
    HttpRunner安装笔记(1)安装环境准备:pyenv安装
    centos7 安装rabbitmq3.4.1-1
    centos7 python2.7.5 升级python3.6.4
    测试面试必会sql(1)
    mysql5.6 无法远程连接问题解决
    Katalon 学习笔记(一)
  • 原文地址:https://www.cnblogs.com/westsoft/p/10674635.html
Copyright © 2011-2022 走看看