获取浏览器指定控件的尺寸

在窗口初始化Onintidialog中添加如下代码

CRect R;

GetParent()->GetClientRect(&R);

  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
Delphi 中可以使用 TEdgeBrowser 件来嵌入 Edge 浏览器,实现网页浏览和交互功能。以下是一个示例代码,演示如何在 Edge 浏览器件中输入文本: ```delphi uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.OleCtrls, SHDocVw_EWB, MSHTML_EWB, EwbCore, EwbAcc; type TForm1 = class(TForm) EdgeBrowser: TEdgeBrowser; Edit1: TEdit; Button1: TButton; procedure Button1Click(Sender: TObject); private procedure EdgeBrowserDocumentComplete(ASender: TObject; const pDisp: IDispatch; var URL: OleVariant); public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var doc: IHTMLDocument2; input: IHTMLInputElement; begin doc := EdgeBrowser.Document as IHTMLDocument2; if Assigned(doc) then begin input := doc.getElementById('input_id') as IHTMLInputElement; if Assigned(input) then input.value := Edit1.Text; end; end; procedure TForm1.EdgeBrowserDocumentComplete(ASender: TObject; const pDisp: IDispatch; var URL: OleVariant); begin if Assigned(EdgeBrowser.Document) then begin EdgeBrowser.Document.Script := 'function myFunction() { alert("Page loaded!"); }'; EdgeBrowser.Document.InvokeScript('myFunction'); end; end; end. ``` 这段代码中,我们首先获取 EdgeBrowser 的 Document 对象,然后使用 getElementById 方法获取指定的 input 元素,并将 Edit1 中的文本赋值给它。这里的 `input_id` 是指网页中相应 input 元素的 id 属性。 在按钮点击事件中,我们调用了上述的输入文本的代码。当然,为了确保 Edge 浏览器已经加载完成,我们还需要在 Form 的 OnCreate 事件中添加以下代码: ```delphi procedure TForm1.FormCreate(Sender: TObject); begin EdgeBrowser.Navigate('https://www.example.com'); EdgeBrowser.OnDocumentComplete := EdgeBrowserDocumentComplete; end; ``` 这里我们在 EdgeBrowser 件中加载了一个示例网页,并设置了 OnDocumentComplete 事件,以确保浏览器加载完成后再执行我们的代码。当 Edge 浏览器件加载完成后,会弹出一个提示框,说明页面已加载完成。

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值