Delphi-Quellcode:
procedure TFormBrowser.BrowserBeforeNavigate2(Sender: TObject;
const pDisp: IDispatch;
var URL, Flags, TargetFrameName, PostData,
Headers: OleVariant;
var Cancel: WordBool);
begin
if pos('
http://',
URL) <> 0
then
begin
Cancel := true;
URL := '
';
TargetFrameName := '
';
MessageBox(
Handle,'
Mist','
Mist',mb_Ok
or mb_DefButton1);
end;
end;
wird beim Klicken auf den Flash-Inhalt leider nicht aufgerufen
Wo könnte man denn sonst noch drehen?