Событие для правой кнопки мыши

[MyLastHit]

Здравствуйте, а как пишется событие для правой кнопки мыши в делфи?

[Stilet]

OnMouseDown+OnMouseUp

[SERG1980]

Ну и ещё есть TMouseButton где можно и определить какая кнопка правая левая средняя

[MyLastHit]

OnMouseDown+OnMouseUp
Эм не очень понятно...что нужно сделать с этими процедурами? это же для левой кнопки...

[Stilet]

Вот пример описания этого события:

procedure TForm1.Button1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
 if Button=mbRight then ShowMessage('Правая');
end;