Я использую Delphi 10.2.3 Tokyo FMX Android Platform.
Как отключить LongTap и DoubleTap для ListViewItemClickEx?
Мой код:
procedure TForm1.ListView1ItemClickEx(const Sender: TObject; ItemIndex: Integer;
const LocalClickPos: TPointF; const ItemObject: TListItemDrawable);
begin
if (LocalClickPos.X > (lItem.Objects.FindObject('imagepro') as TListItemImage).PlaceOffset.x) and
(LocalClickPos.X < (lItem.Objects.FindObject('imagepro') as TListItemImage).PlaceOffset.x + (lItem.Objects.FindObject('imagepro') as TListItemImage).width) and
(LocalClickPos.Y > (lItem.Objects.FindObject('imagepro') as TListItemImage).PlaceOffset.y) and
(LocalClickPos.Y < (lItem.Objects.FindObject('imagepro') as TListItemImage).PlaceOffset.y + (lItem.Objects.FindObject('imagepro') as TListItemImage).height) then
begin
ShowMessage((listview1.Items.AppearanceItem[listview1.ItemIndex].Objects.FindObject('textpro') as TListItemtext).Text);
end;
end;