VPF::WebBrowser - Форум программистов

Bounty

Дата 15.12.2005, 17:55 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 48
Регистрация: 12.12.2005

Репутация: нет
Всего: нет

Помогите отменить переход по ссылкам и выделение текста в браузере

Quadr0

Дата 15.12.2005, 18:29 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

...

Это сообщение отредактировал(а) Quadr0 - 15.7.2011, 02:49

December

Дата 16.12.2005, 00:13 (ссылка)

(нет голосов)

Загрузка ...

Antitheorist

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

Репутация: 12
Всего: 57

Quadr0
А где в этом коде защита от навигации клавиатурой? smile

Кроме того, не забывай, что бывают объекты, вложенные в <a href>, так что такой подход не всегда сработает.
По поводу ссылок - самое надёжное решение, наверно, подменять их href на пустую строку.
По поводу копирования - насколько мне помнится, Ctrl+C/Ctrl+Ins по умолчанию и так не работают, тебе остаётся только подавить popup menu... Что, впрочем, довольно проблематично для клавиши, которая заменяет popup... Но, к счастью, не все юзеры подозревают о существовании оной smile

--------------------

Для друзей с винграда - скидки на разработку сайтов

Quadr0

Дата 17.12.2005, 15:13 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

...

Это сообщение отредактировал(а) Quadr0 - 15.7.2011, 02:50

December

Дата 17.12.2005, 16:52 (ссылка)

(нет голосов)

Загрузка ...

Antitheorist

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

Репутация: 12
Всего: 57

Код


el := doc.elementFromPoint(pt.X, pt.Y) as IHTMLElement; // Элемент НТМЛ
        if not Assigned(el) then
          Exit;
        if el.tagName = 'A' then // курсор находится над ссылкой
          Result := 1; // Отменяем клик

Код


<a href="index.html"><img src="mypic.gif" /></a>

Надо примерно так:

Код


cEl:=doc.elementFromPoint(pt.X, pt.Y) as IHTMLElement;
if not Assigned(cEl) then exit;
pEl:=cEl;
while Assigned(pEl) and (pEl.tagName<>'A') and (pEl.tagName<>'BODY') and (pEl.tagName<>'HTML') do
  pEl:=pEl.parentElement;
if pEl.tagName='A' then
  result:=TranslateEntities(pEl.getAttribute('href',0));

Этот кусок возвращает непустую строку, если объект является дитём ссылки. Заточен под мои личные нужды, но переработать его на совсем правильный вариант труда не составит smile

--------------------

Для друзей с винграда - скидки на разработку сайтов

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: ActiveX/СОМ/CORBA \| Следующая тема »