Delphi_判断Webbrowser打开的网页组件是否存在?

转载 2013年12月04日 22:52:58

原文来自:http://blog.csdn.net/pengxuan/article/details/8684994


  1. <html>  
  2.   
  3. <head>  
  4. <meta http-equiv="Content-Type" content="text/html; charset=gb2312">  
  5. <title>新建网页 1</title>  
  6. <script>  
  7. function aa(){  
  8.   alert("abc");  
  9. }  
  10. </script>  
  11. </head>  
  12.   
  13. <body>  
  14.   
  15. <form method="POST" action="--WEBBOT-SELF--">  
  16.     <p><input type="button" value="按钮" name="B3" onclick="aa()"></p>  
  17. </form>  
  18.   
  19. </body>  
  20.   
  21. </html> 

  1. unit Unit1;  
  2.   
  3. interface  
  4.   
  5. uses  
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  
  7.   Dialogs, OleCtrls, SHDocVw, StdCtrls, MSHTML_TLB;  
  8.   
  9. type  
  10.   TForm1 = class(TForm)  
  11.     WebBrowser1: TWebBrowser;  
  12.     Button1: TButton;  
  13.     procedure FormCreate(Sender: TObject);  
  14.     procedure Button1Click(Sender: TObject);  
  15.   private  
  16.     { Private declarations }  
  17.   public  
  18.     { Public declarations }  
  19.   end;  
  20.   
  21. var  
  22.   Form1: TForm1;  
  23.   
  24. implementation  
  25.   
  26. uses Math;  
  27.   
  28. {$R *.dfm}  
  29.   
  30. procedure TForm1.FormCreate(Sender: TObject);  
  31. begin  
  32. WebBrowser1.Navigate('c:\index.htm');  
  33. end;  
  34.   
  35. procedure TForm1.Button1Click(Sender: TObject);  
  36. var b:IHTMLElement;  
  37. begin  
  38.   b:=(WebBrowser1.Document as IHTMLDocument3).getElementById('B3');  
  39.   if b=nil then exit;//这里判断网页中是不是找到了这个按钮,如果换成B4就不能执行下面的代码了  
  40.   b.click;  
  41. end;  
  42.   
  43. end

相关文章推荐

delphi中webbrowser的用法

delphi中webbrowser的用法

Webbrowser判断网页控件是否存在?

网页代码: 新建网页 1 function aa(){ alert("abc"); } delphi判断网页中是...

Delphi_判断Webbrowser打开的网页组件是否存在?

网页代码: [html] view plain copy html>      head>   meta http-equiv="Content-Ty...

office网页组件

  • 2014年12月26日 17:42
  • 223KB
  • 下载

AXURE 8+ 动画网页组件库

  • 2016年06月24日 13:43
  • 2.03MB
  • 下载

Delphi中始终用WebBrowser打开网页

这个问题也曾经困扰过我一段时间啊!呵呵…… 给你一个解决办法,肯定能成功! procedure TForm1.WebBrowser1NewWindow2(Sender: TObject;   v...

基于jquery的网页组件

  • 2014年10月13日 10:08
  • 1.59MB
  • 下载

Delphi7 Webbrowser制作网页表单自动提交器按步分析(1)

====================================================== 注:本文源代码点此下载 =============================...

Delphi7 Webbrowser制作网页表单自动提交器按步分析(1)

Webbrowser制作网页表单自动提交器按步分析(1)" alt="Delphi7 Webbrowser制作网页表单自动提交器按步分析(1)" src="http://s1.sinaimg.cn/m...

WebBrowser组件和MSHTML 在Delphi中的使用

很多都是网上的,拿来学习下:O(∩_∩)O   由于项目需要,近来研究了一下WebBrowser组件和MSHTML 在Delphi中的使用,整理了一下这段时间研究的结果,写下来一是方便大家查阅,二也...
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:Delphi_判断Webbrowser打开的网页组件是否存在?
举报原因:
原因补充:

(最多只允许输入30个字)