Delphi 2009之TCategoryPanelGroup[1]: ChevronAlignment等

2017年02月06日 60 阅读

Delphi 2009之TCategoryPanelGroup[1]: ChevronAlignment等2012-02-15 cnblogs 万一制作过程:先添加一个 TCategoryPanelGroup, 再从其右键菜单 -> New Panel, 反复添加三个 TCategoryPanel.本例测试了:TCategoryPanelGroup 的 ChevronAlignment 属性、CollapseAll 和 ExpandAll 方法;还有...

Delphi 2009之TCategoryPanelGroup[2]: HeaderAlignment、GradientDirection

2017年02月06日 58 阅读

Delphi 2009之TCategoryPanelGroup[2]: HeaderAlignment、GradientDirection2012-02-15 cnblogs 万一本例效果图:代码文件:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls;t...

Delphi 2009之TCategoryPanelGroup[3]: Color

2017年02月06日 61 阅读

Delphi 2009之TCategoryPanelGroup[3]: Color2012-02-15 cnblogs 万一本例效果图:代码文件:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls, ColorGrd;type TForm1 = class...

Delphi 2009之TCategoryPanelGroup[4] Height

2017年02月06日 61 阅读

Delphi 2009之TCategoryPanelGroup[4] Height2012-02-15 cnblogs 万一本例效果图:代码文件:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls, ComCtrls;type TForm1 = class...

Delphi 2009之TCategoryPanelGroup[5]: HeaderStyle

2017年02月06日 59 阅读

Delphi 2009之TCategoryPanelGroup[5]: HeaderStyle2012-02-15 cnblogs 万一本例效果图:代码文件:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls, ComCtrls;type TForm1 =...

Delphi 2009新增单元 Character[1]

2017年02月06日 56 阅读

Delphi 2009新增单元 Character[1]2012-02-22 cnblogs 万一ToUpper、ToLower - 字符与字符串的大小写转换代码文件:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class（TForm） ...

Delphi 2009新增单元 Character[2]

2017年02月06日 58 阅读

Delphi 2009新增单元 Character[2]2012-02-22 cnblogs 万一IsLetter、IsUpper、IsLower、IsDigit、IsNumberIsLetter: {是否是个字母; 范围 A..Z 与 a..z}IsUpper: {是否是个大写字母; 范围 A..Z}IsLower: {是否是个小写字母; 范围 a..z}IsDigit: {是否是个十进制数字; 范围 0..9}IsNumber: {是否是个数字符号; ...

Delphi 2009泛型容器单元（Generics.Collections）[1]: TList

2017年02月06日 75 阅读

Delphi 2009泛型容器单元（Generics.Collections）[1]: TList2012-02-22 cnblogs 万一Delphi 2009 新增了泛型容器单元: Generics.Collections, 同时还有一个 Generics.Defaults 单元做支持.Generics.Collections 包含了以下实用类:TList<T>TQueue<T>TStack<T>TDictionar...

Delphi 2009泛型容器单元（Generics.Collections）[2]: TQueue&lt;T&gt;

2017年02月06日 68 阅读

Delphi 2009泛型容器单元（Generics.Collections）[2]: TQueue<T>2012-02-22 cnblogs 万一TQueue 和 TStack, 一个是队列列表, 一个是堆栈列表; 一个是先进先出, 一个是先进后出.TQueue 主要有三个方法、一个属性:Enqueue（入列）、Dequeue（出列）、Peek（查看下一个要出列的元素）;Count（元素总数）.本例效果图:代码文件:unit Unit1;in...

Delphi 2009泛型容器单元（Generics.Collections）[3]: TStack&lt;T&gt;

2017年02月06日 65 阅读

Delphi 2009泛型容器单元（Generics.Collections）[3]: TStack<T>2012-02-22 cnblogs 万一TQueue 和 TStack, 一个是队列列表, 一个是堆栈列表; 一个是先进先出, 一个是先进后出.TStack 主要有三个方法、一个属性:Push（压栈）、Pop（出栈）、Peek（查看下一个要出栈的元素）;Count（元素总数）.本例效果图:代码文件:unit Unit1;interface...

Delphi 2009泛型容器单元（Generics.Collections）[4]: TDictionary&lt;T&gt;

2017年02月06日 66 阅读

Delphi 2009泛型容器单元（Generics.Collections）[4]: TDictionary<T>2012-02-22 cnblogs 万一TDictionary 类似哈希表.本例效果图:代码文件:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrl...

Delphi 2009泛型容器单元（Generics.Collections）[5]: TObject...&lt;T&gt; 系列

2017年02月06日 62 阅读

Delphi 2009泛型容器单元（Generics.Collections）[5]: TObject...<T> 系列2012-02-22 cnblogs 万一已经有了: TList<T>、TQueue<T>、TStack<T>、TDictionary<TKey,TValue>为什么还有: TObjectList<T>、TObjectQueue<T>、TObjectSta...

Delphi 2009的反射单元（ObjAuto）

2017年02月06日 63 阅读

Delphi 2009的反射单元（ObjAuto）2012-02-22 cnblogs 万一ObjAuto 单元应该算是对 TypInfo 单元的功能扩展吧？ 它提供了 5 个方法:GetMethods、GetMethodInfo、CreateMethodPointer、ReleaseMethodPointer、ObjectInvoke通过 GetMethods、GetMethodInfo 可以获取类公用成员的详细信息.通过 TypInfo 只能获取 pu...

Delphi2009中使用dbExpress组件访问MySql（登陆页面）

2017年02月06日 60 阅读

Delphi2009中使用dbExpress组件访问MySql（登陆页面）2012-02-22 csdn博客 【昆山人在上海】首先新建数据访问模块（Data Module）,如下图：这里使用MySql数据库，考虑到dbGo组件（即ADO）对MySql的不友好，使用dbExpress组件行进数据库的访问。首先添加一个TSqlConnection控件。为了使用dbExpress访问数据库，需要把MySql的安装路径下bin目录下的libmySQL.dll文件拷...

Delphi2009的Indy全接触之UDP篇

2017年02月06日 72 阅读

Delphi2009的Indy全接触之UDP篇2012-02-22 csdn博客 【昆山人在上海】首先新建服务端。如下图所示建立工程：代码如下：1.unit ServerUnit;2.3.interface4.5.uses6.Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,7.Dialogs, IdBaseComponent, IdComponent, Id...

Delphi2009的Indy全接触之TCP篇

2017年02月06日 66 阅读

Delphi2009的Indy全接触之TCP篇2012-02-22 csdn博客 【昆山人在上海】我在Delphi盒子[ http://www.2ccc.com/ ]上找到了一个基于TCP协议的聊天及文件传书工具，于是把他改写成D2009版本的代码。源代码下载地址： http://www.2ccc.com/article.asp？articleid=3894步骤如下：新建服务端工程如下图：注意：里面使用了线程池TIdSchedulerOfThreadPoo...

Delphi GDI+学习记录（1） 画笔 - Pen

2017年02月06日 61 阅读

Delphi GDI+学习记录（1） 画笔 - Pen2012-03-20 cnblogs 万一//画笔var g: TGPGraphics; p: TGPPen;begin g := TGPGraphics.Create（Canvas.Handle）; p := TGPPen.Create（aclRed, 2）; {参数1颜色; 参数2是笔宽, 笔宽是可选, 默认 1} g.DrawEllipse（p, 11, 11, 222, 111）; p.Free...

Delphi GDI+学习记录（2）: 画笔线帽 - Cap

2017年02月06日 56 阅读

Delphi GDI+学习记录（2）: 画笔线帽 - Cap2012-03-20 cnblogs 万一//线帽var g: TGPGraphics; p: TGPPen;begin g := TGPGraphics.Create（Canvas.Handle）; p:= TGPPen.Create（aclBlue, 8）; p.SetStartCap（LineCapArrowAnchor）; {起点线帽} p.SetEndCap（LineCapRoundAn...

Delphi GDI+学习记录（3）: 虚线画笔 - Dash

2017年02月06日 62 阅读

Delphi GDI+学习记录（3）: 虚线画笔 - Dash2012-03-20 cnblogs 万一//虚线样式var g: TGPGraphics; p: TGPPen;begin g := TGPGraphics.Create（Canvas.Handle）; p := TGPPen.Create（MakeColor（255,255,0,0）,3）; g.DrawLine（p, 11, 11, 333, 11）; {实线} p.SetDashSty...

Delphi GDI+学习记录（4）: 画笔对齐

2017年02月06日 57 阅读

Delphi GDI+学习记录（4）: 画笔对齐2012-03-20 cnblogs 万一//笔对齐var g: TGPGraphics; p: TGPPen; sb: TGPSolidBrush; rect: TGPRect;begin g := TGPGraphics.Create（Canvas.Handle）; p := TGPPen.Create（MakeColor（255,255,0,0）,5）; sb := TGPSolidBrush.Crea...