Не удается получить жесты, работающие с объектом TImage в Delphi XE5

Я пишу приложение для Android, и у меня возникают проблемы с использованием жестов для перемещения по изображениям. У меня есть набор данных клиента с полем Blob с именем SavedPicture, которое визуально связано с TImage.

Первоначально я сделал 2 кнопки, предыдущую и следующую, для прокрутки изображений. Код за ними был просто Dataset.Next; и Dataset.Prior;

Однако я хочу иметь возможность провести пальцем по изображению влево или вправо для просмотра других изображений. Я создал объект TGestureManager, связал его с TImage, поставил галочку влево и вправо в разделе Стандартные жесты, после чего в событии OnGesture объекта TImage было следующее:

if EventInfo.GestureID = sgiLeft then
  dmdPD.cdSavedPics.Prior;
if EventInfo.GestureID = sgiRight then
  dmdPD.cdSavedPics.Next;

Тем не менее, это не работает вообще. Если я назначу GestureManager чему-то другому, например самой форме, и добавлю этот же код в событие OnGesture, он будет работать нормально.

Что я делаю неправильно?

Благодарю.

0 ответов

Другие вопросы по тегам