TGestureManager向左和向右滑动

时间:2017-02-06 21:53:35

标签: android ios delphi swipe

所以我有一个标签控件,上面有几个项目(标签等)。

如果我有类似下面的内容,它似乎无法奏效。它似乎没有 - 正确。如果我向左滑动",并且手势在一系列后代中运行,它会起作用吗?

procedure TFormMain.TabControlAppGesture(Sender: TObject; const EventInfo: TGestureEventInfo; var Handled: Boolean);
begin
   if (EventInfo.GestureID = sgiLeft) then
      begin
        //go right and show report
        TabControlApp.ActiveTab:=TabItemReport;
      end
   else if (EventInfo.GestureID = sgiRight) then
      begin
        //Go Left and show data
        TabControlApp.ActiveTab:=TabItemData;
      end
   else
      begin
        //Who knows what they did and who cares
      end;

  //handle event regardless
  Handled:=True;
end;

我想真正的问题是:无论用户刷什么,我都可以进行全局应用程序刷卡吗?

0 个答案:

没有答案