Колесо прокрутки

← →
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.

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

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

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;

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