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

Вниз

Колесико мышки   Найти похожие ветки 

← →
-=GaLaN=-   (2003-11-12 20:22) [0]

Как можно в компоненте TEdit обработать сабж?

---

← →
mfender   (2003-11-12 21:33) [1]

написать обработчик для колеса мыши

---

← →
XenonXX   (2003-11-13 05:08) [2]

пишешь общий обработчик сообщений колесика WM_MOUSEWHEEL, а потом проверяешь координаты мышки.

---

← →
-=GaLaN=-   (2003-11-14 18:02) [3]

А как это сделать? И причем тут координаты мышки? Они же остаются неизменными?

---

← →
dataMaster   (2003-11-14 18:08) [4]

Попробуй так:


TmainForm = class(TForm)

.
.
.

protected
procedure WMMOUSEWHEEL(var Message: TMessage); message WM_MOUSEWHEEL;

.
.
.

procedure TmainForm.WMMOUSEWHEEL(var Message: TMessage);
begin
if Message.WParam<0 then
// колесо на себя
else
// колесо от себя
inherited;
end;

---

← →
-=GaLaN=-   (2003-11-14 21:13) [5]

Спасибо, все работает! Тема закрыта.

---

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

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

Наверх

Память: 0.45 MB
Время: 0.009 c