DELPHI盒子
!实时搜索: 盒子论坛 | 注册用户 | 修改信息 | 退出
检举帖 | 全文检索 | 关闭广告 | 捐赠
技术论坛
 用户名
 密  码
自动登陆(30天有效)
忘了密码
≡技术区≡
DELPHI技术
lazarus/fpc/Free Pascal
移动应用开发
Web应用开发
数据库专区
报表专区
网络通讯
开源项目
论坛精华贴
≡发布区≡
发布代码
发布控件
文档资料
经典工具
≡事务区≡
网站意见
盒子之家
招聘应聘
信息交换
论坛信息
最新加入: wuliao8
今日帖子: 43
在线用户: 7
导航: 论坛 -> 移动应用开发 斑竹:flyers,iamdream  
作者:
男 mp654kk (mp654kk) ▲△△△△ -
普通会员
2024/6/5 14:47:25
标题:
新手求助fmx里如何写一个TWebBrowser的helper实现自动绑定事件 浏览:155
加入我的收藏
楼主: unit Unit1;

interface

uses
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
  FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.WebBrowser;

type
  TForm1 = class(TForm)
    WebBrowser1: TWebBrowser;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

  TWwebbrowserHelper = class helper for tWebBrowser
  public
  private
    procedure WebBrowserShouldStartLoadWithRequest(Sender: TObject; const URL: string);
    procedure WebBrowserDidFinishLoad(ASender: TObject);
  end;

var
  Form1: TForm1;

implementation

{$R *.fmx}

procedure TWwebbrowserHelper.WebBrowserShouldStartLoadWithRequest(Sender: TObject; const URL: string);
begin
  //do something
end;

procedure TWwebbrowserHelper.WebBrowserDidFinishLoad(ASender: TObject);
begin
   //do something
end;

end.
----------------------------------------------
-
作者:
男 mp654kk (mp654kk) ▲△△△△ -
普通会员
2024/6/5 14:49:10
1楼: 请问如何利用helper让webbrowser自动具有如下绑定事件的效果,而不需要额外的代码,代码在附件,非常感谢:
WebBrowser1.OnDidFinishLoad := WebBrowserDidFinishLoad;
WebBrowser1.OnShouldStartLoadWithRequest := WebBrowserShouldStartLoadWithRequest;
此帖子包含附件:mp654kk_202465144957.rar 大小:9.5K
----------------------------------------------
-
信息
登陆以后才能回复
Copyright © 2CCC.Com 盒子论坛 v3.0.1 版权所有 页面执行148.4375毫秒 RSS