Текущий архив: 2003.02.10;
Скачать: CL | DM;
Вниз
Колесо Найти похожие ветки
← →
Zirus (2003-02-03 05:21) [0]Привет, мастера! Можно ли при сфокусированном edit1 - узнать, что колесом мыши крутят вврех или вниз? Спасибо!
← →
Спрашивающий (2003-02-03 06:08) [1]procedure TForm1.FormMouseWheelDown(Sender: TObject; Shift: TShiftState;
MousePos: TPoint; var Handled: Boolean);
begin
Beep;
end;
procedure TForm1.FormMouseWheelUp(Sender: TObject; Shift: TShiftState;
MousePos: TPoint; var Handled: Boolean);
begin
Beep;
end;
← →
Юрий Зотов © (2003-02-03 07:43) [2]> Спрашивающий
... при сфокусированном edit1 ...
> Zirus (03.02.03 05:21)
Можно написать потомка TEdit и в нем ловить сообщение WM_MOUSEWHEEL. А можно ловить его же в обработчике Application.OnMessage и проверять TScreen.ActiveControl.
Страницы: 1 вся ветка
Текущий архив: 2003.02.10;
Скачать: CL | DM;
Память: 0.46 MB
Время: 0.03 c
