动态建立了,当然你可以,先放TWebBrowser在表单也可以
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, SHDocVw, ActiveX, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
aIE : TWebBrowser;
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
aIE := TWebBrowser.Create(nil);
aIE.ParentWindow:= Form1.Handle;
aIE.Align := alClient;
aie.Visible:=true;
aIE.Navigate('c:/123.gif');
end;
initialization
OleInitialize(nil);
finalization
OleUninitialize;
end.