TObject

使用 InputBox、InputQuery 的启发

看了InputBox、InputQuery函数实现的源码,有些收获与心得...通过InputBox可获取用户输入的字符串:procedureTForm1.Button1Click(Sender:TObject
涂孟超·2014-09-26 15:00

WinAPI: CreateSolidBrush - 建立实心画刷

CreateSolidBrush( p1:COLORREF{颜色值} ):HBRUSH;{返回画刷句柄} //举例: procedureTForm1.FormPaint(Sender:TObject
涂孟超·2014-09-26 15:00

测试代码

Variants,Classes,Graphics,Controls,Forms, Dialogs; type TForm1=class(TForm) procedureFormCreate(Sender:TObject
涂孟超·2014-09-26 15:00

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

usesDirect2D,D2D1; procedureTForm1.FormPaint(Sender:TObject); var cvs:TDirect2DCanvas; iGeometryGroup
涂孟超·2014-09-26 15:00

善用泛型数组

usesGenerics.Collections,Generics.Defaults; {测试TArray的Sort方法} procedureTForm1.Button1Click(Sender:TObject
涂孟超·2014-09-26 15:00

Direct2D (15) : 剪辑

usesDirect2D,D2D1; procedureTForm1.FormPaint(Sender:TObject); var cvs:TDirect2DCanvas; R,RClip:
涂孟超·2014-09-26 15:00

GdiPlus[30]: IGPPen: 线帽

StartCap和EndCap属性分别用来读写两段的线帽,测试图:StartCap和EndCap测试代码:usesGdiPlus; procedureTForm1.FormPaint(Sender:TObject
涂孟超·2014-09-26 15:00

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

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

Delphi 2009 泛型容器单元(Generics.Collections)[5]: TObject... 系列

已经有了:TList、TQueue、TStack、TDictionary为什么还有:TObjectList、TObjectQueue、TObjectStack、TObjectDictionary?还记得Classes.TList和Contnrs.TObjectList的主要区别吗?如果元素是对象,Contnrs.TObjectList在删除元素时会同时释放对象,而Classes.TList不会.同
涂孟超·2014-09-26 15:00

初学 Delphi 嵌入汇编[9] - asm 可以代替 begin

{ 汇编中的inc指令和Delphi中的inc是一样的; 本例也同时证明eax寄存器确实保存着函数的返回值. } procedureTForm1.Button1Click(Sender:TObject
涂孟超·2014-09-26 15:00

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

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

Delphi XE2 之 FireMonkey 入门(5) - TAlphaColor

TColor的颜色序相反,并增加了透明度.在HD窗体上添加一个TRectangle和三个TButton,测试://下面四种赋值方法相同 procedureTForm1.Button1Click(Sender:TObject
涂孟超·2014-09-26 15:00

WinAPI: PtInRegion、OffsetRgn

Classes,Graphics,Controls,Forms, Dialogs; type TForm1=class(TForm) procedureFormCreate(Sender:TObject
涂孟超·2014-09-26 15:00

理解 Delphi 的类(十一) - 深入类中的方法[10] - 构造方法与析构方法

//构造方法就是对象建立时调用的方法;析构方法就是对象销毁时调用的方法.如: TMyClass=class(TObject) public constructorCreate
涂孟超·2014-09-26 15:00

Delphi 的编码与解码(或叫加密与解密)函数

EncodeBase64、DecodeBase64usesEncdDecd; conststr='万一的Delphi博客'; procedureTForm1.Button1Click(Sender:TObject
涂孟超·2014-09-26 15:00

@ 与 ^ 运算符

//例1： procedureTForm1.Button1Click(Sender:TObject); var str:string; p:Pointer; begin p:=@str;//
涂孟超·2014-09-26 15:00

关于类的入门例子(4): property

//类单元 unitPerson; interface type TPerson=class(TObject) private FName:string; FAge:Integer
涂孟超·2014-09-26 15:00

关于类的入门的例子(5): override

Forms,Dialogs,StdCtrls; type TForm1=class(TForm) Button1:TButton; procedureButton1Click(Sender:TObject
涂孟超·2014-09-26 15:00

GdiPlus[28]: IGPPen: 建立复合画笔

IGPArray).如果复合画笔是X条线,则数组需要2*X个元素;元素从外向里分别表示线的起点和终点的比例值.usesGdiPlus; procedureTForm1.FormPaint(Sender:TObject
涂孟超·2014-09-26 15:00

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

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

NativeXml (6)：添加节点

usesNativeXml; procedureTForm1.Button1Click(Sender:TObject); var xml:TNativeXml; node:TXmlNode;
涂孟超·2014-09-26 15:00

转换 Byte 数组到 ... - 回复 "高群" 的问题

/del/archive/2009/03/21/1410030.html#1483614{转换TBytes到Integer} procedureTForm1.Button1Click(Sender:TObject
涂孟超·2014-09-26 15:00

长字串与短字串

procedureTForm1.Button1Click(Sender:TObject); var s1:ShortString;//为兼容老版本而存在 s2:string;//长字串，相当于动态字符数组
涂孟超·2014-09-26 15:00

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

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

GdiPlus[32]: IGPPen: LineJoin、MiterLimit

LineJoin测试效果图:LineJoin测试代码:usesGdiPlus; procedureTForm1.FormPaint(Sender:TObject); const Pts:array
涂孟超·2014-09-26 15:00

Delphi XE2 之 FireMonkey 入门(36) - 控件基础: TForm

backgroundstyle"...现在明白了,原来窗体上覆盖着一个TRectangle对象:usesFMX.Objects; procedureTForm1.Button1Click(Sender:TObject
涂孟超·2014-09-26 15:00

WinAPI: Rectangle - 绘制矩形

设备环境句柄} X1,Y1,X2,Y2:Integer{两个点的坐标} ):BOOL; //举例: procedureTForm1.FormPaint(Sender:TObject
涂孟超·2014-09-26 15:00

NativeXml (10)：编辑

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

WinAPI: StrokePath - 描绘路径轮廓

,Classes,Graphics,Controls,Forms, Dialogs; type TForm1=class(TForm) procedureFormPaint(Sender:TObject
涂孟超·2014-09-26 15:00

重载 CreateParams 方法[1]: 从一个例子开始(取消窗口最大化、最小化按钮的三种方法)

Classes,Graphics,Controls,Forms, Dialogs; type TForm1=class(TForm) procedureFormCreate(Sender:TObject
涂孟超·2014-09-26 15:00

WinAPI: PolyBezier - 绘制贝塞尔线

点数组} Count:DWORD{数组元素个数} ):BOOL; //一条贝塞尔线最少要有4个点 procedureTForm1.FormPaint(Sender:TObject
涂孟超·2014-09-26 15:00

Delphi XE2 之 FireMonkey 入门(3) - 关于 TPosition

//FM控件的位置控制不再是Left、Top,取而代之的是Position属性 procedureTForm1.Button1Click(Sender:TObject); begin Rectangle1
涂孟超·2014-09-26 15:00

使用 IntraWeb (10) - CSS

会把大多数的视觉属性转换为CSS;我们主动使用CSS要分两步:第一步:{通过窗体的StyleSheet属性指定要链接的CSS文件} procedureTIWForm1.IWAppFormCreate(Sender:TObject
涂孟超·2014-09-26 15:00

官方的正则表达式组件 RegularExpressions (2) : 子表达式

+\d+[A-Z]+\d+ txt='AAA1BBB2AA11BB22A111B222AAAA';//测试用的目标文本 procedureTForm1.Button1Click(Sender:TObject
涂孟超·2014-09-26 15:00

再学 GDI+[87]: TGPImage(7) - 调整图像大小

Classes,Graphics,Controls,Forms, Dialogs; type TForm1=class(TForm) procedureFormCreate(Sender:TObject
涂孟超·2014-09-26 15:00

not 与整数

//Byte procedureTForm1.Button1Click(Sender:TObject); var x,y:Byte; begin x:=MAXBYTE;//MAXBYTE是常数
涂孟超·2014-09-26 15:00

Delphi 的绘图功能[9] - TextRect

string{文本} ); {如果要输出的文本超出指定的矩形将不被显示} //第一种重载的举例: procedureTForm1.Button1Click(Sender:TObject
涂孟超·2014-09-26 15:00

WinAPI: PolylineTo - 绘制一组连续线段(更新当前位置)

Integer{数组元素个数} ):BOOL; //如果不给PolylineTo指定起点,将默认0点位起点 procedureTForm1.FormPaint(Sender:TObject
涂孟超·2014-09-26 15:00

如何打开记事本并显示指定内容 - 回复 "苦苦苦" 的问题

http://www.cnblogs.com/del/archive/2009/10/27/1590975.html#1696167procedureTForm1.Button1Click(Sender:TObject
涂孟超·2014-09-26 15:00

参数默认值

Integer=1;c:Integer=2):Integer; begin Result:=a+b+c; end; procedureTForm1.Button1Click(Sender:TObject
涂孟超·2014-09-26 15:00

用消息实现窗体的 MouseDown 事件

Classes,Graphics,Controls,Forms, Dialogs; type TForm1=class(TForm) procedureFormMouseDown(Sender:TObject
涂孟超·2014-09-26 15:00

GdiPlus[22]: IGPFont

测试效果图:usesGdiPlus; procedureTForm1.FormPaint(Sender:TObject); var Graphics:IGPGraphics; Brush:IGPSolidBrush
涂孟超·2014-09-26 15:00

IsSameDay、IsToday - 判断是不是同一天、判断是不是今天

Graphics,Controls,Forms, Dialogs,StdCtrls; type TForm1=class(TForm) procedureFormCreate(Sender:TObject
涂孟超·2014-09-26 15:00

使用 IntraWeb (31) - IntraWeb 的 Xml 操作使用的是 NativeXml

IWNativeXml单元.知道了这个,以后在其他Delphi程序中也可以直接UsesIWNativeXml了.TNativeXml(IWNativeXml.TNativeXmlTObject
涂孟超·2014-09-26 15:00

打开网页

usesShellAPI; procedureTForm1.Button1Click(Sender:TObject); begin //用IE打开 ShellExecute(Handle,'open
涂孟超·2014-09-26 15:00

再学 GDI+[2]: DrawLine - 绘制直线

,Classes,Graphics,Controls,Forms, Dialogs; type TForm1=class(TForm) procedureFormPaint(Sender:TObject
涂孟超·2014-09-26 15:00

终于, Delphi XE2 携带 GDI+ 库了

www.progdigy.comusesWinapi.GDIPAPI,Winapi.GDIPOBJ{,Winapi.GDIPUTIL}; procedureTForm1.FormPaint(Sender:TObject
涂孟超·2014-09-26 15:00

Direct2D (12) : 画刷之 ID2D1RadialGradientBrush

usesDirect2D,D2D1; procedureTForm1.FormPaint(Sender:TObject); var cvs:TDirect2DCanvas; iBrush:ID2D1RadialGradientBrush
涂孟超·2014-09-26 15:00

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

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

一毫米等于多少像素? - GetDeviceCaps

Classes,Graphics,Controls,Forms, Dialogs; type TForm1=class(TForm) procedureFormCreate(Sender:TObject
涂孟超·2014-09-26 15:00
上一页 25 26 27 28 29 30 31 32 下一页
按字母分类： ABCDEFGHIJKLMNOPQRSTUVWXYZ其他