易截截图软件、单文件、免安装、纯绿色、仅160KB

delphi中Webbrowser问题收集

 delphi中Webbrowser问题收集
获得网页中变量值     htm中<script> var currID=123</script>     程序中可以这么调用 id := Form1.WebBrowser1.OleObject.Document.script.currID     值得说明的是,变量可以是javascript定义的,也可以是vbscript定义的,如果Webbrowser1中找不到该变量,调用会触发一个异常事件,即变量currID不存在
2.执行网页中的函数     tmp := 'currID = getNextID(currID)'+#13#10;
     Form1.WebBrowser1.OleObject.Document.parentWindow.execScript(tmp,'JavaScript');    调用函数的方法就是execScript接口,同样,如果函数不存在,或者运行错误也会触发脚本错误异常
3.设置网页背景     背景图片 WebBrowser1.OleObject.Document.body.background    := 'http://seelearn.com/bg.gif'       背景颜色 WebBrowser1.OleObject.Document.body.bgcolor    := '#eeeeee'
4.调用网页中已知对象     src := WebBrowser1.OleObject.Document.getElementByID('img1').src     该方法其实就是javascript中的 getElementByID  
5.获取页面中所有的frame     使用DHTML。
     frames:=wb.OleObject.document.frames;
     for i:=0 to frames.length do
     memo1.lines.Add(frames[i].document.body.innerHTML);6.BorderStyle=bsNone后Webbrowser会被重新初始化     这是一个让人很意外的一个问题,Delphi在窗口控件的控制方面做得非常好,很少出现这种BUG     根据分析,出现这个现象有很多情况 改变FormStyle也会出现 ; 如果    webbrowser.parent    由panel1    改到panel2.也会导致webbrowser重新  
   初始化。
7.直接向Webbrowser中写入html代码,不需要Navigate到实际存在的文件     var
    StrStream:TStringStream;
    SetNoteStr: string;     begin &


相关文档:

Delphi常用代码汇总

◇[DELPHI]产生鼠标拖动效果
通过MouseMove事件、DragOver事件、EndDrag事件实现,例如在PANEL上的LABEL:
var xpanel,ypanel,xlabel,ylabel:integer;
PANEL的MouseMove事件:xpanel:=x;ypanel:=y;
PANEL的DragOver事件:xpanel:=x;ypanel:=y;
LABEL的MouseMove事件:xlabel:=x;ylabel:=y;
LABEL的EndDrag事件:label ......

Delphi显示和隐藏窗体

一个很简单的问题,但我凭我学习C++/VC一年多,接触Delphi的时间也不短了,但仍然写不出来。
本来以为,不就是将Form1.Show和Form1.Hide么,但却就是达到不到自己想要的结果
这个问题倒不用作深入研究了,到是让我发现,Delphi也不是信手摘来,什么都是那么容易的,以为自己有点儿VC的底子,就小看了Delphi。
最近一段时 ......

Delphi 与 C/C++ 数据类型对照表

Delphi 与 C/C++ 数据类型对照表
Delphi数据类型C/C++
ShorInt
8位有符号整数
char
Byte
8位无符号整数
BYTE,unsigned short
SmallInt
16位有符号整数
short
Word
16位无符号整数
unsigned short
Integer,LongInt
32位有符号整数
int,long
Cardinal,LongWord/DWORD
32位无符号整数
unsigned long
Int6 ......

Delphi中绘制圆角矩形的窗体

制作圆角矩形的窗体:
01.procedure TPortForm.FormCreate(Sender: Tobject);
02.var hr :thandle;
03.begin
04.hr:=createroundrectrgn(0,0,width,height,20,20);
05.setwindowrgn(handle,hr,true);
06.end;
如果不要窗体外框,则使用:
01.procedure TPortForm.FormCreate(Sender: Tobject);
02.var hr :thandl ......

Delphi 完全时尚手册之 Visual Style 篇

    这里先说说两个概念:Theme(主题)和 Visual Style 。Theme 最早出现在 Microsoft Plus! for Windows 95 中,是 Windows 中 Wallpaper、Cursors、Fonts、Sounds 、Icons 等的设置值集合。Visual Style 在 Windows XP 中才被引入,Visual Style 规定了 Contorls 的外观,另外还包括使用这些外观的一套 API ......
© 2009 ej38.com All Rights Reserved. 关于E健网联系我们 | 站点地图 | 赣ICP备09004571号