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

delphi中控件数组批量赋值

procedureTForm1.Button1Click(Sender:TObject);vari:integer;beginfori:=1to6dobeginTLabel(FindComponent('Label'+IntToStr(i))).Caption:='我是'+inttostr(i)+'号';//TEdit(FindComponent('Edit'+IntToStr(i))).C…
类别:组件 标签: 作者:admin 日期:2019-09-17 08.37.47

Delphi Memo1 字符串快速查找定位

procedureTForm1.Button3Click(Sender:TObject);varI,L:Integer;beginMemo1.WordWrap:=False;Memo1.Lines.LoadFromFile('Windows.pas');I:=Pos('finalization',Memo1.Text);ifI>0thenbeginL:=SendMessage(Memo1.Hand…
类别:组件 标签:Memo1 作者:admin 日期:2019-09-16 11.46.43

Delphi TNetHttpClient的用法

TNetHttpClient的用法TNetHttpClient是DELPHIXE8新增加的控件。在之前,我们一般都是使用IDHTTP控件,但在安卓、IOS等非WINDOWS平台,IDHTTP访问HTTPS却不行了。大家知道INDY的SSL访问局限于WINDOWS平台,并不支持跨…
类别:组件 标签: 作者:admin 日期:2019-09-09 21.15.18

使用INDY解决BASE64回车换行问题

使用INDY解决BASE64回车换行问题使用DELPHIEncodeStream(),对流数据进行BASE64编译以后,每隔75个字符,就会添加回车换行符(#$D#$A),这会造成许多问题。网上许多解决方法,是对BASE64的字符串中的回车换行符,使…
类别:组件 标签: 作者:admin 日期:2019-09-09 20.58.51

IdHTTPServer允许跨域访问

IdHTTPServer允许跨域访问procedureTMain.idHttpServerCommandGet(AContext:TIdContext;ARequestInfo:TIdHTTPRequestInfo;AResponseInfo:TIdHTTPResponseInfo);beginAResponseInfo.CustomHeaders.Add('Access-Contro…
类别:组件 标签: 作者:admin 日期:2019-09-09 20.43.40

Delphi高亮显示TRichEdit当前行

vargStart,gLength,gCol:Integer;procedureSetRichEdit(aRichEdit:TRichEdit);varfRow,fCol:Integer;fStart,fLength,tStart:Integer;beginfRow:=aRichEdit.CaretPos.X;fCol:=aRichEdit.CaretPos.Y;ifgCol=fColthenEx…
类别:组件 标签:RichEdit 作者:admin 日期:2019-09-09 00.43.48

Delphi Treeview中显示Mainmenu菜单

类别:组件 标签: 作者:admin 日期:2019-09-09 00.37.21

Delphi Memo 控件光标定位

LRESULTSendMessage(HWNDhWnd,UINTMsg,WPARAMwParam,LPARAMlParam)SendMessage(Memo1.Handle,EM_LINEFROMCHAR,Memo1.SelStart,0);//光标所在的行号SendMessage(Memo1.Handle,EM_LINEINDEX,row_pos,&...
类别:组件 标签: 作者:admin 日期:2019-09-07 09.49.59

delphi应用SynEdit完美实现SQL语法高亮

安装方法参考delphi的控件安装,以下是需要配置的TSynSQLSyn的属性:1、注释的高亮显示:CommentAttri.Foreground=clGreen2、标识符高亮显示:DelimitedIdentifierAttri.Foreground=clBlue3、函数高亮显示:Function…
类别:组件 标签: 作者:admin 日期:2019-09-06 16.11.44

delphi SynEdit1 SynMemo1 显示行号

delphiSynEdit1SynMemo1显示行号SynEdit1.Gutter.ShowLineNumbers:=True;
类别:组件 标签: 作者:admin 日期:2019-09-06 16.10.32

DELPHI SPEEDBUTTON按钮动态加载图片(从IMAGE和IMAGELIST)

DELPHISPEEDBUTTON按钮动态加载图片(从IMAGE和IMAGELIST)一、直接上代码procedureTForm2.Button2Click(Sender:TObject);varbmp:Tbitmap;Stream:TMemoryStream;beginbmp:=Tbitmap.Create;//ImageList1.GetBitmap(1,…
类别:组件 标签: 作者:admin 日期:2019-04-13 09.36.11

Delphi GridPanel Percent百分比设置

DelphiGridPanelPercent百分比设置可能很多人都有这个困扰,为什么每次设置一个百分比后,值都会改变,只有设置成absolute​才会正常,经摸索发现,是因为精度引起,设置percent的时候,需要将精确到多个小数位…
类别:组件 标签: 作者:admin 日期:2019-04-13 08.45.23

Delphi高亮显示TRichEdit当前行

vargStart,gLength,gCol:Integer;procedureSetRichEdit(aRichEdit:TRichEdit);varfRow,fCol:Integer;fStart,fLength,tStart:Integer;beginfRow:=aRichEdit.CaretPos.X;fCol:=aRichEdit.CaretPos.Y;ifgCol=fColthenEx…
类别:组件 标签: 作者:admin 日期:2019-04-08 13.51.15

Delphi中使用ActiveX的一些心得

废话不多说了,利用内存流来判断文件的格式,其实判断文件的前几个字节就可以简单的判断这个文件是什么类型的文件,例如jpg文件是FFD8(从低位到高位就要反过来D8FF下面都是一样)BMP文件是424D---4D42其他的我就不一一…
类别:组件 标签: 作者:admin 日期:2019-04-07 22.12.54

delphi checklistbox用法

在Delphi中checklistbox中高亮选中(不论是否Checked)能够进行操作么?删除,上下移动等等删除:CheckListBox.DeleteSelected;上下移:CheckListBox.Items.Move删除用CheckListBox1.Items.Delete(Index);上下移动用…
类别:组件 标签: 作者:admin 日期:2019-03-10 22.14.44

delphi HTTP 常见异常状态及Delphi IDHTTP 控件处理方式

以下部分为网上查找,部分为工作中整理200:请求成功202:请求被接受,但处理尚未完成302:请求到的资源在一个不同的URL处临时保存处理方式:重定向到临时的URL(IDHTTP处理方式:IdHTTP.HandleRedirects:=True;)404:…
类别:组件 标签: 作者:admin 日期:2018-04-14 22.55.18

delphi Webbrowser同时访问两个网址导致程序出错的解决办法

有些时候我们用Webbrowser,在一些配置不好的机器上,访问网页会比较卡,特别是自动提交表单的时候。这时,如果一先一后访问两个网址或两个表单,而正好这时机器卡了一下。那这两个网址就变成一起传递给机器,这会造…
类别:组件 标签: 作者:admin 日期:2018-04-06 13.36.49

Delphi10.2.3实现http异步下载

随着Delphi10.2.3的发布,随之带来更稳定、更完善的版本。今天借官方的例子,解读一下如何实现Http异步下载并显示下载进度。使用的核心组件是THttpClient,首先建立一个THttpClient对象FClient,用他来执行下载任务。…
类别:组件 标签: 作者:admin 日期:2018-03-29 23.29.13

delphi 图像自动调整显示

varTempWidth:longint;begin&...
类别:组件 标签: 作者:admin 日期:2018-03-17 23.01.12

Delphi WebBrowser 去除滚动条和边框

去掉滚动条只对某些网页起作用,比如百度的页面就不知道为什么去不掉。下面是用Webbrowser显示图片时去掉边框和滚动条的方法,也适用于部分网页,实际上就是设置网页CSS。在DocumentComplete事件中加入下列代码即可。…
类别:组件 标签: 作者:admin 日期:2018-03-14 21.35.40