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
    版权声明:本文为博主原创文章,转载请附上博文链接!

  • 相关阅读:
    vue 路由嵌套 (子路由跳转报错或者失效解决方法)
    vue-cli3主题色系统
    vue项目哀悼日
    el-upload 文件上传显示进度
    课表
    uni-app 开发钉钉小程序
    Linux/Centos/Ubuntu crontab备份数据库
    【转】鲁迅为厦大题写校名,为啥4个字错了3个?专家:鲁迅故意写错的。
    计数单位资料汇总(个十百千兆京...,分厘毫丝忽微纤沙尘埃...)
    【转】如意算盘:中国的第五大发明
  • 原文地址:https://www.cnblogs.com/westsoft/p/10674635.html
Copyright © 2011-2022 走看看