2013年9月22日日曜日

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や、待ち時間等は必要に応じて、自分で変更してください。




0 件のコメント:

コメントを投稿