procedure TForm1.SpeedButton1Click(Sender: TObject);
var
Document: IHTMLDocument2;
begin
Document := WebBrowser1.Document as IHtmlDocument2;
if Document <> nil then
Memo1.Text := ( Document.all.Item( NULL, 0 ) as IHTMLElement ).OuterHTML;
end;
Вешаешь на что-нибудь типа onNavigateComplete2
|