VPF::Скролл колесом мыши - Форум программистов

vadik704

Дата 30.7.2007, 08:33 (ссылка)

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

Загрузка ...

Новичок

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

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

Здравствуйте! У меня вопрос:

У меня на форме scrollbox, а на нем combobox. Соответственно скроллбокс имеет горизонтальную полосу прокрутки. Прокрутку колесом делаю так:

Код


procedure TMainForm.FormMouseWheel(Sender: TObject; Shift: TShiftState;
  WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
begin
MainForm.ScrollBox1.VertScrollBar.Position:=MainForm.ScrollBox1.VertScrollBar.Position-round(WheelDelta / 1.5);
end;

Проблема: когда курсор находится на комбобоксе колесом мыши "прокручивает" весь список комбобокса.
Как этого избежать? Только,пжлст, не пишите "лови mousewhee"l. Прошу код, или ссылку на него.

Yanis

Дата 30.7.2007, 15:21 (ссылка)

(голосов:2)

Загрузка ...

Эксперт

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

Репутация: 6
Всего: 111

Перед объявлением твоей формы (например TForm1 = class(TForm)), после type переопределим тип TComboBox:

Код

  TComboBox = class(StdCtrls.TComboBox)
    procedure WMMOUSEWHEEL(var M: TWMMouseWheel); message WM_MOUSEWHEEL;
  end;

Встаём курсором на процедуру WMMOUSEWHEEL и жмём Ctrl+Shift+C. Всё. Должен появиться новый обработчик, который мы реализовывать не будем. Это будет заглушка.

Вот, что у меня получилось на тестовом проекте:

Код

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TComboBox = class(StdCtrls.TComboBox)
    procedure WMMOUSEWHEEL(var M: TWMMouseWheel); message WM_MOUSEWHEEL;
  end;

  TForm1 = class(TForm)
    ComboBox1: TComboBox;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{ TComboBox }

procedure TComboBox.WMMOUSEWHEEL(var M: TWMMouseWheel);
begin

end;

end.

Это сообщение отредактировал(а) Yanis - 30.7.2007, 15:21

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

*щёлк*

ALeXandrK

Дата 30.7.2007, 15:52 (ссылка)

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

Загрузка ...

Опытный

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

Репутация: 1
Всего: 6

Напиши на событие ScrollBox.OnMouseClick:

Код


ScrollBox.SetFocus;

и будет тебе счастье smile

И еще .... зачем ты перехватываешь событие целой формы, а не самого ScrollBoxа smile

Проще ведь так...

Код


procedure TForm.ScrollBoxMouseWheel(Sender: TObject; Shift: TShiftState;
  WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
begin
ScrollBox.VertScrollBar.Position:=ScrollBox.VertScrollBar.Position-round(WheelDelta / 1.5);
end;

Т.е. обрабатывать событие самого ScrollBox... но может я и не прав.... и этого требует твоя ситуация smile

Счас перечитал твой вопрос... наверное его неправильно понял.... я думал тебе не убрать фокус с combobox...
Ну может мое сообщение тоже чем-то поможет smile

Это сообщение отредактировал(а) ALeXandrK - 30.7.2007, 15:58

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

Богат не/ни тот, у кого много, а тот, кому хватает

vadik704

Дата 1.8.2007, 09:56 (ссылка)

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

Загрузка ...

Новичок

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

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

Yanis, спасибо! Все получилось как надо =) Правда я надеялся заблокировать прокрутку списка колесом мыши, когда фокус на комбобоксе. Может быть знаешь как это сделать?
smile

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