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

    按照Embarcadero的说法:Windows平台只能使用VCL,Windows、iOS和Android都可以使用FMX,并且VCL和FMX不能同时在一个程序中。FMX的用法与VCL有一定的差异,先从最简单的说起:

    应用程序的关闭退出

    在VCL中,关闭程序的主窗体也就意味着程序的主循环结束,主程序自然而然结束。所以在主窗体中使用窗体的关闭函数(Close)即可,如下:

    procedure TfrmMain.btncloseClick(Sender: TObject); 
    begin 
      Close; 
    end; 

    在FMX中,由Activity替代了Form的概念,虽然TForm类仍然存在,但MainForm通过关闭函数无法结束程序,使用Application.Terminate均无效,调整为:

    uses 
      FMX.Platform.Android;

    procedure TForm2.SpeedButton1Click(Sender: TObject); 
    begin 
      MainActivity.finish; 
    end; 

    此时程序直接关闭了,如果需要在退出前询问一下,可以参考VCL中的做法,在按钮事件中仍然使用关闭函数,在OnCloseQuery事件中询问是否退出,在OnClose事件中实现程序的关闭,如下:

    uses 
      FMX.Platform.Android;

    procedure TfrmMain.FormClose(Sender: TObject; var Action: TCloseAction); 
    begin 
      {退出程序} 
      MainActivity.finish; 
    end;

    procedure TfrmMain.FormCloseQuery(Sender: TObject; var CanClose: Boolean); 
    begin 
      if MessageDlg('是否退出?', 
        TMsgDlgType.mtConfirmation, 
        [TMsgDlgBtn.mbOK, TMsgDlgBtn.mbCancel], 
        -1) = mrOK then 
        CanClose := true 
      else 
        CanClose := false; 
    end;

    procedure TfrmMain.btncloseClick(Sender: TObject); 
    begin 
      Close; 
    end; 

    procedure TfrmMain.FormKeyDown(Sender: TObject; var Key: Word;
      var KeyChar: Char; Shift: TShiftState);
    begin

      //当按下硬件键盘的返回按钮时,关闭当前窗体
      if Key = vkHardwareBack then
        Close;
    end;

    在虚拟机中运行如下:

    image

  • 相关阅读:
    [转][黄忠成]Object Builder Application Block (1)
    C#.NET里面抽象类和接口有什么区别
    MVC中AOP思想的体现(四种过滤器)并结合项目案例说明过滤器的实际用法
    NHibernate之(24):探索NHibernate二级缓存(下)
    使用 ES (elasticsearch) 搜索中文
    elasticsearch 中文 term & completion suggester
    uwsgs loading shared libraries: libicui18n.so.58 异常处理
    tensorflow with gpu 环境配置
    Java 多线程执行
    SpringBoot log4j2 异常
  • 原文地址:https://www.cnblogs.com/leonkin/p/3442090.html
Copyright © 2011-2022 走看看