Как использовать жесты для прокрутки в TButtonGroup? - PullRequest
Новая
       26

Как использовать жесты для прокрутки в TButtonGroup?

0 голосов
/ 25 апреля 2019

В настоящее время я работаю над приложением, которое должно иметь несколько кнопок в компоненте TButtonGroup. Чтобы использовать его с сенсорным экраном, я хотел бы иметь возможность использовать событие OnGesture для прокрутки вверх / вниз в моей группе кнопок простым касанием в любом месте компонента.

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

Вот код, который я использовал, чтобы успешно ловить жесты некоторых других компонентов: 

procedure TForm1.OnGesture(Sender: TObject;
    const EventInfo: TGestureEventInfo; var Handled: Boolean);
  begin
    case EventInfo.GestureID of
      sgiDown :
        begin
           ShowMessage('Down');
        end;
      sgiUp   :
        begin
            ShowMessage('Up');
        end;
    end;
  end;

Может ли кто-нибудь дать мне совет, чтобы иметь возможность прокручивать мою TButtonGroup с помощью сенсорного экрана и жестов?

...