Поиск:

Ответ в темуСоздание новой темы Создание опроса
> DBGrid который на, колесико реагирует... 
V
    Опции темы
Foley
Дата 27.2.2006, 23:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Фсемба Яцца
*


Профиль
Группа: Участник
Сообщений: 235
Регистрация: 31.1.2006
Где: Россия, Арх.обл

Репутация: нет
Всего: 7
Как мне сделать чтоб данные в ДБ Гриде прокручивались колесиком мышки? (те которые на экране прокручиваются, а дальше нет)...
PM MAIL ICQ   Вверх
Kesh
Дата 27.2.2006, 23:50 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Эксперт
Сообщений: 2488
Регистрация: 31.7.2002
Где: Германия, Saarbrü cken

Репутация: 3
Всего: 54
Foley, поясни...


--------------------
user posted image
PM MAIL WWW ICQ Skype   Вверх
Foley
Дата 28.2.2006, 00:45 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Фсемба Яцца
*


Профиль
Группа: Участник
Сообщений: 235
Регистрация: 31.1.2006
Где: Россия, Арх.обл

Репутация: нет
Всего: 7
ну Эксель открой, покрути колесиком мышки вверх-вниз, прокручивается, а в гриде не прокручивается...(натипа MouseWheelUp, MouseWheelDown) стрелками перемещается, а колесиком нет.
PM MAIL ICQ   Вверх
Vas
Дата 28.2.2006, 07:58 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: 23
Всего: 28
Возьми DBGridEh это самый простой вариант.

А для DBGrid вот, с MoveBy сам разберешься, может наоборот знаки поставить придется:
Код

...
  private
    { Private declarations }
    procedure MWHandler(var Msg: TMsg; var Handled: Boolean);
...

Procedure TForm1.FormCreate(Sender: TObject);
Begin
  Application.OnMessage:=MWHandler;
End;

//процедура прокрутки DBGird мышью
Procedure TForm1.MWHandler(var Msg:TMsg; var Handled:Boolean);
Begin
  if Msg.message=WM_MOUSEWHEEL then
    begin
      if(FindControl(Msg.hwnd)<>nil) and (FindControl(Msg.hwnd).ClassName='TDBGrid') and (FindControl(Msg.hwnd).Focused) then
        begin
          if Msg.wParam>0 then
            TDBGrid(FindControl(Msg.hwnd)).DataSource.DataSet.MoveBy(-1) 
          else
            TDBGrid(FindControl(Msg.hwnd)).DataSource.Dataset.MoveBy(1);
          Msg.message:=0;
        end;
    end;
End;


Это сообщение отредактировал(а) Vas - 28.2.2006, 07:59


--------------------
И опыт, сын ошибок трудных, И гений, парадоксов друг, И случай, бог изобретатель. ... (А.С. Пушкин)
PM MAIL   Вверх
bas
Дата 28.2.2006, 10:15 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: 1
Всего: 2
Цитата(Vas @ 28.2.2006, 07:58 Найти цитируемый пост)
Возьми DBGridEh это самый простой вариант

Cамый простой вариант это использовать GredWheel где параметр WheelDelta отвечает куда (вверх ,вниз) прокрутили колесо
Добавлено @ 10:19
Как заставить работать колесо мыши в TDBGrid?
PM MAIL   Вверх
Vas
Дата 28.2.2006, 10:46 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: 23
Всего: 28
Цитата(bas @ 28.2.2006, 10:15 Найти цитируемый пост)
Cамый простой вариант это использовать GredWheel где параметр WheelDelta отвечает куда (вверх ,вниз) прокрутили колесо

Может быть, спорить не буду, но DBgridEh предоставляет намного больше возможностей от которых порой становится трудно отказаться и перейти обратно на использование DBGrid smile


--------------------
И опыт, сын ошибок трудных, И гений, парадоксов друг, И случай, бог изобретатель. ... (А.С. Пушкин)
PM MAIL   Вверх
Foley
Дата 28.2.2006, 23:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Фсемба Яцца
*


Профиль
Группа: Участник
Сообщений: 235
Регистрация: 31.1.2006
Где: Россия, Арх.обл

Репутация: нет
Всего: 7
DBGridEh где взять такую компаненту?(кстати часто вижу компаненты с Eh где они находятся не подскажете?)
PM MAIL ICQ   Вверх
Foley
Дата 1.3.2006, 00:09 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Фсемба Яцца
*


Профиль
Группа: Участник
Сообщений: 235
Регистрация: 31.1.2006
Где: Россия, Арх.обл

Репутация: нет
Всего: 7
Все нашел я ентот эхлиб
PM MAIL ICQ   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Базы данных и репортинг"
Vit
Петрович

Запрещено:

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами


Обязательно указание:

1. Базы данных (Paradox, Oracle и т.п.)

2. Способа доступа (ADO, BDE и т.д.)


  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи
  • Вопросы по SQL и вопросы по базам данных не связанные с Дельфи задавать здесь

FAQ раздела лежит здесь!

Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Vit, Петрович.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Базы данных и репортинг | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0466 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.