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

Колесо прокрутки   Найти похожие ветки 

← →
SerJaNT ©   (2006-08-12 12:23) [0]

Есть две кнопки. Есть мышка с колесом прокрутки. Как сделать так чтобы если колесом прокрутки крутим вниз, то срабатывает событие OnClick одной кнопки, а если крутим вверх, то другой кнопки?

---

← →
TUser ©   (2006-08-12 12:30) [1]

wm_mousewheel

---

← →
DprYg ©   (2006-08-12 12:32) [2]

В обработчиках OnMouseWheelUp и OnMouseWheelDown вызывать OnClick.

---

← →
Anatoly Podgoretsky ©   (2006-08-12 14:17) [3]

Вызывать событие тоже не хорошо, может стоит вызывать метод Click

---

← →
SerJaNT ©   (2006-08-12 14:34) [4]

> Anatoly Podgoretsky ©   (12.08.06 14:17) [3]


Действительно. Так будет лучше.


> В обработчиках OnMouseWheelUp и OnMouseWheelDown вызывать
> OnClick.


У кнопок нет таких событий. Или тогда так: как добавить эти самые события кнопке?

---

← →
SerJaNT ©   (2006-08-12 14:39) [5]

Добавлять такие события кнопке тоже не очень хорошо, может есть альтернативный способ отследить?

---

← →
DprYg ©   (2006-08-12 14:45) [6]

procedure TForm1.FormMouseWheelDown(Sender: TObject; Shift: TShiftState;
 MousePos: TPoint; var Handled: Boolean);
begin
Handled := true;
Button1Click(Sender);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage("Button1");
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
ShowMessage("Button 2");
end;

procedure TForm1.FormMouseWheelUp(Sender: TObject; Shift: TShiftState;
 MousePos: TPoint; var Handled: Boolean);
begin
Handled := true;
Button2Click(Sender);
end;

---

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

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



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