Hi.
Vielleicht kommst du hiermit zurecht?
Delphi-Quellcode:
procedure DropElement(doc: IHTMLDocument3; tagName:
String);
var
i: Integer;
ec: IHTMLElementCollection;
e: IHTMLElement;
begin
ec := doc.getElementsByTagName(tagName);
for i := Pred(
ec.Length)
downto 0
do
begin
e :=
ec.item(i, 0)
as IHTMLElement;
e.outerHTML := '
';
end;
end;
procedure TDemoForm.WebBrowserDocumentComplete(Sender: TObject;
const pDisp: IDispatch;
var URL: OleVariant);
var
wb: IWebBrowser;
begin
if Succeeded(pDisp.QueryInterface(IID_IWebBrowser, wb))
then
DropElement(wb.Document
as IHTMLDocument3, '
marquee');
end;
Grüße vom marabu