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

Вниз

DoMouseWheel   Найти похожие ветки 

 
DFT   (2008-04-16 13:52) [0]

Здравствуйте! Подскажите пожалуйста.

В наследнике класса TControl  я перекрыл функцию DoMouseWheel следующим образом:

function TyClass.DoMouseWheel(Shift: TShiftState; WheelDelta: Integer;
     MousePos: TPoint): Boolean;
begin
 CellSize:=CellSize+WheelDelta;
 Result:= inherited DoMouseWheel(Shift,WheelDelta,MousePos);
 Invalidate;
end;

Но при этом никакой реакции при прокрутке колеса мыши не происходит. Пробовал установть точку прерывания в этом коде, никакой реакции при прогоне программы (т.е., останова не происходит).


 
DFT   (2008-04-16 13:53) [1]

ошибся. В наследнике TGraphicControl, а не Tcontrol


 
Сергей М. ©   (2008-04-16 14:02) [2]

Потому что TGraphicControl не имеет своего окна.


 
DFT   (2008-04-16 14:07) [3]

тем не менее события OnMouseDown, Up, Click, он обрабатывает...?


 
Ins ©   (2008-04-16 14:08) [4]

Насколько я знаю, WM_MOUSEWHELL приходит только окну, которое находится в фокусе. Ваш контрол, разумеется, в фокусе никогда не будет, но вот его родитель - вполне. И тогда возможно DoMouseWheel будет вызываться. Попробуйте в обработчике MouseDown вызвать Parent.SetFocus;


 
Ins ©   (2008-04-16 14:11) [5]


> тем не менее события OnMouseDown, Up, Click, он обрабатывает.
> ..?

Дело в том, что оконный родитель, получив сообщение мыши, сначала пытается найти в указанной точке графический контрол, и если он там есть - перенаправляет сообщение ему. Иначе - обрабатывает сам. Но сам графический контрол не способен получать сообщения от операционной системы непосредственно, только если оконный родитель ему это сообщение явно переправит.


 
Сергей М. ©   (2008-04-16 14:11) [6]

Такое решение принимается оконным объектом-контейнером, которому принадлежит безоконный объект.


 
DFT   (2008-04-16 14:26) [7]

попробовал непосредственно обработать сообщение в насдеднике...

Private
procedure WMMOUSEWHELL(var msg: TMessage); message CM_MOUSEWHEEL;

procedure TMyClass.WMMOUSEWHELL(var msg: TMessage);
begin
 FCellSize:=FCellSize+1;
 invalidate;
end;


все равно сообщение до моего компонента почему-то не доходит


 
Сергей М. ©   (2008-04-16 14:29) [8]


> сообщение до моего компонента почему-то не доходит


Потому что никто это сообщение твоему компоненту не посылает.


 
Ins ©   (2008-04-16 15:56) [9]


> DFT   (16.04.08 14:26) [7]

Вы ответы принципиально не читаете? Или что-то не ясно, тогда стоит переспросить, уточнить ;)



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

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

Наверх




Память: 0.48 MB
Время: 0.019 c
15-1207247542
kaif
2008-04-03 22:32
2008.05.18
Как в PHP4 сохранить текст HTTP-запроса в файл?


15-1207197918
php
2008-04-03 08:45
2008.05.18
PHP


2-1208669820
stasxxx
2008-04-20 09:37
2008.05.18
Несколько вопросов


3-1197295966
Kolan
2007-12-10 17:12
2008.05.18
TADOCommand не нравится GO, почему?


2-1208322491
Mishenka
2008-04-16 09:08
2008.05.18
Как переписать статический метод?