Скачать: CL | DM;

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

← →
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. Так вот, как заставить еще и курсор мыши "приклеится" к этой второй кнопке?

---

← →
TUserClass ©   (2008-06-26 14:38) [7]

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

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;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.012 c