zoukankan      html  css  js  c++  java
  • Delphi XE5 for Android (三)

    在VCL下,常用的询问对话框包括

    procedure TfrmMainVCL.btnAppMessageboxClick(Sender: TObject); 
    begin 
      if Application.MessageBox('是否退出?', '询问', 
        MB_YESNO + MB_ICONQUESTION) = IDYES then 
      begin 
        Close; 
      end; 
    end;

    或者是:

    uses 
      System.UITypes;
    
    procedure TfrmMainVCL.btnMessageDlgClick(Sender: TObject); 
    begin 
      if MessageDlg('是否退出?', mtConfirmation, [mbYes, mbNo], -1) = mrYes then 
      begin 
        Close; 
      end; 
    end;

    在FMX下,Application不再有MessageBox函数,只能使用MessageDlg函数,写法如下:

    procedure TfrmMain.btncloseClick(Sender: TObject); 
    begin 
      if MessageDlg('是否退出?', TMsgDlgType.mtConfirmation, 
        [TMsgDlgBtn.mbYes, TMsgDlgBtn.mbNo], -1) = mrYes then 
      Close; 
    end; 
  • 相关阅读:
    IE11浏览器:请不要再叫我IE,谢谢
    Hadoop HA高可用搭建流程
    YARN
    MapReduce
    HDFS
    shell
    shell总结
    linux总结
    maven+log4j
    Spring
  • 原文地址:https://www.cnblogs.com/china1/p/3410875.html
Copyright © 2011-2022 走看看