Android端末でのOnGesutureのTInteractiveGestureFlag.gfInertia (ID:48663)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

こんばんは！
現在、Androidアプリを作っていまして、期待する動作を行えないので質問しますm(_ _)m

Androidアプリ で ジェスチャ操作 をしたいと考えておりまして、
指の動きと連動したアニメーションを行う為、
Interactive Gesture（対話型）を使用します。
※ 標準ジェスチャでは操作が終わった後にイベントが発生する為。

指１本の操作（ パンジェスチャ ）を処理したいのですが、
OnGestureイベントハンドラ の EventInfo.Flags に、
TInteractiveGestureFlag.gfInertia（継続中） が発生しない様なのです。

オブジェクトインスペクタ の Form1.Touch.InteractiveGestures.Pan は 
TRUE にしてあります。

下記の単純なコードを試してみてもイベントは発生せず、何か大きな事を
見落としているのでしょうか？
gfBegin と gfEnd は正しく実行されます。

[ FMXコード ]
unit Unit1;

interface

uses
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
  FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.Controls.Presentation, FMX.StdCtrls;

type
  TForm1 = class( TForm )
    Label1 : TLabel;
    procedure FormGesture( Sender : TObject; const EventInfo : TGestureEventInfo; var Handled : Boolean );
  private
    { private 宣言 }
  public
    { public 宣言 }
  end;

var
  Form1 : TForm1;

implementation

{$R *.fmx}

procedure TForm1.FormGesture( Sender : TObject; const EventInfo : TGestureEventInfo; var Handled : Boolean );

begin
  // パンジェスチャ？
  if EventInfo.GestureID = igiPan then
  begin
    // ジェスチャ開始
    if TInteractiveGestureFlag.gfBegin   in EventInfo.Flags then
    begin
      Label1.Text := 'Begin';
    end;
    // ジェスチャ継続中
    if TInteractiveGestureFlag.gfInertia in EventInfo.Flags then
    begin
      Label1.Text := 'Inertia';
    end;
    // ジェスチャ終了
    if TInteractiveGestureFlag.gfend     in EventInfo.Flags then
    begin
      Label1.Text := 'End';
    end;
  end;
end;

end.

使用している環境は、
OS ： Windows7（ 32ビット ）
Delphi ： Delphi XE8 Professional（ アップデートアップデートサブスクリプション適用済み ）
Android端末 ： SHARP SH-M02

色々と弄繰り回しましたが、どうにもならず、
どなたかご教授して下さいm(_ _)m

←解決時は質問者本人がここをチェックしてください。

戻る