Колесо прокрутки на современной мыши заняло место средней кнопки. События FireMonkey в точности совпадают с событиями VCL. Просто проверьте, включена ли средняя кнопка. Например:
procedure TMyForm.FormMouseDown(Sender: TObject;
Button: TMouseButton;
Shift: TShiftState;
X, Y: Single);
begin
if Button = TMouseButton.mbMiddle then
begin
// The middle button (scroll wheel) was pressed down
end;
end;
В приведенном выше коде предполагается, что вы кодируете с использованием префиксов имени типа перечисления. Если нет, то, очевидно, вам не нужно проходить квалификацию mbMiddle
.
Это должно работать для приложений Windows и OS X / Mac OS. Как или вообще это относится к iOS (о котором вы упоминаете) или Android, я не мог сказать, но я в этом сомневаюсь.