LongTap-Menü unter iOS/Android?

[bra]

Ich habe ein ListView und will hier beim längeren Drücken auf ein Item ein Menü anzeigen. Ich habe jetzt mit dem GestureManager mit LongTap und einem TPopup rumprobiert, und das TPopup wird auch angezeigt.

Sobald man aber den Finger loslässt, blendet es das Menü wieder aus, ich kann also nichts auswählen.

Hat hier jemand eine Idee wie sich das beheben lässt?

Hier mal der Code:

Delphi-Quellcode:

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.ListView.Types, FMX.ListView.Appearances, FMX.ListView.Adapters.Base, FMX.Menus, FMX.ListView, System.Actions, FMX.ActnList,
  FMX.ListBox, FMX.Layouts, FMX.Controls.Presentation, FMX.StdCtrls, FMX.ExtCtrls, FMX.Gestures;

type
  TForm1 = class(TForm)
    ListView1: TListView;
    PopupMenu1: TPopupMenu;
    MenuItem1: TMenuItem;
    MenuItem2: TMenuItem;
    MenuItem3: TMenuItem;
    ActionList1: TActionList;
    Action1: TAction;
    Action2: TAction;
    Action3: TAction;
    Popup1: TPopup;
    GestureManager1: TGestureManager;
    ListView2: TListView;
    procedure Action1Execute(Sender: TObject);
    procedure Action2Execute(Sender: TObject);
    procedure Action3Execute(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure ListView1Gesture(Sender: TObject; const EventInfo: TGestureEventInfo; var Handled: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.fmx}

procedure TForm1.Action1Execute(Sender: TObject);
begin
  if Assigned(ListView1.Selected) then
    ShowMessage((ListView1.Selected as TListViewItem).Text);
end;

procedure TForm1.Action2Execute(Sender: TObject);
begin
  ShowMessage('2');
end;

procedure TForm1.Action3Execute(Sender: TObject);
begin
  ShowMessage('3');
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  ListView1.Items.Add.Text := 'Test 1';
  ListView1.Items.Add.Text := 'Test 2';
  ListView1.Items.Add.Text := 'Test 3';

  ListView2.Items.Add.Text := 'Test 1';
  ListView2.Items.Add.Text := 'Test 2';
  ListView2.Items.Add.Text := 'Test 3';
end;

procedure TForm1.ListView1Gesture(Sender: TObject; const EventInfo: TGestureEventInfo; var Handled: Boolean);
begin
  if Assigned(ListView1.Selected) and (EventInfo.GestureID = System.UITypes.igiLongTap) then begin
    Popup1.Placement := TPlacement.Mouse;
    Popup1.IsOpen := true;
    Handled := true;
  end;
end;

end.

[bra]

So wie es aussieht, ist das folgendes Problem: https://quality.embarcadero.com/browse/RSP-12434
Nach dem LongTap wird ein MouseUp-Event zweimal ausgelöst. Beim zweiten wird dabei das TPopup wieder geschlossen :|

[Rollo62]

Den LongTap habe ich rausgeworfen.

Kann man notfalls selber nachbauen wenn das unbedingt benötigt wird.
Ansonsten habe ich keinen besseren Workaround gefunden.

Rollo

[bra]

Gerade den Longtap benötige ich aber. Ich versuche gerade das wie unter http://c2design5sh.blogspot.de/2014/...hi-xe5xe7.html beschrieben nachzubauen, aber das funktioniert auch noch nicht so ganz.

Genau das nervt mich so an FMX - alles nur so halbgar umgesetzt oder verbuggt und man muss letztlich doch alles von Hand nachbauen, was Zeit und Nerven kostet :x

[Sherlock]

Bugreport aufmachen! Sonst wird das nie was. Der größte Teil von uns nutzt ja Delphi eben weil es einiges an Arbeit abnehmen soll.

Sherlock

[Mavarik]

Zitat:

Zitat von Sherlock (Beitrag 1342417)

Bugreport aufmachen! Sonst wird das nie was.

+1

Genau... Klar ist das lästig, aber gerade wenn man etwas "besonderes" findet... Auf jeden Fall melden...

Am besten direkt eine Beispiel App oder Video dazu...

[bra]

Ich habe schon einige Bugreports erstellt, allerdings bringt mir das im Moment nichts, weil ich jetzt eine Lösung brauche und nicht erst in einem Jahr mit der nächsten oder übernächsten Version :roll: