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