Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Почтовая рассылка

Подписчиков: -1
Последний выпуск: 19.06.2015

Mouse Wheel in DBGrid?

2.0K
10 февраля 2003 года
davyd
26 / / 02.02.2003
Как отлавливать ролик мыши хотя бы дбгриде (даже когда он не в фокусе)?
2.0K
11 февраля 2003 года
D. Lex
45 / / 09.10.2002
Цитата:
Originally posted by davyd
Как отлавливать ролик мыши хотя бы дбгриде (даже когда он не в фокусе)?


Смотрим, как это делается в VCL.

Код:
TWinControl = class(TControl)
  private
    ...
    procedure CMMouseWheel(var Message: TCMMouseWheel); message CM_MOUSEWHEEL;
    ...

procedure TWinControl.CMMouseWheel(var Message: TCMMouseWheel);
begin
  with Message do
  begin
    Result := 0;
    if DoMouseWheel(ShiftState, WheelDelta, SmallPointToPoint(Pos)) then
      Message.Result := 1
    else if Parent <> nil then
      with TMessage(Message) do
        Result := Parent.Perform(CM_MOUSEWHEEL, WParam, LParam);
  end;
end;

Описываешь такой же метод в классе своей формы и при приходе этой мессаги прокручиваешь грид куда надо и насколько надо.
2.0K
11 февраля 2003 года
davyd
26 / / 02.02.2003
Цитата:
Originally posted by D. Lex

Смотрим, как это делается в VCL.
Код:
TWinControl = class(TControl)
  private
    ...
    procedure CMMouseWheel(var Message: TCMMouseWheel); message CM_MOUSEWHEEL;
    ...

procedure TWinControl.CMMouseWheel(var Message: TCMMouseWheel);
begin
  with Message do
  begin
    Result := 0;
    if DoMouseWheel(ShiftState, WheelDelta, SmallPointToPoint(Pos)) then
      Message.Result := 1
    else if Parent <> nil then
      with TMessage(Message) do
        Result := Parent.Perform(CM_MOUSEWHEEL, WParam, LParam);
  end;
end;

Описываешь такой же метод в классе своей формы и при приходе этой мессаги прокручиваешь грид куда надо и насколько надо.



И за это списбо. Но если не затруднит - Пример использования.

Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог