bestimmte seite eines frames im twebbrowser editierbar mache

[horst]

wie kann ich eine bestimmte seite eines frames im twebbrowser editierbar machen, und speichern?

editierbar machen einer seite geht ja so:

Delphi-Quellcode:

procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject; 
  const pDisp: IDispatch; var URL: OleVariant); 
var 
  WebBrowser: IWebBrowser; 
begin 
  WebBrowser:= pDisp as IWebBrowser; 
  (WebBrowser.Document as IHTMLDocument2).DesignMode := 'On'; 
end;

[Kamil]

Über Index kannst du das Frame auswählen.

Code:

var
  Doc: IHTMLDocument2;
  Index: OleVariant;
  FrameDisp: IDispatch;
  FrameWin: IHTMLWindow2;
  FrameDoc: IHTMLDocument2;
begin
  Doc := WebBrowser1.Document as IHTMLDocument2;
  Index := 0;
  FrameDisp := Doc.Frames.Item(Index);
  if FrameDisp <> nil then
  begin
    FrameWin := FrameDisp as IHTMLWindow2;
    FrameDoc := FrameWin.document;
    if FrameDoc <> nil then
      FrameDoc.designMode:='On';
  end;

[horst]

jepp, das ist genaus das was ich brauche
danke...

[horst]

... doppelt