12.08.2009, 23:56
общий
это ответ
Здравствуйте, Смирнов Михаил Владимирович.
Используйте событие OnMouseDown. В его обработчик передаются дополнительные параметры, в том числе информация о том, какая клавиша мыши была нажата, причём информация о клавише содержится сразу в двух рараметрах: Button и Shift.
Можно также назначить срабатывание не на нажатие клавиши, а на её отпускание (событие OnMouseUp), но в этом случае следует иметь в виду
, что информация о клавише мыши в параметр Shift включена не будет и необходимо будет воспользоваться параметром Button.
Приложение:
// Вариант 1
procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if Button = mbRight then
ShowMessage('Правая кнопка');
end;
// Вариант 2
procedure TForm1.Image2MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if ssRight in Shift then
ShowMessage('Правая кнопка');
end;