Delphi Iosで applicaiton.ProcessMessages();同等の動作をさせには？

Delphi Programing

こんばんは、やましょうです。

昨日は、第26回　エンバカデロ・デベロッパーキャンプ お疲れ様でした。
親睦会でやましょうに暖かく接して頂き感謝感激でした。


 さて、本日はWindowsで使用できた。

Application.ProcessMessages()ですが、

Iosですと使えません。。

Delphiでの実装方法です。(追記：10/30Xe4のみ）







procedure form1.WaitMessages();
var
  TimeoutDate: NSDate;
begin
  TimeoutDate := TNSDate.Wrap(TNSDate.OCClass.dateWithTimeIntervalSinceNow(0.1));
  TNSRunLoop.Wrap(TNSRunLoop.OCClass.currentRunLoop).runMode(NSDefaultRunLoopMode, TimeoutDate);
end;
 
またとなる模様。
RunModeや、待ち時間等は必要に応じて、自分で変更してください。