//---------------------------------------------------------------------------
void __fastcall TForm1::CppWebBrowser1BeforeNavigate2(TObject *Sender,
LPDISPATCH pDisp, Variant *URL, Variant *Flags,
Variant *TargetFrameName, Variant *PostData, Variant *Headers,
VARIANT_BOOL *Cancel)
{
if(Variant("<твоя URL>")==(*URL))
{
ShowMessage("Hello, world!");
*Cancel = true;// чтобы не грузилась страница
}
}
//---------------------------------------------------------------------------
Обработка щелчка по гиперссылке
1) Как по щелчку на ссылке в CppWebBrowser открыть, например, форму ("О программе", например :) )?
2) Почему, если загружаю файл с диска в CppWebBrowser, то прописаный там ЖабаСкрипт работает отлично, а тот же хтмл-текст, загруженный в браузер динамически (как по 26-му примеру из FAQ) - не пашет ЖабаСкрипт! ... :confused:
Попробуй, например, так — можно использовать событие TCppWebBrowser'а OnBeforeNavigate2:
Тута ещё тая косячина - браузер создаётся динамически - и в событии BeforeNavigate2 компилер требует не Variant, а tagVARIANT, а как из него достать урлу - не знаю..
Посмотри хелп Builder'а по слову "Variant".
Всё, разобрался! Спасибо!