不同平台关闭程序指令不一样,用编译器指令分开写。
procedure TfrmMain.FormClose(Sender: TObject; var Action: TCloseAction);
begin
{$IFDEF MSWINDOWS}
close;
{$ENDIF}
{$IFDEF MACOS}
//我等屌丝没有MACOS
{$ENDIF}
{$IFDEF Android}
halt;
{$ENDIF}
{$IFDEF iOS}
//我等屌丝没有IOS
{$ENDIF}
end;