我想程序的主界面中显示一HTML页面，有没有办法在点击超链接时打开相应的程序功能，如打开一个窗口(200分)

rt

使用TWebBrowser;
使用Navigate()装载你要显示的HTML页面;
在OnBeforeNavigate2事件中编写代码，打开窗口。

code:
procedure TForm1.WebBrowser1BeforeNavigate2(Sender: TObject;
const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
Headers: OleVariant; var Cancel: WordBool);
var
strurl: string;
begin
strurl := URL;
if strurl = 'E:/a.html' then
Cancel := False
else begin
Cancel := True;
ShowMessage(strurl);
end;
end;

可以这样，测试成功过。
设置一个主窗体，然后在上面放一个工具栏，工具栏中放一个speedbutton.然后在主窗体中放一个webbrowser控件（在internet页面上）
在speedbutton的onclick事件中加入：
procedure TForm1.speedbutton1Click(Sender: TObject);
begin
webbrowser1.Navigate('www.job-sky.com');
end;

如果是超级连结，是一样的方式。在label的onclick事件中加入我上面所说的一样的语句。

thank you