Как подтянуть к компонентам Events?

Тема в разделе "Delphi - Компоненты", создана пользователем maxshuv, 2 июн 2006.

Статус темы:
Закрыта.
  1. maxshuv

    maxshuv Гость

    Репутация:
    0
    Такая проблема.
    Подскажите пожалуйста код или что необходимо сделать? Нужно из TWinControl подътянуть в DBGrid Eventsы: OnMouseWheel, OnMouseWheelDown и OnMouseWheelUp!!!
     
  2. maxshuv

    maxshuv Гость

    Репутация:
    0
    На Delphi 5!!!
    Нужно для прокрутки мыши на DBGrid.
     
  3. Barmutik

    Barmutik Гость

    Репутация:
    0
    Код (Text):
     TAdvDBGrid = class(TDBGrid)
    private
    { Private declarations }
    protected
    { Protected declarations }
    public
    { Public declarations }
    published
    property OnMouseWheelDown;
    property OnMouseWheelUp;
    end;
     
  4. maxshuv

    maxshuv Гость

    Репутация:
    0
    А поточнее можно? Надо ли мне прописывать в этом модуле процедуры для OnMouseWheelDown, OnMouseWheelUp как это сделано для OnMouseDown,OnMouseUp?
    А то я уже всяко попробовал неполучается.
     
  5. maxshuv

    maxshuv Гость

    Репутация:
    0
    А поточнее можно? Надо ли мне прописывать в этом модуле процедуры для OnMouseWheelDown и OnMouseWheelUp, как это сделано для OnMouseDown и OnMouseUp?
    А то я уже всяко попробовал не получается.
     
  6. Barmutik

    Barmutik Гость

    Репутация:
    0
    Я привёл полный пример нового компонента, который просто выставляет спрятанные события ..

    Ничего больше писать не надо ... за Вас уже всё написано :)
     
  7. maxshuv

    maxshuv Гость

    Репутация:
    0
    У меня уже есть компонента, которую я создал, и я в неё просто добавил эти события
    property OnMouseWheelDown;
    property OnMouseWheelUp;
    Но у меня до сих пор, как и раньше, мышь прокручивается только до нижней и верхней видимой строки!!!
    Что делать?
     
  8. maxshuv

    maxshuv Гость

    Репутация:
    0
    Спасибо получилось.
    Ещё пару вопросиков. Как сделать так чтобы при начале прокрутки мыши активная позиция переходила на следующую, а не на последнюю на экране?
    И есть такая возможность определить входит Dataset на Экран DBGrid или он больше?
     
  9. maxshuv

    maxshuv Гость

    Репутация:
    0
    Активная позиция при начальной прокрутки мыши встаёт даже не на последнюю видимую позицию на экране, а на первую невидимую запись!
     
  10. maxshuv

    maxshuv Гость

    Репутация:
    0
    Я использую процедуру TimedScroll([sdDown]),TimedScroll([sdUp]).
     
  11. Barmutik

    Barmutik Гость

    Репутация:
    0
    А вы не используйте эту процедуру а скрольте руками в зависимости от объёма прокрутки, тогда вы сами будете контролировать активную запись в гриде..

    Насчёт посчитать влазит или не влазит.. умножте количество записей на толщину строки + толщина хедера и смотрите больше меньше ширины контрола .. может есть что-то и более умное .. но пока что-т сходу не приходит в голову...
     
  12. maxshuv

    maxshuv Гость

    Репутация:
    0
    Спасибо за подсказки!
     
Загрузка...
Похожие Темы - Как подтянуть компонентам
  1. Дедок
    Ответов:
    6
    Просмотров:
    121
  2. чернокнижник
    Ответов:
    4
    Просмотров:
    88
  3. Sniff
    Ответов:
    1
    Просмотров:
    84
  4. vultr_fan
    Ответов:
    3
    Просмотров:
    187
  5. OBLIVIONNN
    Ответов:
    3
    Просмотров:
    242
Статус темы:
Закрыта.

Поделиться этой страницей