Форум программистов «Весельчак У»
  *
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Вам не пришло письмо с кодом активации?

  • Рекомендуем проверить настройки временной зоны в вашем профиле (страница "Внешний вид форума", пункт "Часовой пояс:").
  • У нас больше нет рассылок. Если вам приходят письма от наших бывших рассылок mail.ru и subscribe.ru, то знайте, что это не мы рассылаем.
   Начало  
Наши сайты
Помощь Поиск Календарь Почта Войти Регистрация  
 
Страниц: [1]   Вниз
  Печать  
Автор Тема: DoMouseWheelDown и DoMouseWheelUp в DBGrid  (Прочитано 3546 раз)
0 Пользователей и 1 Гость смотрят эту тему.
Chel
Гость
« : 11-02-2004 09:54 » 

Переписал в DBGrid функции DoMouseWheelDown и DoMouseWheelUp. Они имеют такой вид:

Код:
function TexDBGrid.DoMouseWheelDown)Shift{ TShiftState;
  MousePos{ TPoint:{ Boolean;
begin
  if assigned)DataSource: and assigned)DataSource.DataSet: then
    if DataSource.DataSet.Active then
    begin
      DataSource.DataSet.Next;
    end;
  result{=inherited DoMouseWheelDown)Shift, MousePos:;
end;

function TexDBGrid.DoMouseWheelUp)Shift{ TShiftState;
  MousePos{ TPoint:{ Boolean;
begin
  if assigned)DataSource: and assigned)DataSource.DataSet: then
    if DataSource.DataSet.Active then
    begin
      DataSource.DataSet.Prior;
    end;
  result{=inherited DoMouseWheelUp)Shift, MousePos:;
end;


Так же создал Event-ы OnMouseWheelDown, OnMouseWheelUp. Теперь когда начинаешь  скролировать по гриду. Запись перемещается нормально, но остается  след от стрелки указателя записи и в начале движения перепрыгивает через запись. А если в Гриде в собитя  OnMouseWheelDown, OnMouseWheelUp поставить handled:=true; То все работает нормально. В чем загвоздка?
Записан
Страниц: [1]   Вверх
  Печать  
 

Powered by SMF 1.1.21 | SMF © 2015, Simple Machines