BDS的欢迎页面中点击链接调用功能如何做?
比如点击New Project打开的是新建项目的对话框,似乎调用的是程序内部函数.
状态栏显示javascript:newProject();
这是怎么做到的?用哪些控件?
[解决办法]
用的是java脚本吧，不是什么控件
[解决办法]
WebBrowser 有一个OnGetExternal事件，在这里实现：
wbBrowser.OnGetExternal := OnGetExternal;
...
function TfrmBrowser.OnGetExternal(out ppDispatch: IDispatch): HRESULT;
var
FIntf: TWebBrowserEvent;
begin
FIntf := TWebBrowserEvent.Create;
ppDispatch := FIntf;
Result := S_OK;
end;
...
/// Com Object
uses
ComObj, ActiveX, BrowserEx_TLB, StdVcl;
type
TWebBrowserEvent = class(TAutoObject, ISomeIntface)
protected
procedure Test; safecall;
function Get_GetMacAddr: OleVariant; safecall;
// do something, implement ISomeIntface
end
[解决办法]
up
