• 🔥 Бесплатный курс от Академии Кодебай: «Анализ защищенности веб-приложений»

    🛡 Научитесь находить и использовать уязвимости веб-приложений.
    🧠 Изучите SQLi, XSS, CSRF, IDOR и другие типовые атаки на практике.
    🧪 Погрузитесь в реальные лаборатории и взломайте свой первый сайт!
    🚀 Подходит новичкам — никаких сложных предварительных знаний не требуется.

    Доступ открыт прямо сейчас Записаться бесплатно

Колесико мыши и DBGrid

  • Автор темы Автор темы dunin
  • Дата начала Дата начала
Статус
Закрыто для дальнейших ответов.
D

dunin

Крутим колесо мыши - курсор бежит по гриду - добегает до последней видимой записи и останавливается.
Выкручиваюсь таким образом:

procedure FMainForm.FormMouseWheelUp(Sender: TObject; Shift: TShiftState; MousePos: TPoint; var Handled: Boolean);
begin
Query1.Prior;
end;

ну и соответственно в другую сторону... Так вот это действует пока грид не поймал фокус. А события MouseWheel у стандарного грида нет.
Вопрос: как снять фокус с грида или вообще как выкрутится чтобы колесико работало? Компоненты от infoPower, RX и тд. НЕ ПРЕДЛАГАТЬ!!! Только стандарный грид.
Спасибо.
 
dunin
Что-то не понял вопроса. Если тебе просто надо снять фокус с грида, то ставишь таймер и на его событие пишешь что-то вроде
Код:
if StringGrid1.Focused then
Edit1.SetFocus;
 
Прошу прощения за вторжение, но у меня вопрос по данной теме.

Какие есть средства управления мышью в среде Delphi и как например управлять колесом и вторым колесом мыши? (если таковые имеються)
И если можно то я был бы непротив получить полный список функций по работе с мышью.

Заранее благодарен, Призрак. :)
 
Призрак извне
вообще-то не знаю стандартных ф-ций в делфях
всё в основном через winAPI делается.
дело в том, что под все мыши не подстроишься (тут драйвер нужен). а события кликанья и прокрутки колеса через обыкновенные сообщения windows обрабатываются.
 
Статус
Закрыто для дальнейших ответов.
Мы в соцсетях:

Взломай свой первый сервер и прокачай скилл — Начни игру на HackerLab