Delphi响应Html

发布时间:2020-05-18 04:32:12 作者:hack9527
来源:网络 阅读:566
procedure TForm1.WebBrowser1BeforeNavigate2(ASender: TObject;
const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
Headers: OleVariant; var Cancel: WordBool);
var
myurl,tstr:string;
Stpos,len:Integer;
begin
if WebBrowser1.ReadyState=READYSTATE_COMPLETE then  //判断页面是否加载完成
begin
myurl:=string(URL);                 //获取URL
Stpos:=LastDelimiter('#',myurl);    //获取URL中 #向后的字符个数
len:=Stpos-1;                       //字符长度减一
tstr:=Copy(myurl,stpos+1,len);      //组合过滤后子字符
//判断用户点击了那个链接
if tstr='caigou' then
begin
ShowMessage('caigou');
Cancel:=True;
Exit;
end;
if tstr='caiwu' then
begin
ShowMessage('caiwu');
Cancel:=True;
Exit;
end;
if tstr='xiaoshou' then
begin
ShowMessage('xiaoshou');
Cancel:=True;
Exit;
end;
if tstr='cangku' then
begin
ShowMessage('cangku');
Cancel:=True;
Exit;
end;
if tstr='renshi' then
begin
ShowMessage('renshi');
Cancel:=True;
Exit;
end;
end;
end;

 

推荐阅读:
  1. Delphi中DataSource、ClientDataSe
  2. delphi浮动窗口

免责声明:本站发布的内容(图片、视频和文字)以原创、转载和分享为主,文章观点不代表本网站立场,如果涉及侵权请联系站长邮箱:is@yisu.com进行举报,并提供相关证据,一经查实,将立刻删除涉嫌侵权内容。

delphi html界面 %d lp

上一篇:mysql主从复制读写分离与高可用配置

下一篇:MySQL+第三方软件备份

相关阅读

您好,登录后才能下订单哦!

密码登录
登录注册
其他方式登录
点击 登录注册 即表示同意《亿速云用户服务条款》