|
楼主 |
发表于 2007-1-12 16:54:59
|
显示全部楼层
这个问题没有了,和我导入的一个包有关系.但平台中这个事件根本不能用,什么都不写运行都报错:
(Delphi 中的EmbeddedWB没有问题)
Pas代码:
unit MainForm;
interface
uses
Business.Forms,Business.System,Business.Data,Business.Model;
type
TMainForm = class(TForm)
WebBrowser2: TWebBrowser;
procedure BizFormCreate(Sender: TObject);
function WebBrowser2GetHostInfo(var pInfo: TDOCHOSTUIINFO): HRESULT;
private
{private declarations}
public
{public declarations}
end;
implementation
procedure TMainForm.BizFormCreate(Sender: TObject);
begin
WebBrowser2.Navigate('www.goolge.com');
end;
function TMainForm.WebBrowser2GetHostInfo(var pInfo: TDOCHOSTUIINFO): HRESULT;
begin
//...
end;
end.
|
|