Не удается получить жесты, работающие с объектом 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, он будет работать нормально.
Что я делаю неправильно?
Благодарю.