RSS订阅 | 匿名投稿
您的位置:网站首页 > 组件

delphi TWebBrowser控件禁用鼠标右键

在窗体上放置一个TApplicationEvents控件(在Additional面板),编写该控件的OnMessage事件响应代码:procedureTForm1.ApplicationEvents1Message(varMsg:tagMSG;varHandled:Boolean);beginif(Msg.message=wm_rbutto…
类别:组件 标签: 作者:admin 日期:2016-01-26 21.55.21

delphi TListView按指定列排序

以下代码实现的功能是:点击TListView的某一列列头,就按该列对数据进行排序。1.添加TListView控件的OnColumnClick事件响应代码:procedureTForm1.ListView1ColumnClick(Sender:TObject;Column:TListColumn);begin(S…
类别:组件 标签: 作者:admin 日期:2016-01-26 21.50.38

Delphi idHTTP使用代理IP

procedureTForm1.btn1Click(Sender:TObject);varHttp:TIdHTTP;beginHttp:=TIdHTTP.Create(nil);Http.ProxyParams.ProxyServer:='91.211.141.249';//代理IPHttp.ProxyParams.ProxyPort:=8080;Http.ProxyParams.ProxyU…
类别:组件 标签: 作者:admin 日期:2015-04-27 20.12.24

Delphi WebBrowser通过遍历Id查找元素是否存在

{Delphi:}functionFindIds(Aid:String):Boolean;varDocument:Variant;Id:Integer;beginResult:=False;Document:=WebBrowser.OleObject.Document.getElementsByTagName('*');forId:=0toDocument.Length-1dobeginifDoc…
类别:组件 标签: 作者:admin 日期:2015-04-25 22.28.46

Delphi TWebBrowser get HTML source after AJAX load

functionTBrowser.GetWebBrowserHTML(constWebBrowser:TWebBrowser):string;varLStream:TStringStream;Stream:...
类别:组件 标签: 作者:admin 日期:2015-04-16 20.21.46

Delphi XE7中StringGrid组件的使用

介绍本文章介绍了DelphiXE7中StringGrid组件的使用FMX下的Grid类控件似乎不太尽如人意,可能是和官方的资料没有跟得上它的发行版本有关系。以下讨论StringGrid的列表头及对齐方式。先上个效果图:FMX的列表头估计很多…
类别:组件 标签: 作者:admin 日期:2015-04-16 13.44.51

Indy 中IdHttp元件出现http status 302错误

类别:组件 标签: 作者:admin 日期:2015-01-21 21.10.23

Delphi 仿DBNavigator方式

Delphi有很好用的DBNavitor元件,美中不足的是按钮的样式稍嫌不足!那是否可以仿DBNavigator的方式?笔者提供一个简单的范例给大家:)delphi_simulate_dbnavigator一、自订首笔/上笔/下笔/末笔procedureTForm1.DataSo…
类别:组件 标签: 作者:admin 日期:2014-11-24 20.53.50

Delphi 判断TImage是否为空及注意事项

Delphi判断TImage是否为空:1)非空Image1.Picture.Graphic<>nil2)为空Image1.Picture.Graphic=nil注意不能用Image1.Picture来判断。Image1.Picture.Graphic即可直接赋值也可用Assign。Image1.Picture不能直接赋值,…
类别:组件 标签: 作者:admin 日期:2014-08-29 23.58.59

Delphi 禁用TEdit右键菜单及复制粘贴

Delphi禁用TEdit右键菜单及复制粘贴简的单方法如下:1)设置TEdit的ReadOnly属性为TrueEdit1.ReadOnly:=True;2)在TEdit的OnContextPopup中使Handled:=TrueprocedureTFrmReport.Edit1ContextPopup(Sender:TObject;Mous…
类别:组件 标签: 作者:admin 日期:2014-08-29 23.53.03

Delphi Indy 组件包里的 IDHTTP 组件使用 Get 方法下载文件限速的方法

DelphiXE+Indy10.5.7,限速不是很准确,不过还凑合吧<imgsrc="/UpFile/201408/201481323329333.jpg"small="0"style="border:0px;margin-bottom:8px;clear:both;max-width:702px;vertical-align:top;"/...
类别:组件 标签: 作者:admin 日期:2014-08-13 23.31.30

delphi XE6 switch元件簡繁體問題

XE6的Switch元件增加了多國語系的功能,不過很遺憾的是它在中文的部份只認得zh,不會分辨zh_CN、zh_TW、zh_SG跟zh_HK。但是幸好Delphi是可以自己修正原始碼的:)將ProgramFilesEmbarcaderoStudio14.0sourcefmx下的FMX…
类别:组件 标签: 作者:admin 日期:2014-08-04 14.03.25

delphi 修改WebBrowser的内容

修改WebBrowser的内容很多方法都可以修改WebBrowser的内容。比如说修改innerHTML、以...
类别:组件 标签: 作者:admin 日期:2014-08-02 16.03.35

delphi webbrowser有关技术

1.获得网页中变量值htm中&lt;script&gt;varcurrID=123&lt;/script&gt;程序中可以这么调用id:=Form1.WebBrowser1.OleObject.Document.script.currID值得说明的是,变量可以是javascript定义的,也可以是…
类别:组件 标签: 作者:admin 日期:2014-07-29 17.42.05

Delphi 下 VCLZip控件的简单使用

usesVCLUnZip,VCLZip;functionComPressFile(dstFile,srcFile:string):Boolean;varvclzip:TVCLZip;beginResult:=False;vclzip:=TVCLZip.create(nil);trywithvclzipdobegintryZipName:=dstFi...
类别:组件 标签:VCLZip 作者:admin 日期:2014-07-29 17.28.04

delphi中ComboBox的DataValue值

procedureTForm1.Button1Click(Sender:TObject);vars:string;begincombobox1.Clear;s:='01';combobox1.Items.AddObject('北京',TObject(s));s:='02';combobox1.Items.AddObject('天津',TObject(s));s:='03';combobox…
类别:组件 标签:ComboBox 作者:admin 日期:2014-07-29 17.21.04

delphi 利用TIdHttp实现文件下载的分块断点续传

环境delphi2007+indy网上有大量利用TIdHttp控件下载并支持断点续传的例子,但在delphi2007环境下运行都不成功。最近应为项目需要编写了一个测试程序,可以成功实现分块断点续传,并支持链接重定向后,自动获得真实的…
类别:组件 标签:TIdHttp 作者:admin 日期:2014-07-29 17.18.32

delphi 利用VCLZip实现分卷压缩

functionZip(ZipMode,PackSize:Integer;ZipFile,UnzipDir:String):Boolean;//压缩或解压缩文件varziper:TVCLZip;begin//函数用法:Zip(压缩模式,压缩包大小,压缩文件,解压目录)//ZipMode为0:压缩;为1:解压缩Pa…
类别:组件 标签: 作者:admin 日期:2014-07-29 17.18.06

VclZip 3.10.1的简单使用示例

一款VCL控件,可以用来压缩或解压缩ZIP格式文件,支持ZIP64格式。
类别:组件 标签:VclZip 作者:admin 日期:2014-07-29 16.06.07

delphi xe listbox 行高根据内容高度进行调速

procedureTForm1.ListBoxItemApplyStyleLookup(Sender:TObject);varo:TFMXObject;begino:=(SenderasTListBoxItem).FindStyleResource('text');ifoisTTextthen(SenderasTListBoxItem).Height:=(oasTText).Height;end;…
类别:组件 标签: 作者:admin 日期:2014-07-25 13.32.32