Listview mit on Click und LongTap

[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;