Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.07.31;
Скачать: CL | DM;

Вниз

Прокрутка SpinEdit / UpDown с пом. колеса мыши без исп. кнопок   Найти похожие ветки 

 
Eugene L   (2005-05-31 17:41) [0]

Подскажите, пожалуйста, как это реализовать.
Хочу, чтобы при наведениии курсора на контрол и прокрутке колеса мыши значение в нем менялось, как если бы нажимались кнопки вверх/вниз.
Насколько я понимаю, копать надо в сторону WM_MOUSEWHEEL message.


 
alpet ©   (2005-05-31 18:18) [1]

Я сделал обработчик (OnMouseWhell) для формы, а в нем определял какой контрол под курсором мыша находится.

Примерный код:

procedure TMForm.FormMouseWheel(Sender: TObject; Shift: TShiftState;
 WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
var h: THandle;

begin
h := WindowFromPoint (mousePos);
if h = spinEdit1.handle then
 begin
  if wheeldelta > 0 then spinEdit1.StepUp;
  if wheeldelta < 0 then spinEdit1.StepDown;
 end;
end;


 
Eugene L   (2005-05-31 18:34) [2]

Спасибо!
(А я в события формы и забыл заглянуть. Посмотрел - в самих контролах нет Wheel-событий - и подумал, что придется в WinAPI лезть.)



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

Текущий архив: 2005.07.31;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.03 c
1-1120919808
Igor_thief
2005-07-09 18:36
2005.07.31
Как изменить ширину полосы прокрутки в ListBox?


3-1119519600
ceval
2005-06-23 13:40
2005.07.31
как мне в таблицу записать следующие


14-1120803868
Ega23
2005-07-08 10:24
2005.07.31
Наконец-то!!!


11-1103720327
ECM
2004-12-22 15:58
2005.07.31
FAQ от Gandalf-a (KOL.MASTAK.RU)


4-1117761498
_Seldon_
2005-06-03 05:18
2005.07.31
Низкоуровневый хук на клавиатуру