FormCreate

一个关于 absolute 关键字的小练习

procedure TForm1.FormCreate(Sender: TObject); var num: Int64; pt: TPoint absolute num; arr:
·2015-10-21 12:09

delphi 2010是动画GIF的支持方法

 　　2、在窗体的FormCreate事件或其他事件（如按钮的点击事件）中写如下代码： 　　Image1.AutoSize := True; Form1.Autosize := True
·2015-10-21 12:57

Delphi Canvas填充区域图形

procedure TForm1.FormCreate(Sender: TObject);begin  pb := TPaintBox.Create(Self); pb.Parent := Self
·2015-10-21 11:57

LinkLabel

procedure TForm1.FormCreate(Sender: TObject); begin   LinkLabel1.Caption := '<a href="
·2015-10-21 10:59

tabset+nodebook多面页应用

//关联tabset+nodebook procedure TForm1.FormCreate(Sender: TObject); begin   ts1.Tabs := nb1.Pages
·2015-10-21 10:59

实时的透明窗体

begin   self.AlphaBlendValue:=self.TrackBar1.Max-self.TrackBar1.Position; end; procedure TForm1.FormCreate
·2015-10-21 10:55

读写ini文件实例

procedure TForm1.FormCreate(Sender: TObject); var   IniFile: TIniFile; begin   IniFile:=TIniFile.Create
·2015-10-21 10:49

改变菜单字体

  procedure TForm1.FormCreate(Sender: TObject); begin      //在LISTBOX
·2015-10-21 10:40

Delphi实现DBGrid列宽度自动调整

首先，在TForm的OnCreate事件中添加下面的代码： 　　Procedure TForm1.FormCreate(Sender: TObject); 　　begin 　　//在Tag属性中设置需要自动调整的列的最小宽度
·2015-10-21 10:23

获取程序文件自身版本

procedureTFormLogin.FormCreate(Sender:TObject);var MyVersion,:string; Block:^VS_FIXEDFILEINFO; PDatA:
vga·2015-01-26 12:00

发送消息执行记事本的“另存为”菜单功能

发送消息执行记事本的“另存为”菜单功能procedure TForm1.FormCreate(Sender: TObject);var hNotepad: Cardinal;begin hNotepad
·2014-12-21 13:00

创建大窗口

procedureTForm1.FormCreate(Sender:TObject); begin SetWindowLong( Handle, GWL_STYLE, not(WS_THICKFRAME
涂孟超·2014-09-26 15:00

NativeXml (9)：读取

varxml:TNativeXml; const xmlStr=''+ ''+ '张三'+ '李四'+ '王五'+ ''; procedureTForm1.FormCreate(
涂孟超·2014-09-26 15:00

Delphi XE2 之 FireMonkey 入门(22) - 数据绑定: BindingSource、BindingName、FindBinding()、Binding[]

在窗体上添加TrackBar1、Edit1、Label1,然后设置属性(可在设计时):procedureTForm1.FormCreate(Sender:TObject); begin Edit1.
涂孟超·2014-09-26 15:00

RegularExpressions(3) RegularExpressions 的工作思路

AAA1BBB2AA11BB22A111B222AAAA可以用表达式:[A-Za-z]+\d+提取到前六个字串.测试代码:usesRegularExpressions; procedureTForm1.FormCreate
涂孟超·2014-09-26 15:00

FireDAC 下的 Sqlite [6] - 加密

Password,NewPassword,非常简单.const dbPath='C:\Temp\SQLiteTest.sdb'; {建立加密数据库,密码是mm123} procedureTForm1.FormCreate
涂孟超·2014-09-26 15:00

TClientDataSet[21]: 使用 ADT(Abstract Data Type) 字段

运行时://先在窗体上放置:DBGrid1、DataSource1、ClientDataSet1并关联,然后: procedureTForm1.FormCreate(Sender:TObject)
涂孟超·2014-09-26 15:00

System.Assert 断言

var List:TStringList; procedureTForm1.FormCreate(Sender:TObject); begin //Assert(Assigned(List)
涂孟超·2014-09-26 15:00

Delphi 2009 新增的一个小函数: SysUtils.ByteLength

procedureTForm1.FormCreate(Sender:TObject); var str:string; begin str:='万一'; ShowMessageFmt('%d,
涂孟超·2014-09-26 15:00

TClientDataSet[14]: 测试 FindFirst、FindNext、FindLast、FindPrior、Found

//先在窗体添加ClientDataSet1和两个Button {初始化测试数据} procedureTForm1.FormCreate(Sender:TObject); begin withClientDataSet1dobegin
涂孟超·2014-09-26 15:00

TClientDataSet[26]: 字段值的呈现格式

procedureTForm1.FormCreate(Sender:TObject); begin {DisplayFormat} withTIntegerField.Create(Self)dobegin
涂孟超·2014-09-26 15:00

ParamCount、ParamStr

//获取程序参数 //可从Project->Options->Debugger->Parameters中输入模拟参数,多个参数可用空格隔开 procedureTForm1.FormCreate(Sender
涂孟超·2014-09-26 15:00

TClientDataSet[10]: 简单统计

//先在窗体上放置ClientDataSet1、Button1然后: {建表} procedureTForm1.FormCreate(Sender:TObject); begin withClientDataSet1dobegin
涂孟超·2014-09-26 15:00

TClientDataSet[19]: 查找字段(fkLookup)

字段是Lookup字段)://先在窗体上放置:DBGrid1、DataSource1、ClientDataSet1、ClientDataSet2;其他全用代码实现: procedureTForm1.FormCreate
涂孟超·2014-09-26 15:00

关于子类与父类的转换, 还有多态的说明 - 回复 "靳承柱" 和 "志成" 的问题

:http://www.cnblogs.com/del/archive/2008/08/22/1002959.html#1294593//关于父类与子类的类型转换: procedureTForm1.FormCreate
涂孟超·2014-09-26 15:00

几个和当前路径相关的新函数

GetLocaleFile(); LocaleDirectoryExists(); LocaleFileExists(); 应用测试:usesIOUtils; procedureTForm1.FormCreate
涂孟超·2014-09-26 15:00

窗体图片背景

var Bitmap:TBitmap; procedureTForm1.FormCreate(Sender:TObject); begin Bitmap:=TBitmap.Create;
涂孟超·2014-09-26 15:00

TClientDataSet[24]: 主从表(Master/Detail)

先在窗体上添加: //ClientDataSet1、DataSource1、DBGrid1、ClientDataSet2、DataSource2、DBGrid2;然后: procedureTForm1.FormCreate
涂孟超·2014-09-26 15:00

Delphi XE2 之 FireMonkey 入门(34) - 控件基础: TFmxObject: 克隆对象

、CloneChildFromStream().Clone()很好用,但CloneChildFromStream()的源码很明显地写错了(是小问题,谁外语好去报一下).procedureTForm1.FormCreate
涂孟超·2014-09-26 15:00

NativeXml (4)：认识根节点

const xmlFile='C:\Temp\xml_test_files\basic.xml';//测试文件 var xml:TNativeXml; procedureTForm1.FormCreate
涂孟超·2014-09-26 15:00

看看 Delphi XE2 为 VCL 提供的 14 种样式

,还有默认的Windows样式,共14种.在空白窗体上添加ListBox1等控件,测试代码:usesIOUtils,Vcl.Styles,vcl.Themes; procedureTForm1.FormCreate
涂孟超·2014-09-26 15:00

Direct2D (31) : 命中测试 - ID2D1Geometry.FillContainsPoint()、StrokeContainsPoint()

usesDirect2D,D2D1; const penWidth=25; var iGeometry:ID2D1EllipseGeometry; procedureTForm1.FormCreate
涂孟超·2014-09-26 15:00

TClientDataSet[22]: 数组字段与 ObjectView

True和False时的不同效果.下面是在运行时实现的数组字段://先在窗体上放置:DBGrid1、DataSource1、ClientDataSet1并关联,然后: procedureTForm1.FormCreate
涂孟超·2014-09-26 15:00

WinAPI: GetLogicalDrives - 判断系统中存在的逻辑驱动器

//举例: procedureTForm1.FormCreate(Sender:TObject); var Drives:DWord; i:Integer; begin D
涂孟超·2014-09-26 15:00

如何使用 SendMessage 选择 ListBox、ComboBox 中的项 - 回复 "倪慧刚" 的问题

consti=1; //初始测试数据 procedureTForm1.FormCreate(Sender:TObject); begin ListBox1.Items.CommaText:=
涂孟超·2014-09-26 15:00

没用过的函数 GetHomePath - 获取用户程序数据目录

usesSystem.IOUtils; procedureTForm1.FormCreate(Sender:TObject); var S:string; begin {三种方法结果一致:
涂孟超·2014-09-26 15:00

简单的 "双缓冲" 绘图的例子 - 回复 "TookiQ" 的问题

所谓双缓冲就是先画到内存画布(如:TBitmap),然后再转帖到目的地.譬如下面小程序:procedureTForm1.FormCreate(Sender:TObject); begin Timer1
涂孟超·2014-09-26 15:00

NativeXml (10)：编辑

usesNativeXml; varxml:TNativeXml; const xmlStr=''+ ''+ '张三'+ '李四'+ '王五'+ ''; procedureTForm1.FormCreate
涂孟超·2014-09-26 15:00

使用 BinToHex() 把 TBytes 转换为十六进制字符串 - 回复 "梧桐栖凤" 的问题

SetLength(Result,len*2); BinToHex(@ABytes[0],PAnsiChar(Result),len); end; {测试} procedureTForm1.FormCreate
涂孟超·2014-09-26 15:00

关于字符串, 之前没这样用过

procedureTForm1.FormCreate(Sender:TObject); var str:string; n1,n2,n3:Integer; begin str:='ABC';
涂孟超·2014-09-26 15:00

NativeXml (3)：保存

usesNativeXml; var xml:TNativeXml; procedureTForm1.FormCreate(Sender:TObject); begin xml:=TNativeXml.CreateName
涂孟超·2014-09-26 15:00

Delphi XE2 之 FireMonkey 入门(11) - 控件居中、旋转、透明

RotationCenter、Opacity属性继承自TControl(FMX.Types),这些新属性成了控件的基本功能.先在HD窗体上添加TRectangle和两个按钮...procedureTForm1.FormCreate
涂孟超·2014-09-26 15:00

FireDAC 下的 Sqlite [3] - 获取数据库的基本信息

在空白窗体上添加:TFDConnection,TFDPhysSQLiteDriverLink,TFDGUIxWaitCursor,TMemoprocedureTForm1.FormCreate(Sender
涂孟超·2014-09-26 15:00

曾经对 TMemoryStream.Memory 错误的理解

procedureTForm1.FormCreate(Sender:TObject); var Stream1,Stream2:TMemoryStream; pw:TPtrWrapper; begin
涂孟超·2014-09-26 15:00

TClientDataSet[23]: 使用数据集字段(TDataSetField)

ClientDataSet2、DataSource2、DBGrid2并关联,这将成为主表的一个字段(或叫嵌套表);还可以放个Splitter1来协调DBGrid的大小.procedureTForm1.FormCreate
涂孟超·2014-09-26 15:00

WinAPI: GetKeyboardType - 获取键盘的类型信息

GetKeyboardType( nTypeFlag:Integer{0:键盘类型;1:键盘子类型;2:功能键数量} ):Integer; //举例: procedureTForm1.FormCreate
涂孟超·2014-09-26 15:00

一个关于 absolute 关键字的小练习

procedureTForm1.FormCreate(Sender:TObject); var num:Int64; pt:TPointabsolutenum; arr:array[0..1]ofIntegerabsolutept
涂孟超·2014-09-26 15:00

delphi 窗体添加背景图片

var   Bmp: TBitmap; procedure TForm1.FormCreate(Sender: TObject); begin   Bmp := TBitmap.Create;   Bmp.LoadFromFile
jingshishengxu·2014-08-11 01:00

FireDAC 下的 Sqlite [6] - 加密

const dbPath = 'C:\Temp\SQLiteTest.sdb'; {建立加密数据库, 密码是 mm123} procedure TForm1.FormCreate(Sender
·2014-05-21 22:00

FireDAC 下的 Sqlite [3] - 获取数据库的基本信息

在空白窗体上添加: TFDConnection, TFDPhysSQLiteDriverLink, TFDGUIxWaitCursor, TMemo procedure TForm1.FormCreate
·2014-05-20 23:00
上一页 1 2 3 4 5 6 下一页
按字母分类： ABCDEFGHIJKLMNOPQRSTUVWXYZ其他