16,742
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
山东蓝鸟贵薪 2011-10-29
- 打赏
- 举报
关注一下
帮你顶顶先
帮你顶顶先
xsmuhtar 2011-10-28
- 打赏
- 举报
现在我用的是dhtml控件，此控件里面如何写以上代码？
jingtuzhong 2011-10-28
- 打赏
- 举报
如果是 嵌入程序中的 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;
xsmuhtar 2011-10-28
- 打赏
- 举报
我是一个新手能不能详细一点讲一下，有个例子那更好！
bdmh 2011-10-27
- 打赏
- 举报
webbrowser吗，可以通过beforenavigating事件，设置cancel=true，然后根据url来调用窗体
