Как я могу различать OnClick и Swipe на элементе TListView Firemonkey с помощью Delphi XE6

У меня есть форма с TListView. Я загружаю некоторые элементы, и они отображаются нормально. Если я коснусь (OnClick) элемента, я могу отобразить вторую форму с деталями элемента и некоторыми дополнительными параметрами.

Однако, если я проведу пальцем вправо (чтобы активировать кнопку «Удалить»), я получу событие OnClick и отобразится подробная форма. Когда я закрываю форму сведений (или использую кнопку «Назад»), в TListView теперь отображается кнопка «Удалить».

Итак, короткая версия этого: как я могу остановить запуск события OnClick при выполнении Swipe?

Я пытался добавить флаг и установить флаг в OnDeleteChangeVisible и/или OnGesture, но флаг никогда не устанавливается, и я не вижу, чтобы эти события срабатывали при запуске в режиме отладки.

var isDelete: Boolean

procedure TfrmTaskList.lvTaskListDeleteChangeVisible(Sender: TObject;
  AValue: Boolean);
begin
  if (AValue = True) then
    isDelete := True
  else
    isDelete := False;
end;

procedure TfrmTaskList.lvTaskListGesture(Sender: TObject;
  const EventInfo: TGestureEventInfo; var Handled: Boolean);
begin
    if (EventInfo.GestureID = sgiRight) then
    begin
      isDelete := True
    end
    else
    begin
      isDelete := False;
    end;
end;

Любая помощь, советы, ресурсы будут с благодарностью. Спасибо


mobile android firemonkey delphi-xe6
person JFish    schedule 23.07.2014    source источник
comment
Немного другой вопрос, но в конечном итоге та же проблема. См. здесь: stackoverflow.com/questions/24681940/   -  person ThisGuy    schedule 24.07.2014
comment
Спасибо @ThisGuy за ответ. Это похоже (и я могу реализовать это решение как временное решение), но я думаю, что разница во времени между касанием и смахиванием довольно мала, и ее будет трудно надежно рассчитать. Кроме того, долгое нажатие будет срабатывать до того, как мышь будет поднята, если вы удерживаете ее достаточно долго. Мне не нужен длинный тап прямо сейчас, но было бы здорово найти более надежное решение, чтобы использовать все доступные жесты, а не только два.   -  person JFish    schedule 24.07.2014

Ответы (1)


arrow_upward
3
arrow_downward

Используйте OnTap вместо OnClick события

person Josip Mihovilovic    schedule 19.02.2015