請按照下列步驟操作:分割類故障(11)
- 新建
Firemonkey Moblie Application
- 添加
TGeustureManager
組件到窗體 添加2個
TButton
組件添加到窗體- Button1.Text:「Button1:做點什麼...」
- Button2.Text:「Butt ON2:退出應用程序...」
上Button2的組件雙擊寫下面的代碼
OnClick
事件: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,然後單擊yes以彈出消息。例外會出現:
爲什麼此異常長大的嗎?我認爲這與未使用的TGeustureManager
組件有關。但是,沒有它不:
- 如果打開自帶的德爾福xe5的
Location
示範項目。 - 添加
TButton
組件Location
標籤如下面的圖像中: - 添加相同的代碼如上到
OnClick
事件。 - 運行該應用程序,然後單擊Button5,您將得到相同的異常。
這是我應該報告的錯誤嗎?或者我做錯了什麼?
我到處都是一樣的異常,與終止我的應用程序無關。傷心我找不到有關它的很多信息。只發生在不是Windows的Firemonkey上。 Windows工作正常,所有其他人失敗。其中一些我想到了(例如我需要使用泛型'TList <>'而不是舊的'TList'),但現在當解析文件時這個XSuperObject庫會這樣做(這是一個格式正確的JSON文件正確的位置)。 –