Реакция на нажатие правой кнопки мыши

← →
Fobiya (2008-06-26 13:57) [0]

Здраствуйте.
Подскажите пожалуйста, как реализовать реакцию кнопки(button,bitbtn)
на нажатие правой кнопки мыши, то есть процедуру эдентичную
procedure ButtonClick(Sender: TObject); Чтобы на нажатие левой кнопки выполнялось одно действие, на нажатие правой другое, на дабл-клик еще какое-нибудь.

← →
clickmaker © (2008-06-26 13:58) [1]

OnMouseDown?

"эдентичную" начинается с "и"

← →
Al (2008-06-26 14:05) [2]

OnMouseDown реагирует на любое нажатие на мыши левая, правая, скрол.
Как сделать чтоб различал?

← →
Palladin © (2008-06-26 14:08) [3]

а у самого"то мыслей никаких нет?

← →
TUserClass © (2008-06-26 14:11) [4]

procedure TForm1.Button1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin Case Button of mbLeft : ShowMessage ("Левая кнока"); mbRight : ShowMessage ("Правая кнока"); end; end;

← →
korneley © (2008-06-26 14:14) [5]

mbMiddle : ShowMessage ("А вот и средняя!");

← →
Al (2008-06-26 14:33) [6]

Большое спасибо!!!
Хотелось бы еще узнать один вопрос:
Например есть две кнопки, после нажатия первой переходим ко второй
button2.SetFocus. Так вот, как заставить еще и курсор мыши "приклеится" к этой второй кнопке?

Всмысле "приклеиться"? Если перевести курсор, то :

procedure TForm1.Button1Click(Sender: TObject); var Rect : TRect; begin GetWindowRect (Button2.Handle, Rect); SetCursorPos (Rect.Left + Round (Button2.Width/2), Rect.Top + Round (Button2.Height/2)); end;

Реакция на нажатие правой кнопки мыши Найти похожие ветки