频道分类
您的位置:网站首页 > 组件

delphi在memo按键实现全选

procedureTForm1.Memo1KeyDown(Sender:TObject;varKey:Word;Shift:TShiftState);beginif(Shift=[ssCtrl])an…

类别:组件 标签: 作者:admin 日期:2020-01-19 17.43.16

Delphi HTTPClient Async异步获取网页代码

procedureTForm1.Button10Click(Sender:TObject);varHttp:THTTPClient;Response:IHTTPResponse;beginHttp:=…

类别:组件 标签:HTTPClient 作者:admin 日期:2020-01-19 12.26.52

Delphi Label1 自动尺寸

Label1.AutoSize:=False;Label1.Caption:='Thisstringistoolongtobethecaptionofthislabel';

类别:组件 标签: 作者:admin 日期:2020-01-18 23.52.59

Delphi ComboBox1DropDown 生成动态下拉列表

描述当您下拉列表时,此示例用一组打开的表单填充组合框的列表。每次下拉列表时都会重新生成列表,因此,如…

类别:组件 标签: 作者:admin 日期:2020-01-18 23.20.04

Delphi RichEdit1 设置字体

procedureTForm1.Button1Click(Sender:TObject);beginRichEdit1.Font.Name:=ComboBox1.Text;end;procedureT…

类别:组件 标签: 作者:admin 日期:2020-01-18 23.17.29

Delphi IdWhois1 简单的用法

varLine,FindResult:string;iPos:integer;beginFindResult:=IdWhois1.Whois(Edit1.Text);//Edit1.Text=域名…

类别:组件 标签: 作者:admin 日期:2020-01-16 02.17.31

Delphi IdTCPClient1实现端口扫描器

procedureTForm1.Button1Click(Sender:TObject);vari:integer;beginIdTCPClient1.Host:=Edit1.Text;fori:=S…

类别:组件 标签: 作者:admin 日期:2020-01-16 02.14.44

Delphi IdMessage1 IdSMTP1 发送邮件支持https

procedureTForm1.Button1Click(Sender:TObject);beginIdMessage1.From.Address:=Edit1.Text;IdMessage1.Rec…

类别:组件 标签: 作者:admin 日期:2020-01-16 02.03.37

Delphi 简单的操作Memo1剪切 复制 粘贴 撤销 全选 清空

procedureT****1.MenuItem2Click(Sender:T****);beginifOpenDialog1.ExecutethenbeginMemo1.Lines.LoadFrom…

类别:组件 标签: 作者:admin 日期:2020-01-16 01.56.35

Delphi 比较完整的ListView1用法

unitUnit1;interfaceusesSystem.Classes,System.SysUtils,Vcl.Forms,Vcl.ComCtrls,Vcl.StdCtrls,Vcl.Menus,…

类别:组件 标签: 作者:admin 日期:2020-01-16 01.28.45

Delphi ListView1 加载文件列表用法

//OpenDialog1设置位文件多选GetFileSize本站可以搜索到vari,numExisting,fileSize,fileHandle:Cardinal;it…

类别:组件 标签: 作者:admin 日期:2020-01-16 00.42.11

Delphi OpenTextFileDialog用法

varD:TOpenTextFileDialog;S:TStringList;beginD:=TOpenTextFileDialog.Create(nil);tryD.Title:='Importfr…

类别:组件 标签: 作者:admin 日期:2020-01-15 23.38.10

Delphi SaveTextFileDialog 用法

varD:TSaveTextFileDialog;beginD:=TSaveTextFileDialog.Create(nil);tryD.Title:='ExportartoFile';D.Defa…

类别:组件 标签: 作者:admin 日期:2020-01-15 23.37.30

delphi memo控件对粘贴板的支持

delphimemo控件对粘贴板的支持复制:memo1.SelectAll;//SelectAll就是全选,只有先选择才能复制、剪切操作。…

类别:组件 标签: 作者:admin 日期:2020-01-14 13.28.35

delphi TreeView 从数据库添加节点的四种方法

方法一:delphi中递归算法构建treeView过程:通过读取数据库中table1的数据,来构建一颗树。table1有两个字…

类别:组件 标签: 作者:admin 日期:2020-01-12 13.53.24

Delphi之TClientSocket和TServerSocket使用tcp keepalive心跳机制实现“断网”、"断电"检测

开发环境:Delphi7测试环境:WinXP,Win732bit,Win764bit使用TClientSocket和TServerSocket实现TCP长连接通…

类别:组件 标签: 作者:admin 日期:2020-01-12 13.51.51

Delphi列表控件TListView定位到某一行

ListView1.Item[100].Focused=true;//定位到索引为100的行ListView1.Item[100].Selected=true;ListView1.It…

类别:组件 标签: 作者:admin 日期:2020-01-12 13.48.36

Delphi NetHTTPClient1 下载显示进度条

unituntFrmDownFile;interfaceusesWinapi.Windows,Winapi.Messages,System.SysUtils,System.Variants,Syste…

类别:组件 标签: 作者:admin 日期:2020-01-11 14.40.02

delphi 利用TIdEncoderMIME TIdDecoderMIME 组件字符串加密解密

unitUnit1;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,St…

类别:组件 标签: 作者:admin 日期:2020-01-11 01.32.31

Delphi 如何将Memo或RichEdit保存为UTF 8文本文件?

constUTF8BOM:array[0..2]ofByte=($EF,$BB,$BF);varUTF8Str:UTF8String;FS:TFileStream;beginUTF8Str:=UTF8…

类别:组件 标签: 作者:admin 日期:2020-01-10 20.29.06