2个回答
展开全部
如果是 嵌入程序中的 html 页面 可以在打开链接目标前 分析目标字符串
调用窗体 例:
procedure TForm1.WebBrowser1BeforeNavigate2(Sender: TObject;
const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
Headers: OleVariant; var Cancel: WordBool);
begin
if url='abc' then
begin
调用窗体abc的代码
end;
Cancel :=True;
end;
调用窗体 例:
procedure TForm1.WebBrowser1BeforeNavigate2(Sender: TObject;
const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
Headers: OleVariant; var Cancel: WordBool);
begin
if url='abc' then
begin
调用窗体abc的代码
end;
Cancel :=True;
end;
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询