在 Form 上放入 Internet -> TWebBrowser
procedure TForm1.FormCreate(Sender: TObject);
var
Browser: Variant;
Document: Variant;
begin
WebBrowser1.Align := alClient;
Browser := WebBrowser1.OleObject;
Browser.navigate('about:blank');
Document := Browser.document;
Document.open;
Document.writeln('<html>');
Document.writeln('<body bgcolor=#000000 text=#ffffff>');
Document.writeln('Hello World!');
Document.writeln('</body>');
Document.writeln('</html>');
Document.close;
end;
2009年5月29日
Delphi 使用 TWebBrowser
訂閱：
張貼留言 (Atom)
沒有留言:
張貼留言