Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.024 c
14-28994
Checist [root]
2003-01-26 00:43
2003.02.10
Хелпы к дельфам


14-29022
Tux
2003-01-23 00:01
2003.02.10
Как перестать беспокоиться и начать работать? :)


1-28694
koly01
2003-01-29 15:02
2003.02.10
помогите разобраться с Tservice


1-28699
Сергей
2003-01-31 14:16
2003.02.10
Вертикальная прокрутка ListBox


3-28594
Z-man7777
2003-01-25 10:52
2003.02.10
Выборка/сохранение из/ в базу любого файла