小编Ous*_*fai的帖子

所以Delphi现在支持Windows,MacOS,Android和iOS编程.有没有办法,使用Delphi(XE5)为Windows Mobiles编写程序？

请按照以下步骤操作:

1. 创建新的 Firemonkey Moblie Application
2. 将TGeustureManager组件添加到表单

3. TButton向表单添加2个组件

   • Button1.Text:"Button1:做点什么......"
   • Button2.Text:"Button2:退出应用程序......"

   

4. 双击Button2 Component并为OnClickEvent 编写以下代码:

   procedure TForm1.Button2Click(Sender: TObject);
   begin
     if MessageDlg('Are you sure you want to Exit?', TMsgDlgType.mtWarning,
             [TMsgDlgBtn.mbYes, TMsgDlgBtn.mbNo], 0) = mrYes then
       SharedActivity.finish;
   end;
   

   Run Code Online (Sandbox Code Playgroud)
5. 以调试模式运行应用程序.

6. 在设备上,单击按钮2,然后单击是以弹出消息.将出现一个例外:

   

为什么会引发此异常？

我认为这与未使用的TGeustureManager组件有关.不,不是:

1. 如果您打开LocationDelphi xe5附带的Demo项目.
2. 将TButton组件添加到LocationLabel,如下图所示:
3. 将上述相同的代码添加到OnClickEvent.
4. 运行应用程序,然后单击Button5,您将得到相同的异常.

这是我应该报告的错误吗？或者我做错了什么？

我TButton.Click在FireMonkey中缺少Method TButton.

有没有办法在火猴的代码中触发click事件？如果没有此类事件,只需使用click方法触发分配给按钮的操作即可？

如何确定firemonkey应用程序中的位置服务是否开启/关闭？

我知道这篇文章:如何检查Android上是否有网络(Delphi XE5).我不确定这有助于我检测位置服务是打开还是关闭.