Текущий архив: 2003.02.17;
Скачать: CL | DM;

Вниз

Mouse   Найти похожие ветки 

← →
xxxCrazyManxxx ©   (2003-02-09 05:22) [0]

Kak na forme praviy paviy click pomenat na liviy?

---

← →
Романов Р.В. ©   (2003-02-09 13:44) [1]

procedure TForm1.FormCreate(Sender: TObject);
begin
Application.OnMessage := ChangeMouseButton;
end;

procedure TForm1.ChangeMouseButton(var Msg: tagMSG;
var Handled: Boolean);
begin
case Msg.message of
WM_LBUTTONDOWN: Msg.message := WM_RBUTTONDOWN;
WM_LBUTTONUP: Msg.message := WM_RBUTTONUP;
WM_RBUTTONDOWN: Msg.message := WM_LBUTTONDOWN;
WM_RBUTTONUP: Msg.message := WM_LBUTTONUP;
end;

Заменяет левую и правую кнопку почти во всем приложении. Для Замены в конкретных окнах нужно проверять Handle.
Для двойного нажатия нужно поменять WM_LBUTTONDBLCLK. А для нажатия на неклиентской области WM_NCxBUTTONxxxxx.

---

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

Текущий архив: 2003.02.17;
Скачать: CL | DM;

Наверх

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