长按与点击事件

手机和PC的长按与点击事件

一、POSIX (IOS和Android)

    长按 :模拟MSWINDOWS的右键点击

    双击 :模拟MSWINDOWS的左键点击

// uses System.UITypes; //定义如下:

const
  // Interactive gesture id's (maps to Windows 7's WM_GESTURE)
  igiBegin = 1 + igiFirst;
  igiEnd = 2 + igiFirst;
  igiZoom = 3 + igiFirst;
  igiPan = 4 + igiFirst;
  igiRotate = 5 + igiFirst;
  igiTwoFingerTap = 6 + igiFirst;
  igiPressAndTap = 7 + igiFirst;
  // Extra interactive gestures
  igiLongTap = 8 + igiFirst;
  igiDoubleTap = 9 + igiFirst;

procedure TfmxMyPulledupScan.SpeedButton1Gesture(
  Sender: TObject;
  const EventInfo: TGestureEventInfo;
  var Handled: Boolean);
begin

  //uses FMX.Types :属FMX内部手势，界面上无需TGesture组件:  TGestureID  TGestureEventInfo

    // 前提： 被赋予内部手势的控件比如SpeedButton1，其属性： 
  SpeedButton1.Touch.InteractiveGestures:=
    [ TInteractiveGesture.LongTap,
      TInteractiveGesture.DoubleTap,
      TInteractiveGesture.Pan
     ];

  if EventInfo.GestureID=igiLongTap then
  begin
    TDialogService.ShowMessage('长按啦！');
  end;
    {$IFDEF ANDROID}
  if EventInfo.GestureID=igiDoubleTap then  //uses FMX.Types,System.UITypes;
    {$ENDIF ANDROID}
    {$IFDEF IOS}
  if EventInfo.GestureID=igiPan then  //uses FMX.Types,System.UITypes;
    {$ENDIF IOS}
  begin

    TDialogService.ShowMessage('双击啦！');

  end;

end;

二、MSWINDOWS

procedure TfmxMyPulledupScan.SpeedButton1MouseUp(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Single);
begin
{$IFDEF MSWINDOWS}
  if Button=TMouseButton.mbRight then
  begin
    TDialogService.ShowMessage('右键啦！');
  end else if Button<>TMouseButton.mbMiddle then
  begin
    TDialogService.ShowMessage('左键啦！');
{$ENDIF MSWINDOWS}

end;