@E567

У меня не работает обработка события от прокрутки колёсика мыши (OnMouseWheelDown и OnMouseWheelUp) в компоненте TImage. Я хочу изменять размер изображения карты нажатием Ctrl + колёсико мыши. Причем, у компонента TForm все это работает, а у TScrollBox не работает. В чем дело?

0

@i8085

Видимо, в коде. Надо его тут показать.

2

@turboq

Кажется Image не принимает фокус, и ScrollBox с Image так же не принимает фокус. Вот поставь на ScrollBox кнопку и попробуй, должно получиться(кнопка в фокусе). Попробуй ScrollBox1.SetFocus.

1

@E567

код простой ))) мне важно суть выяснить.
procedure TForm1.ScrollBox1MouseWheelDown(Sender: TObject;
Shift: TShiftState; MousePos: TPoint; var Handled: Boolean);
var i:integer;
begin
i:=MousePos.x;
end;
Вообще странно, вроде фокус здесь не при чем, ведь обработчик для OnMoseDown работает "без фокусов" ))). Хотя нет, кликая, мы заодно принимаем фокус. А в PaintBox фокусв нет, а обработчик
OnMouseDown работает.

Ура! Вставил кнопку в ScrollBox и обработчик заработал. Вообще-то я сварганил следующую штуку, чтобы масштабировать растровую карту. В ScrollBox поместил Tpanel и задал свойство align=alClient, на панель положил TPaintBox и тоже align=alClient. Первоначальный размер Tpanel задаю по размеру изображения, которое всасываю через TBitMap, а масштабирую пропорциональным изменением размера TPanel, размер изображения, при этом послушно подстраивается под панель. Изображение рисую процедурой
with pbWorld do
canvas.StretchDraw(rect(0,0,width,height),FBMP);
Вот и хотелось бы колёсико задействовать. Буду экспериментировать ...

0

@i8085

Я же говорил, что дело в коде.
Как вам ни покажется странным, но этот маленький кусочек кода "с подвохом".
Во-первых, он и так ничего не делает, а самое главное, вы и в отладчике ничего не проверите.
Дело в том, что вы что-то присваиваете локальной переменной "i", но потом её не используете. В Delphi встроен оптимизатор кода, который по-умолчанию включен. Он уберёт этот кусок кода совсем.
Если у вас весь код написан в таком стиле, то удивляться не стОит...

0

@E567

чтобы не было подвоха, я зашел и убрал Оптимизатор. Дело - не в коде. Код нормальный, мне важно в принципе зайти в обработчик. Тот же самый код работает для формы, для скроллера (если туда засунуть кнопку)

0

@i8085

E567, с поиском ошибок в тайном коде - это вам не на этот форум. Это на "Форум потомственных гадалок на кофейной гуще", "Ясновидение"...

0

@turboq

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

1

@E567

Я не умею это делать.

Моя конечная цель - поймать событие когда прокрутка над объектом TPaintBox. А Объекты TScrollBox и пр. я взял в качестве эксперимента. Над формой всё работает, даже "пустой" код, который так не нравится i8085, над ScrollBox - работает при помещении кнопки (ее ведь можно сделать невидимой, если нужен будет именно TScrollBox).

Добавлено через 16 минут
Кстати о коде, который не хочет ловить событие мышиной прокрутки.

Породил потомок от TPaintBox с опубликованными событиями

Ввел переменную

В качестве обработчика написал процедуру, отключив оптимизацию в компиляторе:

и вставил обработчик в нужное гнездо.

Добавлено через 21 минуту

Всё, спасибо, получилось.

Оказывается, несмотря на то, что событие проходит над TPaintBox, обработчик мышиной пркрутки у формы тоже откликается.

0