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

delphi webbrowser有关技术

1.获得网页中变量值htm中<script>varcurrID=123</script>程序中可以这么调用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

Delphi动态建立Panel无法更改颜色?

動態建立TPanel元件時,發現設定了Color屬性後無效。解決的方式很簡單,要設定Panel的ParentBackground為false就可以了!順帶一提,如果把ParentBackground設為True的時候,就會看到Panel會有透空的效果。
类别:组件 标签:Panel 作者:admin 日期:2014-06-09 10.28.09

Delphi PageControl不显示Tab方式

方法很簡單,建立好TabSheet後,將TabSheet的TabVisible屬性設為False。接著只要用程式去控制就行了PageControl1.ActivePageIndex:=x(TabSheetIndex);或PageControl1.ActivePage:=x(TabSheetName);
类别:组件 标签: 作者:admin 日期:2014-06-09 10.26.41

delphi FastReport 直接列印

FastReport直接列印frxreport1.LoadFromFile('報表檔案');frxreport1.Report.PrintOptions.Printer:='印表機名稱';//frxreport1.ShowReport();//顯示報表frxreport1.Report.PrintOptions.ShowDialog:=false;//不顯示…
类别:组件 标签: 作者:admin 日期:2014-06-09 10.15.36

delphi XE6 switch元件简繁问题

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

delphi 对指定DBGrid进行排序

procedureTFrom1.DBG1TitleClick(Column:TColumn);vari:integer;beginifPos('◆',Column.Title.Caption)>0thenbeginifPos('DESC',Q1.Sort)>0THENBEGINQ1.Sort:=Column.FieldName+'ASC';ENDELSEBEGIN&n...
类别:组件 标签:DBGrid 作者:admin 日期:2014-04-19 19.39.15

Delphi 隐藏 TPageControl 的标签方法

下面是个简单的例子:.....begin//先屏蔽掉所有标签fori:=0toPageControl.PageCount-1doPageControl.Pages[i].TabVisible:=False;//隐藏//再开启首先要显示的tab页,Tab_Page1:TTabSheet;PageControl.ActivePage:=Ta…
类别:组件 标签: 作者:admin 日期:2014-04-19 19.37.21

Delphi idHTTP访问百度

百度屏蔽了indy的客户端标识的Mozilla/3.0(compatible;IndyLibrary),把‘IndyLibrary’去掉就可以了。tryIdHTTP1.Request.UserAgent:='Mozilla/3.0(compatible;)';aStr:=IdHTTP1.Get('http://www.baidu.com');excep…
类别:组件 标签: 作者:admin 日期:2014-04-18 23.13.54

Delphi 双击隐藏Tabsheet

procedureTzgda.PageControl1MouseDown(Sender:TObject;Button:TMouseButton;Shift:TShiftState;X,Y:Integer);varIndex:Integer;begin//左键点击并且双击if(Button=mbLeft)and(ssDoubleinShift)thenbeginIndex:=Page…
类别:组件 标签: 作者:admin 日期:2014-04-18 22.52.37

Delphi设置光标在EDIT右边

SetWindowLong(Edit1.Handle,GWL_STYLE,GetWindowLong(Edit1.Handle,GWL_STYLE)orES_RIGHT);
类别:组件 标签: 作者:admin 日期:2014-04-18 22.52.07

delphi 遍历某字段并插入到ComboBox

dm.BM.First;whilenotdm.bm.Eofdobegincombobox1.items.Add(dm.BM.FieldValues['部门名称']);dm.BM.Next;end;combobox1.Items.Add('');
类别:组件 标签: 作者:admin 日期:2014-04-18 22.51.24

delphi 操作WebBrowser 元素值

1.自动填写表单并发布两种方法vari:integer;Doc:IHTMLDocument2;input:OleVariant;userinputelement,pwdinputelement,ValidateElement:ihtmlinputelement;ValidateImage:IHTMLImgElement;imagecount:integer;form:ih…
类别:组件 标签:WebBrowser 作者:admin 日期:2014-04-18 22.45.22

Delphi 设置WebBrowser 代理服务器 与 UserAgent

usesUrlMon,WinInet;{-------------------------------------------------------------------------------过程名:SetProcessProxy作者:kelei日期:2013.08.03参数:aProxyServer代理服务器;aProxyPort代理服务器端口返…
类别:组件 标签: 作者:admin 日期:2014-04-16 21.44.48

delphi 在TEdit中显示水印提示

CodehighlightingproducedbyActiproCodeHighlighter(freeware)http://www.CodeHighlighter.com/-->unitMyEdit;interfaceusesMessages,Classes,StdCtrls,Controls,Graphics;typeTMyEdit=class(TEdit)privateFCanvas:T…
类别:组件 标签: 作者:admin 日期:2014-04-16 21.43.48