| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Колесо [D5, D6, Win95/98]
Zirus © (2003-02-03 05:21:00)Привет, мастера! Можно ли при сфокусированном edit1 - узнать, что колесом мыши крутят вврех или вниз? Спасибо!
Юрий Зотов (2003-02-03 07:43:00) [1]> Спрашивающий
... при сфокусированном edit1 ...
> Zirus (03.02.03 05:21)
Можно написать потомка TEdit и в нем ловить сообщение WM_MOUSEWHEEL. А можно ловить его же в обработчике Application.OnMessage и проверять TScreen.ActiveControl.
Спрашивающий (2003-02-03 06:08:00) [2]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;
| |
