如何为ListViewItemClickEx禁用LongTap和DoubleTap?

时间:2018-12-28 22:40:13

标签: android delphi firemonkey

我正在使用Delphi 10.2.3 Tokyo FMX And​​roid平台。

如何为ListViewItemClickEx禁用LongTap和DoubleTap?

我的代码:

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;

0 个答案:

没有答案