FireMonkey delphi - определение клавиши мыши

[Fox_su]

Доброго времени суток!

Столкнулся с такой проблемой:
В делфи 7 и т.д. работала такая конструкция
...
button = mbright;
...

В FireMonkey подобная конструкция не работает!

есть какие-либо соображения?

[grafgrial]

Непонятно, что бы этим хотел объявить?

[Fox_su]

*извиняется*

но если мне надо было определить какой клавишей я клацнул, то делал так:

procedure TForm3.Label1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if button=mbleft then
label1.Caption:='Левая кнопка мыши '
else
label1.Caption:='Правая кнопка мыши'
end;

правда тут нет средней, но для примера думаю достаточно?

трабл - не могу понять как сделать подобное в фаермонки

[grafgrial]

В общем на некоторых компонентах вроде не идет

case Button of
TMouseButton.mbRight:
begin
  ShowMessage('Правая');
end;
TMouseButton.mbLeft:
begin
  ShowMessage('Левая');
end;
TMouseButton.mbMiddle:
begin
  ShowMessage('Средняя');
end;
end;

[Fox_su]

Огромное спасибо! Вы спасли мой мозг