zoukankan      html  css  js  c++  java
  • Delphi 模式窗体返回值ModalResult的使用方法及注意事项(转)

    1、基础知识简介:

    ModalResult是指一个模式窗体(form.showmodal)的返回值,一般用于相应窗体上按钮的ModalResult属性;

                           显示完窗体(关闭)后,会返回此属性预设的值做为返回值。

    2、该属性可以使用的参数(默认值是mrNone):该属性可以设置为mrOk 、mrCancel...等等

    mrNone   0                  None.   Used   as   a   default   value   before   the   user   exits.
    mrOk   1                      The   user   exited   with   OK   button. 
    mrCancel   2               The   user   exited   with   the   CANCEL   button.   
    mrYes   3                     The   user   exited   with   the   YES   button. 
    mrNo   4                       The   user   exited   with   the   NO   button. 
    mrAbort   5                   The   user   exited   with   the   ABORT   button. 
    mrRetry   6                   The   user   exited   with   the   RETRY   button. 
    mrIgnore   7                 The   user   exited   with   the   IGNORE   button. 
    mrAll   8                         The   user   exited   with   the   ALL   button.
    mrNoToAll   9               The   user   exited   with   the   NO   TO   ALL   button.
    mrYesToAll   10           The   user   exited   with   the   YES   TO   ALL   button.
     

    3、使用注意事项:

    1、包含ModalResult属性的按钮执行完毕之后,该按钮所在的窗体会自动关闭,不用在OnClick事件中添加诸如Close语句。
    2、同时将按钮的ModalResult属性值赋值给窗体的ModalResult属性(注意:任何窗体都有这个属性!)
    3、还有就是窗体的ModalResult属性又会自动传递给showmodal方法,作为该方法的返回值。


    4、例如:
    如果设置form2窗体的一个按钮的ModalResult为mrYes的话,点击此按钮关闭此窗体的时候,会返回mrYes,从而显示OK
    1>.  在form1中可以调用:
           if Form2.ShowModal = mrok then
                   ShowMessage('OK');

    2> .在form2的按钮btn1中

    procedure TForm2.btn1Click(Sender: TObject);
    begin

          self.ModalResult := mrok;
    end;

     原文:http://blog.csdn.net/xiongmao000738/article/details/6723215

  • 相关阅读:
    穿越之我是码农 1024 篇
    误删文件机房停电黑客入侵_你最怕什么?
    AI觉醒进行时:程序员你怕了吗?
    未来已来!阿里小蜜AI技术揭秘
    千人千面智能淘宝店铺背后的算法研究登陆人工智能顶级会议AAAI 2017
    CDN缓存不命中排查
    现实需求巨大_技术尚未成熟_学界与业界思维大碰撞
    围观阿里云最会赚钱的人!价值2万元邀请码不限量发送
    今晚19:30直播阿里巴巴大规模持续集成的技术演进之路_欢迎免费观看
    工作压力山大?码农这么减压最有效
  • 原文地址:https://www.cnblogs.com/bizhu/p/2990377.html
Copyright © 2011-2022 走看看