Показать сообщение отдельно
  #1  
Старый 21.07.2008, 16:00
bagish bagish вне форума
Прохожий
 
Регистрация: 03.05.2006
Сообщения: 6
Репутация: 10
По умолчанию Почему не работает OnBeforeNavigate2?

День добрый!
На CD, в корневом каталоге, находятся 2 файла: Project1.exe и example.htm. Два таких же файла лежат в папке Data.
В example.htm есть ссылка:
Код:
<A href="hello">Hello!</A>
В программе:
OnCreate:
Код:
WebBrowser1.Navigate('about:blank');
WebBrowser1.Navigate(ExtractFilePath(ParamStr(0))+'example.htm');
В событии OnBeforeNavigate2 :
Код:
if pos('hello',URL)<>0 then begin
ShowMessage('Привет!');
Cancel:=True;
end;
Если открыть программу из корневого каталога, то клик на ссылку "Hello!", как видно из кода, вызывает сообщение "Привет!". Если же проделать то же самое из папки Data, происходит переход на "Невозможно отобразить страницу".
Что cделать, чтобы событие OnBeforeNavigate2 сработало и в программе, находящейся в папке Data?
Спасибо!
Ответить с цитированием