TObject

winexec 启动控制面板中的程序

功能说明：winexec启动控制面板中的程序   procedureTForm1.Button1Click(Sender: TObject); Var X:integer;
·2015-10-30 13:24

使用 “+”号实现多个字符串的连接

功能说明：使用 “ +”号实现多个字符串的连接  procedureTForm1.btn1Click(Sender: TObject); var   str1,str2
·2015-10-30 13:23

使Memo 原有的右键功能失效 _OnContextPopup

：Memo1ContextPopup使Memo Edit原有的右键功能失效 Combox不行.pa  procedure TForm1.Memo1ContextPopup(Sender: TObject
·2015-10-30 13:23

显示Combobox1中怪物名称列表.txt

{本段代码的目的 显示Combobox1中怪物名称列表} procedure TForm1.ComboBox1DropDown(Sender: TObject); var   Monster
·2015-10-30 13:20

纯汇编显示人物信息.txt

procedure TForm1.Timer1Timer(Sender: TObject); var   hpmin,hpmax:DWORD; begin   
·2015-10-30 13:20

同时响应一个事件

功能说明：同时响应一个事件  procedure TForm1.Button1Click(Sender: TObject); begin     
·2015-10-30 13:14

在窗口间移动按扭

//　在窗口间移动按扭  procedure TForm1.Button1Click(Sender: TObject); begin     &
·2015-10-30 13:13

将字符串中的字符依次写入数组_TextOut

功能说明：将字符串中的字符依次写入数组  procedureTForm1.Button1Click(Sender: TObject); var   str: string
·2015-10-30 13:13

SendMessage 刷新系统桌面

SHChangeNotify(SHCNE_ASSOCCHANGED, SHCNF_IDLIST, nil, nil); //方法2procedure TForm1.Button1Click(Sender: TObject
·2015-10-30 13:12

设置窗体在屏幕中的位置

//设置窗体在屏幕中的位置  procedure TForm1.SpeedButton1Click(Sender: TObject); begin    try
·2015-10-30 13:12

数据库中存取图片

//存数据procedure TForm1.Button1Click(Sender: TObject); var mm: TMemoryStream; begin mm := TMemoryStream.Create
·2015-10-30 13:44

Indy 邮件发送的例子

代码用到了Indy的两个组件IdSMTP和IdMessage，代码如下：   procedure TForm2.btn1Click(Sender: TObject); begin  
·2015-10-30 13:45

读取TXT文档示例

View Code procedure  TForm1.btn2Click(Sender: TObject); var  F:TextFile; s: string
·2015-10-30 12:18

FireMonkey ListView 自动计算行高

适用：Delphi XE7 / XE8 源码下载：[原创]ListView_自动计算行高(by龟山阿卍).zip procedure TForm1.Button1Click(Sender: TObject
·2015-10-30 12:03

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

运行效果图: //示例代码: //获取总列数，和总行数 procedure TForm12.Button1Click(Sender: TObject); var  &
·2015-10-28 09:06

StringGrid 实例1：初始化StirngGrid的首行和首列

实例1：初始化StirngGrid的首行和首列   // 主要代码部分： procedure TForm23.SetSGridTitle(Sender: TObject
·2015-10-28 09:06

Direct2D (35) : 通过 DirectWrite 获取字体列表

uses Direct2D, D2D1; procedure TForm1.Button1Click(Sender: TObject); var iFontCollection:
·2015-10-28 08:16

Direct2D (29) : 简化曲线到直线 - ID2D1Geometry.Simplify()

uses Direct2D, D2D1; procedure TForm1.FormPaint(Sender: TObject); var cvs: TDirect2DCanvas
·2015-10-28 08:14

Direct2D (28) : 获取几何图形的面积、线总长度和指定位置的点坐标

uses Direct2D, D2D1; procedure TForm1.FormPaint(Sender: TObject); var cvs: TDirect2DCanvas
·2015-10-28 08:14

Direct2D (26) : 获取几何图形的边界

ID2D1Geometry.GetWidenedBounds(); //获取包含画笔区域的边界矩形 测试代码： uses Direct2D, D2D1; procedure TForm1.FormPaint(Sender: TObject
·2015-10-28 08:14

Direct2D (27) : 获取几何图形的轮廓 - ID2D1Geometry.Outline()

uses Direct2D, D2D1; procedure TForm1.FormPaint(Sender: TObject); var cvs: TDirect2DCanvas
·2015-10-28 08:14

Direct2D (23) : 复合几何对象之 ID2D1GeometryGroup

uses Direct2D, D2D1; procedure TForm1.FormPaint(Sender: TObject); var cvs: TDirect2DCanvas
·2015-10-28 08:13

Direct2D (25) : 将画笔线条所占用的区域转换为路径 - ID2D1Geometry.Widen()

uses Direct2D, D2D1; procedure TForm1.FormPaint(Sender: TObject); var cvs: TDirect2DCanvas
·2015-10-28 08:13

Direct2D (20) : 图层之 TD2D1LayerParameters.opacityBrush (为图层指定蒙版画刷)

uses Direct2D, D2D1; procedure TForm1.FormPaint(Sender: TObject); var cvs: TDirect2DCanvas
·2015-10-28 08:12

Direct2D (19) : 图层之 TD2D1LayerParameters.geometricMask (使用几何图形剪裁图层)

uses Direct2D, D2D1; procedure TForm1.FormPaint(Sender: TObject); var cvs: TDirect2DCanvas
·2015-10-28 08:12

Direct2D (15) : 剪辑

uses Direct2D, D2D1; procedure TForm1.FormPaint(Sender: TObject); var cvs: TDirect2DCanvas;
·2015-10-28 08:11

Direct2D (12) : 画刷之 ID2D1RadialGradientBrush

uses Direct2D, D2D1; procedure TForm1.FormPaint(Sender: TObject); var cvs: TDirect2DCanvas
·2015-10-28 08:10

Direct2D (10) : 文本输出初步

uses Direct2D, TypInfo; procedure TForm1.FormCreate(Sender: TObject); var f: TTextFormats;
·2015-10-28 08:10

Direct2D (9) : 显示图像

uses Direct2D; procedure TForm1.FormPaint(Sender: TObject); var cvs: TDirect2DCanvas; wic
·2015-10-28 08:09

Direct2D (8) : 透明色

uses Direct2D, D2D1; procedure TForm1.FormPaint(Sender: TObject); var cvs: TDirect2DCanvas
·2015-10-28 08:09

StringGrid

1、右键选择行 procedure TFZu.SG_dataMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState
·2015-10-27 16:28

delphi edit 固定小数位数的实现(形如：1,000,000.10)

procedure Tfrm_jz.Edit1KeyPress(Sender: TObject; var Key: Char);begin   if (key in ['0'..'9
·2015-10-27 16:27

Delphi编程获取系统当前进程、窗口句柄、文件属性以

uses TLHelp32,PsAPI; (1)显示进程列表：procedure TForm1.Button2Click(Sender: TObject);var lppe: TProcessEntry32
·2015-10-27 16:19

ADOStoredProc对象池

ProcPool; interface uses  Classes, Windows, SysUtils, ADODB, forms; type  TProcPool = class(TObject
·2015-10-27 15:23

DatasetProvider对象池

DSPPool; interface uses  Classes, Windows, SysUtils, Provider, forms; type  TDSPPool = class(TObject
·2015-10-27 15:23

ADOQuery数据集对象池

interface uses  Classes, Windows, SysUtils, ADODB, forms; type  TADOQueryPool = class(TObject
·2015-10-27 15:22

简单到不能再简单的连接池

interface uses   Classes, Windows, SyncObjs, SysUtils, ADODB; type   TADOConnectionPool = class(TObject
·2015-10-27 15:22

ADOConnection数据库连接池

uses  Classes, Windows, SysUtils, ADODB, IniFiles, forms; type  TADOConnectionPool = class(TObject
·2015-10-27 15:22

表格内嵌编辑控件

  在DBGrid 中嵌入一个 DBComboBox1 procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect
·2015-10-27 15:20

cxdbtreelist新增

nbsp; TMYDBControler = class(TcxDBTreeListDataController); procedure TForm15.Button1Click(Sender: TObject
·2015-10-27 15:19

NativeXML入门

uses NativeXml;   procedure TForm1.Button1Click(Sender: TObject);begin  Caption := fXML.Root.FindNode
·2015-10-27 15:14

NativeXml (11)：浮点数的有效位数

uses NativeXml; procedure TForm1.Button1Click(Sender: TObject); var xml: TNativeXml;
·2015-10-27 15:28

NativeXml (8)：其它添加

uses NativeXml; procedure TForm1.Button1Click(Sender: TObject); var xml: TNativeXml; node
·2015-10-27 15:27

NativeXml (7)：添加属性

uses NativeXml; procedure TForm1.Button1Click(Sender: TObject); var xml: TNativeXml;
·2015-10-27 15:27

NativeXml (6)：添加节点

uses NativeXml; procedure TForm1.Button1Click(Sender: TObject); var xml: TNativeXml;
·2015-10-27 15:26

NativeXml (4)：认识根节点

xml_test_files\basic.xml'; //测试文件 var xml: TNativeXml; procedure TForm1.FormCreate(Sender: TObject
·2015-10-27 15:25

NativeXml (3)：保存

uses NativeXml; var xml: TNativeXml; procedure TForm1.FormCreate(Sender: TObject); begin
·2015-10-27 15:25

如何使用 PPChar - 回复 "DelphiFan" 的问题

www.cnblogs.com/del/archive/2008/11/08/1329543.html#2024604 {引用} procedure TForm1.Button1Click(Sender: TObject
·2015-10-27 15:24

GdiPlus[54]: 图像(六) 图像解码与编码

与 IGPImageCodecInfo 获取了 GDI+ 能够编码与解码的格式: uses GdiPlus; procedure TForm1.Button1Click(Sender: TObject
·2015-10-27 15:22

Addr 函数 - 获取对象指针

procedure TForm1.FormCreate(Sender: TObject); var Str: string; pStr: PString; begin Str
·2015-10-27 15:00
上一页 17 18 19 20 21 22 23 24 下一页
按字母分类： ABCDEFGHIJKLMNOPQRSTUVWXYZ其他