kannst du mir vllt. noch sagen was an dem code falsch ist dann bin ich wunschlos glücklich
Delphi-Quellcode:
procedure TForm4.webNewWindow2(ASender: TObject;
var ppDisp: IDispatch;
var Cancel: WordBool);
var
NewWindow: TForm4;
URL: WideString;
begin
cancel:=Popupblocker;
if cancel=false
then
begin
NewWindow:=TForm4.Create(self);
URL:=((TEmbeddedWB(ASender).document
as IHTMLDocument2).activeElement
as IHTMLElement).getAttribute('
href', 0);
NewWindow.Show;
NewWindow.web.Navigate(
url);
end;
end;
der compiler sagt:
"Undeclared identifier: 'TEmbeddedWB'"
und das gleiche für
"document"