Цитата:
|
Сообщение от SergeyABG
События присутствуют и в родителе и в наследнике, но реакции на колесо мыши ни какой.
|
Какие признаки этого, где это увидели - собсно что происходить-то должно, когда у вас в функциях
DoMouseWheelDown и
DoMouseWheelUp только из пустого в порожнее перелив идёт - им передаётся их же состояние и ничего больше
Если нужно просто прокрутить содержимое JvThumbView (не знаю что за зверь) изначально не поддерживающего такое действие мышкой, тогда проще задействовать "форменный" перехватчик
OnMouseWheel, для Memo я делал примерно так
Код:
procedure TForm1.FormMouseWheel(Sender: TObject; Shift: TShiftState;
WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
var
i, b, c: integer;
begin
if FindVCLWindow(MousePos).Handle = Memo1.Handle then
begin
// Направление прокрутки
if WheelDelta < 0 then c:= SB_LINEDOWN else c:= SB_LINEUP;
// Диапазон прокрутки за один "тик" колесика
SystemParametersInfo(SPI_GETWHEELSCROLLLINES, 0, @b, 0);
// Если получено -1, то прокручивать на целую страницу
if b < 0 then
begin
b:= 1;
Inc(c, SB_PAGEUP);
end;
for i := 1 to b do Memo1.Perform(WM_VSCROLL, c, 0);
Handled:= true;
end;
end; кидайте родителя на форму, вместо Memo1 подставляйте его, и не мучайтесь