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.