| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

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

Fobiya ©   (2008-06-26 13:57:00) 

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

---

TUserClass   (2008-06-26 14:38:00) [1]

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

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;

---

Al   (2008-06-26 14:33:00) [2]

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

---

korneley   (2008-06-26 14:14:00) [3]

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

---

TUserClass   (2008-06-26 14:11:00) [4]

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

---

Palladin   (2008-06-26 14:08:00) [5]

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

---

Al   (2008-06-26 14:05:00) [6]

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

---

clickmaker   (2008-06-26 13:58:00) [7]

OnMouseDown?

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

---

Наверх