"onClick" - prawy przycisk

Witajcie....
Mam pytanko... we właściwościach wielu obiektów jest "onClick" działa to na kliknięcie lewym przyciskiem myszki! Może wie ktoś jak zrobić "onClick" dzialający na kliknięcie prawym przyciskiem myszki!!

A od czego jest OnMouseUp? :-P

procedure TForm1.Button1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin

 if Button = mbRight then
    // wcisnieto prawy myszki

end;

no ale zauważ, że nie wszystkie komponenty mają to zdarzenie, np. Item z Menu ma tylko OnClick, a nie ma OnMouseDown, i wtedy jest problem.

OnMouseDown wtedy kiedy user najedzie na to cos myszką, a OnMouseUp jak zjedzie, np zeby kolor buttona zmienic(jakby sie dalo) w OnMouseDown bys pisal na jaki kolor by sie mialo zmienic, a aby po zjechaniu myszką wracał poprzedni kolor w procedurze OnMouseUp piszesz zeby zmienil kolor na inny(np. ten domyslny)

Looknij na plik messages.pas, tam jest komunikat bodajze WM_CLICK, ktory odpowiada za reakcje na klikniecia, w ktoryms z parametrow zapisany jest przycisk myszy.

OnMouseDown wtedy kiedy user najedzie na to cos myszką, a OnMouseUp jak zjedzie

e?
Mnie uczono, że onMouseDown to jest wtedy, gdy klikasz myszką na obiekt(tzn. wciskasz przycisk), a onMouseUp jest wtedy, gdy ten przycisk jakby zwalniasz...

Matematycznie możnaby to przedtsawić tak:

onClick=onMouseDown+onMouseUp

A te zdarzenia, o których Ty myślisz to: onMouseEnter i onMouseLeave