Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Компоненты Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 07.02.2017, 21:41   #1
grigandal1580
Пользователь
 
Регистрация: 05.01.2017
Сообщений: 15
По умолчанию Delphi Chromium убрать и восстановить scrollbars

Запретить прокрутку колесиком мыши я уже нашел как, но на хроме остаются скроллбары, которыми все еще можно прокрутить страницу

Вот как запретить колесико:

присваиваем строковой переменной текст с этим кодом
Код:
// left: 37, up: 38, right: 39, down: 40,
// spacebar: 32, pageup: 33, pagedown: 34, end: 35, home: 36
var keys = {37: 1, 38: 1, 39: 1, 40: 1};
 
function preventDefault(e) {
  e = e || window.event;
  if (e.preventDefault)
      e.preventDefault();
  e.returnValue = false;  
}
 
function preventDefaultForScrollKeys(e) {
    if (keys[e.keyCode]) {
        preventDefault(e);
        return false;
    }
}
 
function disableScroll() {
  if (window.addEventListener) // older FF
      window.addEventListener('DOMMouseScroll', preventDefault, false);
  window.onwheel = preventDefault; // modern standard
  window.onmousewheel = document.onmousewheel = preventDefault; // older browsers, IE
  window.ontouchmove  = preventDefault; // mobile
  document.onkeydown  = preventDefaultForScrollKeys;
}
 
function enableScroll() {
    if (window.removeEventListener)
        window.removeEventListener('DOMMouseScroll', preventDefault, false);
    window.onmousewheel = document.onmousewheel = null; 
    window.onwheel = null; 
    window.ontouchmove = null;  
    document.onkeydown = null;  
}
(пусть эта переменная имеет имя scr)

далее говорим
Код:
Chromium1.Browser.MainFrame.ExecuteJavaScript(scr+'disableScroll();', 'about:blank', 0);
disableScroll() - блокирует
enableScroll() - разблокирует

а как убрать скроллбары?

Подскажите пожалуйста

Последний раз редактировалось grigandal1580; 07.02.2017 в 21:47.
grigandal1580 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Chromium на XE3 версии Delphi Fahman Общие вопросы Delphi 10 13.12.2015 19:28
Delphi и chromium. Артём_2 Общие вопросы Delphi 0 30.08.2015 17:27
Chromium, не могу поставить на Delphi 7 Winexcel Компоненты Delphi 1 08.08.2014 11:24
Chromium in delphi 7 Fahman Общие вопросы Delphi 9 22.05.2014 23:20
Delphi Chromium Embedded и Cookies demiancz Работа с сетью в Delphi 4 30.03.2012 09:55