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

Delphi ADOConnection1 连接excel 读取数据

unitUnit1;interfaceusesWinapi.Windows,Winapi.Messages,System.SysUtils,System.Variants,System.Classes…

类别:组件 标签: 作者:admin 日期:2020-01-30 01.27.35

Delphi StringGrid 实例5 本例功能:字体修改为居中,红色,20号

StringGrid实例5本例功能:字体修改为居中,红色,20号实例5本例功能:在FireMonkey中StringGrid对于字体的调…

类别:组件 标签: 作者:admin 日期:2020-01-22 17.22.00

Delphi StringGrid 实例4 本例功能: 1、给每个单元格赋值 2、调整当前单元格位置:上下左右;

实例4本例功能:1、给每个单元格赋值2、调整当前单元格位置:上下左右;运行效果图:typeTForm12=class(TForm…

类别:组件 标签: 作者:admin 日期:2020-01-22 17.20.34

Delphi StringGrid 实例3: 本例功能: 1、修改 TStringGrid的默认宽与高; 2、添加行; 3、确认当前单元并赋值.

StringGrid实例3:本例功能:1、修改TStringGrid的默认宽与高;2、添加行;3、确认当前单元并赋值.实例3:本例…

类别:组件 标签: 作者:admin 日期:2020-01-22 17.17.07

Delphi StringGrid 实例2:1、获取 StringGrid 的行数、列数; 2、给单元赋值

S****ingGrid实例2:1、获取S****ingGrid的行数、列数;2、给单元赋值.实例2:本例功能:1、获取S****ingGrid…

类别:组件 标签: 作者:admin 日期:2020-01-22 17.15.46

Delphi StringGrid之属性大全

Align://确定组件在父类组件区内的对齐方式(alScale:随窗口放大缩小)AlterRowBackGround://设置用于绘…

类别:组件 标签: 作者:admin 日期:2020-01-22 17.14.48

Delphi XML解析、使用TreeView呈现效果

首先用到TXMLDocument控件;Memo来显示XML文件,TreeView来呈现元素;源代码:ProcedureTForm2.Button1Clic…

类别:组件 标签: 作者:admin 日期:2020-01-22 17.12.36

Delphi StringGrid1读取加载excel文件

constxlCellTypeLastCell=$0000000B;varExlApp,Sheet:OLEVariant;i,j,r,c:integer;namestr:string;checkdat…

类别:组件 标签: 作者:admin 日期:2020-01-22 17.10.00

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.****s,Vcl.ComC****ls,Vcl.S****C****ls,Vcl.…

类别:组件 标签: 作者: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