如何使用WebBrowser控件来看网页的原代码啊，就象IE中的看原代码一样

Question

use 中加上 MSHTML增加事件
procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
begin
  Memo1.Clear;
  Memo1.Lines.Add(webbrowser1.OleObject.document.documentelement.innerhtml);
end;

Answer 1

uses
  MSHTML;function GetWebBrowserHTML(const wb: TWebBrowser): string;
begin
  if wb.Document <> nil then
    Result := IHTMLDocument2(wb.Document).body.outerHTML
  else
    Result := '';
end;

Answer 2

我想在一个按钮单击时，直接在Form2上的一个Memo1中显示，这该如何做呢？

Answer 3

我想在一个按钮单击时，直接在Form2上的一个Memo1中显示，这该如何做呢？ 

Answer 4

写进按钮的click事件不就是了？？
？？？？？？？？？

Answer 5

我想在一个按钮单击时，直接在Form2上的一个Memo1中显示，这该如何做呢？ 

Answer 6

我想在一个按钮单击时，直接在Form2上的一个Memo1中显示，这该如何做呢？ 我写进过,但是没有用啊

Answer 7

用inet控件吧,其中的妙处.....嘿嘿...