Frame Disablen

[API]

Hallo

Mit JS-Script kann glaub ein Frame so deaktiviert werden:

Code:

 top.frames[0].document.body.disabled=true;

Wie kann ich nun ein frame disablen via IWebbrowser2 oder IHtmlDocument2 Interface?
In MSHTML_TLB habe ich nicht wirklich was gefunden.

[API]

# PUSH #

[omata]

Da du hier nicht zeigst, was du bis jetzt wie machst, kann dir auch keiner konkret helfen...

TWebBrowser OleObject and Document data
How to get all documents for all frames from a TWebbrowser
Load TWebBrowser's document content from stream or string

folgende Units sind ebenfalls wichtig: MSHTML, ActiveX

[API]

Ich habe ja eine Referenz auf das Frame: IHtmlDocument2 wie kann es nun disabled werden?

[omata]

Konkretes Beispiel, das dein Problem verdeutlicht und an dem man weiterarbeiten kann, wäre toll.

[API]

Lade z.B die Seite http://de.selfhtml.org/javascript/be...zweiframes.htm in einen TWebbrowser und disable ein Frame analog zu top.frames[0].document.body.disabled=true;

Dabei kann GetFrameDoc verwendet werden, welches ein IHTMLDocument2 zurück gibt.

Delphi-Quellcode:

function GetFrameDoc(doc: IHTMLDocument2;v: OleVariant): IHTMLDocument2; 
var 
  win: IHTMLWindow2; 
  u: IUnknown; 
begin 
  u := doc.frames.item(v); 
  if Assigned(u) 
  and Succeeded(u.QueryInterface(IHTMLWindow2, win)) 
    then Result := win.Document 
    else Result := nil; 
end;

[omata]

Delphi-Quellcode:

  WebBrowser1.OleObject.document.frames.item(0).document.body.disabled:=true;

[API]

Danke omata.

Habe es nun so gemacht, da ich schlussendlich nicht den TWebbrowser verwende sondern ein Frame einer IE-Instanz manipuliere:

Delphi-Quellcode:

var
  FrameDoc : IHTMLDocument2;
begin
  FrameDoc := GetFrameDoc([...], 'oben');
  if FrameDoc <> nil then
  begin
    (FrameDoc.body as IHTMLElement3).disabled := True;
  end;
end;