Listview mit on Click und LongTap

[fisipjm]

Hi,

ich schlage mich jetzt schon seit einiger zeit mit der Listview herum und bekomme einen, meiner auffassung nach, selbstverständlichen use case nicht abgebildet.

Es geht bei der Entwicklung ausschließlich um Mobile also android oder iOS
Ich möchte in der Listview sowohl mit einem einfachen tab auf das Item eine aktion ausführen (Öffnen des Datensatzes in neuer Form) sowie auch durch gedrückt halten, die Listview in den Editmodus umschalten. Beides getrennt, kein Problem, beides Zusammen bekomme ich einfach nicht hin.

Die beiden aktionen kommen sich immer gegenseitig in die Quere.
Hat das schon jemand von euch implementieren können?

Viele Güße
PJM

[Olli73]

So vielleicht?

Delphi-Quellcode:

procedure TForm1.ListViewMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Single);
begin
  if Button = TMouseButton.mbRight then
    //LongPress
  else
    //Tap/Click;

end;

[fisipjm]

Zitat von Olli73:

So vielleicht?

Delphi-Quellcode:

procedure TForm1.ListViewMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Single);
begin
  if Button = TMouseButton.mbRight then
    //LongPress
  else
    //Tap/Click;

end;

Aus meiner Sicht völlig falscher Ansatz. Habs trotzdem versucht. Funktioniert leider nicht. Es gibt ein Ereignis OnGesture das für das Abfragen von allen möglichen Gesten zuständig ist. Da kann ich auch ein EventInfo.GestureID = igiLongTap abfragen.
Funktioniert genau so lange gut, bis ich das OnItemClickEx definiere. Das greift schon beim Tap und nicht erst beim Tap Ende und sperrt mir somit die EventInfo.GestureID = igiLongTap Abfrage.

[Olli73]

Die Gesten etc. musst du natürlich rausnehmen für meinen Ansatz, falls nicht geschehen.

Ein long tap auf einem Touchscreen kommt dann im Programm immer als Rechtsclick an...

[fisipjm]

Test es gerade mit Delphi 11.3 alle anderen Events sind von der Listview entfernt.
Folgender Code liegt auf MousUp

Delphi-Quellcode:

procedure TForm1.ListViewOverviewMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Single);
begin
  if Button = TMouseButton.mbRight then
    showmessage('Long')
    // LongPress
  else
    showmessage('Click');
end;

Ich bekomme ausschließlich das "Click" nie "Long".

[shebang]

Hilft dir dieser Link eventuell weiter?

[fisipjm]

Zitat von shebang:

Hilft dir dieser Link eventuell weiter?

Nein, LongTap ist aktiv.

!OffTopic! PressAndTap ist die unnötigste Geste von der ich jemals gehört habe. Nicht nur das ich das noch nie gesehen habe, mir fällt auch kein auch noch so konstruiertes Beispiel ein an dem die Geste hilfrecih wäre.

[Olli73]

Oder war das mit dem right click nur unter Windows?

[himitsu]

Zitat von Olli73:

Ein long tap auf einem Touchscreen kommt dann im Programm immer als Rechtsclick an...

Nee, es kommt drauf an, wie es dort arbeitet.

Genauso könnte z.B. auch ein Zwei- oder Drei-Finger-Tipper als Rechtsklick (ContextMenü) interpretiert werden.

[Rollo62]

Ich habe da auch viel rumexperimentiert und verschiedene Ansätze dafür.
Mittlerweile mache ich das mit einem FTDateTimeStart := Now; im Mousedown und
mit MillisecondsBetween( Now, FTDateTimeStart ) > 2000 then
Im MouseUp.

Sorry, bin nicht am PC, kannst nicht schöner schreiben.

Das Problem kann sein dass ein LongTap auch immer ein OnClick auslöst,
Das kam man damit entsprechend verhindern.

Der Nachteil ist, dass ein Event erst bei MouseUp ausgelöst wird.