请按照以下步骤操作:
- 创建新的
Firemonkey Moblie Application
- 将
TGeustureManager
组件添加到表单 TButton
向表单添加 2 个组件- Button1.Text: "Button1: 做点什么..."
- Button2.Text: "Button2: 退出应用程序..."
双击 Button2 组件并为
OnClick
Event 编写以下代码: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;
- 在调试模式下运行应用程序。
在设备上,单击按钮 2,然后单击是弹出消息。会出现异常:
为什么会引发此异常?
我认为它与未使用的TGeustureManager
组件有关。但不,它不是:
- 如果打开
Location
Delphi xe5自带的Demo工程。 - 将
TButton
组件添加到Location
标签,如下图所示: - 将与上面相同的代码添加到
OnClick
事件。 - 运行应用程序,然后单击 Button5,您将得到相同的异常。
这是我应该报告的错误吗?还是我做错了什么?