delphi xe10 开发苹果app， 退出app出现错误

Question

用dephixe 10 开发苹果app，用模拟器调试时，退出程序，出现：
Unsupporst platform service: Terminate。
程序代码：
procedure THeaderFooterForm.Button15Click(Sender: TObject);
begin

Close;

end;
请大神指教。

Answer 1

delphi编程的原理是消息触发，事件驱动。当某个触发某个事件发生时，delphi程序就会自动执行程序员事先写好的代码，procedure btn15Click(Sender: TObject);就是按钮组件单击事件的起始代码。当你在按钮组件的事件列表中双击鼠标左键时，delphi的代码书写文本框中就会自动写出这句代码。你只要在后面的begin....end之间写上你要写的代码就行了。