Запрет по url (WebbRowser Delphi)

[Fahman]

Всем привет!

Есть Webbrowser в нем есть ссылка www.mail.ru к примеру она, если я кликаю по ней то у меня выскакивает родной браузер IE и открывает эту ссылку, можно ли как то взять и запретить это действие?? очень нужно...
пробовал так но не выходит

if url<>'http://www.mail.ru' then cancel:=true

;
ссылку открывает IE

или вот еще, например есть memo1 и там примерно так
www.mail.ru
www.vk.com
www.sute.com

Теперь, webbrowser я сижу в нем, и там на каком нибудь сайте я нашел ссылку www.mail.ru или www.vc.com как сделать так чтоб программа сначала проверила есть ли ссылка такая в memo1 если есть то запретить а если нету ее в списке из мемо то уже я сделаю шелл=)

[Halogen]

Сообщение от Fahman

Всем привет!

Есть Webbrowser в нем есть ссылка www.mail.ru к примеру она, если я кликаю по ней то у меня выскакивает родной браузер IE и открывает эту ссылку, можно ли как то взять и запретить это действие?? очень нужно...
пробовал так но не выходит

if url<>'http://www.mail.ru' then cancel:=true

;
ссылку открывает IE

Если я вас правильно понял то

Cancel := (URL <> FCurrURL);
if Cancel then
  ShellExecute(0, 'open', PChar(VarToStr(URL)), '', '.', SW_SHOW);

Сообщение от Fahman

или вот еще, например есть memo1 и там примерно так
www.mail.ru
www.vk.com
www.sute.com

Теперь, webbrowser я сижу в нем, и там на каком нибудь сайте я нашел ссылку www.mail.ru или www.vc.com как сделать так чтоб программа сначала проверила есть ли ссылка такая в memo1 если есть то запретить а если нету ее в списке из мемо то уже я сделаю шелл=)

cancel:=true

как раз и нужен в данном случае

[Fahman]

Сообщение от Halogen

Если я вас правильно понял то

Cancel := (URL <> FCurrURL);
if Cancel then
  ShellExecute(0, 'open', PChar(VarToStr(URL)), '', '.', SW_SHOW);

cancel:=true

как раз и нужен в данном случае

Извините но чет я не пойму куда этот код? можно полный код? (ТОлько проснулся не понимаю еще)

Может можно вообще запретить ? не у меня же открывается IE а можно вообще запретить открытие IE?

[-=Virus=-]

Есть Webbrowser в нем есть ссылка www.mail.ru к примеру она, если я кликаю по ней то у меня выскакивает родной браузер IE и открывает эту ссылку, можно ли как то взять и запретить это действие?? очень нужно...

procedure TForm1.WebBrowser1NewWindow2(ASender: TObject; var ppDisp: IDispatch;
  var Cancel: WordBool);
begin
  ppDisp:=WebBrowser1.ControlInterface;
end;

Открывает в этом же окне ссылки.

[Fahman]

Сообщение от -=Virus=-

procedure TForm1.WebBrowser1NewWindow2(ASender: TObject; var ppDisp: IDispatch;
  var Cancel: WordBool);
begin
  ppDisp:=WebBrowser1.ControlInterface;
end;

Открывает в этом же окне ссылки.

Прекрасно!

[Fahman]

Друзья) у меня проблемка) Вот смотрите. на сайте лежит только 1 <iframe> и у меня в программе только 1 веббраузер, моя задача, отображать только одну страничку но и тут то началось) не получается 1 код....
вот пример:

begin
cancel:=true;
   if (url<>'мой сайт где <iframe>') or (url='Сайт который я зафреймил') then cancel:=false;

end;

Но почему то при нажатии на кнопку у меня страница выходит пустая... в чем дела?
может есть другой способ? моя задача запрет клика в webbrowser запрет клика не только правой кнопки но левой кнопки мыши, (запрет правой кнопки я решил) просто у меня в браузере одна таблица есть и я бы хотел чтоб ее просто просматривали а не кликали по ней... заранее спасибо)

[-=Virus=-]

Отключить правую клавишу в WebBrowser:

...
private
...
procedure WMMouseActivate(var Msg: TMessage); message WM_MOUSEACTIVATE;
end;
...

Ставим обработчик для сообщения WM_MOUSEACTIVATE на уровне головной формы приложения.
Потом пишем процедуру: 


procedure TMainForm.WMMouseActivate(var Msg: TMessage);
begin
  try
    inherited;
    //Анализируем, какая кнопка мыши нажата
    if Msg.LParamHi = 516 then // если правая
      // показываем свое меню
      PopupMenu1.Popup(Mouse.CursorPos.x, Mouse.CursorPos.y);
    Msg.Result := 0;
  except
  end;
end;

Читнуть можно тут http://delphiworld.narod.ru/base/men...b_browser.html
Причём так же можно запретить и левую клавишу.

[Fahman]

Сообщение от -=Virus=-

Отключить правую клавишу в WebBrowser:

...
private
...
procedure WMMouseActivate(var Msg: TMessage); message WM_MOUSEACTIVATE;
end;
...

Ставим обработчик для сообщения WM_MOUSEACTIVATE на уровне головной формы приложения.
Потом пишем процедуру: 


procedure TMainForm.WMMouseActivate(var Msg: TMessage);
begin
  try
    inherited;
    //Анализируем, какая кнопка мыши нажата
    if Msg.LParamHi = 516 then // если правая
      // показываем свое меню
      PopupMenu1.Popup(Mouse.CursorPos.x, Mouse.CursorPos.y);
    Msg.Result := 0;
  except
  end;
end;

Читнуть можно тут http://delphiworld.narod.ru/base/men...b_browser.html
Причём так же можно запретить и левую клавишу.

Спасибо, но мне левая нужна была) чет я перепутал)))) правую кнопку я отключил, ну меню мне там не надо.... Пробовал ставить прозрачную картинку по верх браузера говорили что поможет. Не помогло картинка всегда находится сзади но не по верху webbrowser...
Кстати вот еще вопрос как раз в тему, например есть webbrowser и внутри браузера есть ссылки, почему то не все открывают внутри этого браузера, почему? при клике выходит браузер IE хотелось бы запретить этот стандартный браузер и открывать в браузере по умолчанию... (код з знаю) а вот как запретить открытия ссылки в IE хз=)

Есть еще 1 момент, в браузере я убираю Scroll,

var d:olevariant;
begin
d := WebBrowser1.OleObject.document;
d.body.setAttribute('scroll', 'no');
end;

этот код я ставлю на

procedure TForm1.WebBrowser4NavigateComplete2(ASender: TObject;
  const pDisp: IDispatch; const URL: OleVariant);

но когда идет обновления страницы то у меня после обновления не убираются это скролы, ну понятно, я же ставил код на навигейт коплит, а как сделать чтоб после обновления страницы тоже работало все?

[-=Virus=-]

Сообщение от Fahman

Спасибо, но мне левая нужна была) чет я перепутал)))) правую кнопку я отключил, ну меню мне там не надо....

Читать статью надо было выше.

Значение Msg.LparamHi показывает, какая кнопка нажата. 513 - нажата левая, 516 – нажата правая.

Кстати вот еще вопрос как раз в тему, например есть webbrowser и внутри браузера есть ссылки, почему то не все открывают внутри этого браузера, почему? при клике выходит браузер IE хотелось бы запретить этот стандартный браузер и открывать в браузере по умолчанию... (код з знаю) а вот как запретить открытия ссылки в IE хз=)

Я же выше писал про это.

procedure TForm1.WebBrowser1NewWindow2(Sender: TObject;
  var ppDisp: IDispatch; var Cancel: WordBool);

begin
  ppDisp := Webbrowser1.DefaultDispatch;
end;

[-=Virus=-]

Сообщение от Fahman

Есть еще 1 момент, в браузере я убираю Scroll,

var d:olevariant;
begin
d := WebBrowser1.OleObject.document;
d.body.setAttribute('scroll', 'no');
end;

этот код я ставлю на

procedure TForm1.WebBrowser4NavigateComplete2(ASender: TObject;
  const pDisp: IDispatch; const URL: OleVariant);

но когда идет обновления страницы то у меня после обновления не убираются это скролы, ну понятно, я же ставил код на навигейт коплит, а как сделать чтоб после обновления страницы тоже работало все?

По моему DocumentComplete