VPF::Как заставить TScrollBox слушаться колеса ?

Gershkovich

Дата 15.8.2006, 12:10 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 243
Регистрация: 8.2.2006

Репутация: 0
Всего: 2

Привет всем !

Сабж.

Мышиное колесо не прокручивает содержимое TScrollBox.
А хотелось бы...
Хотя бы тока вертикальный скроллинг.

Есть ли решение ?

Заранее спасибо.

dvamaster

Дата 15.8.2006, 12:15 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 559
Регистрация: 30.6.2004
Где: Россия : Курган

Репутация: 3
Всего: 10

Причин может много быть, выложи код, где идут каки-нидь обработки в TScrollBox или еще где. Могет где перехватываешь сообщения.

--------------------

Хорошую информацию трудно добыть. Сделать с ней что-нибудь - еще труднее. /L. Skywalker/

Что же я сделал не так? /Король Лир/

Я делаю это для твоего же блага! /Любой родитель и палач/

PKUNZIP.ZIP /неизвестный/

Gershkovich

Дата 15.8.2006, 12:24 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 243
Регистрация: 8.2.2006

Репутация: 0
Всего: 2

Кода просто нету.

Я положил несколько панелей на TScrollBox и все .
Никакого кода не писал.

ЗЫ Забыл сказать - юзаю Delphi 6

Это сообщение отредактировал(а) Gershkovich - 15.8.2006, 12:25

Romikgy

Дата 15.8.2006, 12:55 (ссылка)

(нет голосов)

Загрузка ...

Любитель-программер

Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: 26
Всего: 146

MouseCapture какое значение имеет?

--------------------

Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности.

Snowy

Дата 15.8.2006, 12:56 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484

Поищи поиском по WM_MOUSEWHEEL

Romikgy

Дата 15.8.2006, 12:57 (ссылка)

(нет голосов)

Загрузка ...

Любитель-программер

Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: 26
Всего: 146

А вообще проперти
property OnMouseWheel;
property OnMouseWheelDown;
property OnMouseWheelUp;
есть а обработка
WM_MOUSEWHEEL
я не нашел smile

Добавлено @ 13:06

вот что нашел

Код


procedure CMMouseWheel(var Message: TCMMouseWheel); message CM_MOUSEWHEEL;

почему только CM_MOUSEWHEEL????

--------------------

Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности.

Snowy

Дата 15.8.2006, 13:27 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484

Потому что Application посылает это сообщение, вместо WM_MOUSEWHEEL.
Чтобы не путать внутреннее сообщение и сообщение системы - оставляет возможность ловить родное WM_ вручную.
Но, раз есть родные события, то лучше юзать их.
Хотя не факт, что в более ранних версиях Delphi они есть...

Romikgy

Дата 15.8.2006, 13:40 (ссылка)

(нет голосов)

Загрузка ...

Любитель-программер

Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: 26
Всего: 146

нормально

Код


procedure WMMouseWheel(var Message: TWMMouseWheel); message WM_MOUSEWHEEL;

procedure TControl.WMMouseWheel(var Message: TWMMouseWheel);
begin
  if not Mouse.WheelPresent then
  begin
    Mouse.FWheelPresent := True;
    Mouse.SettingChanged(SPI_GETWHEELSCROLLLINES);
  end;
  TCMMouseWheel(Message).ShiftState := KeysToShiftState(Message.Keys);
  MouseWheelHandler(TMessage(Message));
  if Message.Result = 0 then inherited;
end;

procedure TControl.MouseWheelHandler(var Message: TMessage);
var
  Form: TCustomForm;
begin
  Form := GetParentForm(Self);
  if (Form <> nil) and (Form <> Self) then Form.MouseWheelHandler(TMessage(Message))
  else with TMessage(Message) do
    Result := Perform(CM_MOUSEWHEEL, WParam, LParam);
end;

на кой такие усложнения

--------------------

Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности.

Snowy

Дата 15.8.2006, 13:46 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484

для универсальности

Romikgy

Дата 15.8.2006, 14:13 (ссылка)

(нет голосов)

Загрузка ...

Любитель-программер

Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: 26
Всего: 146

Snowy, если не секрет где здесь универсальность?

--------------------

Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности.

Snowy

Дата 15.8.2006, 14:14 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484

То, что один код работает для любого компонента.
И для формы и для любого другого.

Gershkovich

Дата 15.8.2006, 14:20 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 243
Регистрация: 8.2.2006

Репутация: 0
Всего: 2

Ничего не понял.

Получается что к моему скрол боксу надо дописать методы, которые привел
Romikgy ?

Но тогда надо наследовать класс, переопределять методы.
И потом его не положишь на форму в design time (визуально, имею в виду)

А как это сделать с компонентом, который лежит на форме ?
Вот так не выходит:

Код


ScrollBox.MouseWheelHandler:= MyMouseWheelHandler;

Romikgy

Дата 15.8.2006, 14:30 (ссылка)

(нет голосов)

Загрузка ...

Любитель-программер

Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: 26
Всего: 146

Цитата(Romikgy @ 15.8.2006, 11:57

)

property OnMouseWheel;

имзо в это всавить код который будет обрабатывать колесо

--------------------

Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »