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

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

Delphi使用IdHttp 获取 HttpsURL内容

usesIdHTTP,IdSSLOpenSSL;functionHttpsGet(constaURL,aContentFile:string):Boolean;varvIdHTTP:TIdHTTP;vSSL:TIdSSLIOHandlerSocket;vMemory:TMemoryStream;begintryvIdHTTP:=TIdHTTP.Create(nil);vSSL:=TIdSSLIOH…
类别:组件 标签:IdHttp 作者:admin 日期:2014-04-16 21.42.36

delphi 让ScrollBox响应鼠标滚轮事件

Delphi中ScrollBox控件是不响应鼠标滚轮事件的,让其响应鼠标滚轮方法如下:procedureTForm1.FormMouseWheel(Sender:TObject;Shift:TShiftState;WheelDelta:Integer;MousePos:TPoint;varHandled:Boolean);beginifWhe…
类别:组件 标签:ScrollBox 作者:admin 日期:2014-04-12 12.14.28

delphi WebBrowser.OleObject属性

财产的OleObject暴露了物体内部TWebBrowser。如需了解完整细节的物体可看到http://msdn.microsoft.com/workshop/a...ce/objects.asp。一切可通过OleObject财产,也可Document属性。一般获得的数据通过的Document属性…
类别:组件 标签: 作者:admin 日期:2014-04-02 20.51.28

delphi屏蔽WebBrowser页面中传出来的声音

procedureCloseSound;varhWinmm:Cardinal;pwaveOutWrite:Pointer;lp:Cardinal;beginhWinmm:=LoadLibrary('Winmm.dll');ifhWinmm>0thenpwaveOutWrite:=GetProcAddress(hWinmm,'waveOutOpen');ifpwaveOutWrite<>nilthe…
类别:组件 标签: 作者:admin 日期:2014-01-24 23.11.23