Обработка щелчка правой кнопкой мыши

[Kuzmich]

Как сделать, чтобы обрабатывался именно щелчок правой кнопкой по Image?

[dartman]

procedure TForm1.Image1ContextPopup(Sender: TObject; MousePos: TPoint;

var Handled: Boolean);

begin

application.terminate;

end;

[dmc]

Kuzmich

В событии OnMouseDown сделай проверку TMouseButton Button

если Button будет равна mbRight, то нажата правая кнопка мыши.

[Kuzmich]

Большое спасибо...

[Kuzmich]

В ту же тему:

А как нажатие левой и правой кнопок вместе обработать?

[Shurr]

А как нажатие левой и правой кнопок вместе обработать?

В смысле нажатие двух кнопок одновременно?

Если да - то так:

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;                                  Shift: TShiftState; X, Y: Integer);begin if (Button=mbLeft) and (ssRight in Shift) or (Button=mbRight) and (ssLeft in Shift) then application.terminate;end;