Добавить HTML к TWebbrowser Document? |
Previous Top Next |
Code: |
uses MSHTML;
procedure TForm1.Button1Click(Sender: TObject); var Range: IHTMLTxtRange; begin Range := ((WebBrowser1.Document as IHTMLDocument2).body as IHTMLBodyElement).createTextRange; Range.collapse(False); Range.pasteHTML('<br><b>Hello!</b>'); end;
procedure TForm1.Button2Click(Sender: TObject); begin Webbrowser1.Navigate('www.google.ch'); end; |
Code: |
unit Unit1; // by Sprint
interface
uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, OleCtrls, SHDocVw, MSHTML, StdCtrls;
type TForm1 = class(TForm) WebBrowser1: TWebBrowser; procedure FormCreate(Sender: TObject); procedure WebBrowser1DocumentComplete(Sender: TObject; const pDisp: IDispatch; var URL: OleVariant); private { Private-Deklarationen } FirstRun: Boolean; public { Public-Deklarationen } end;
var Form1: TForm1;
implementation
{$R *.dfm} {----------------------------------------------------------------}
procedure TForm1.FormCreate(Sender: TObject); begin FirstRun := True; WebBrowser1.Navigate('about:blank'); end;
{----------------------------------------------------------------}
procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject; const pDisp: IDispatch; var URL: OleVariant); var WebDoc: HTMLDocument; WebBody: HTMLBody; begin if FirstRun then if pDisp = WebBrowser1.Application then begin FirstRun := False; WebDoc := WebBrowser1.Document as HTMLDocument; WebBody := WebDoc.body as HTMLBody; WebBody.insertAdjacentHTML('BeforeEnd', '<h1>Hello World!</h1>'); end; end;
{----------------------------------------------------------------}
end. |
©Drkb::03464
Взято с сайта http://www.swissdelphicenter.ch/en/tipsindex.php