Текущий архив: 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.44 MB
Время: 0.038 c
