TObject

再学 GDI+[84]: TGPImage(4) - 把图像显示在指定的矩形中

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

WinAPI: SetRectRgn - 将区域转换成矩形区域

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

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

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

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

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

WinAPI: CreateRectRgn、CreateRectRgnIndirect、FillRgn、FrameRgn - 建立矩形区域

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

长字串与宽字串

procedureTForm1.Button1Click(Sender:TObject); var s1:AnsiString;//单字节储存 s2:WideString;//双字节储存 begin
涂孟超·2014-09-26 15:00

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

ID2D1Geometry.GetWidenedBounds();//获取包含画笔区域的边界矩形测试代码：usesDirect2D,D2D1; procedureTForm1.FormPaint(Sender:TObject
涂孟超·2014-09-26 15:00

Delphi 的绘图功能[5] - 获取 Canvas 对象

在窗体上添加Panel1、PaintBox1和Button1,代码如下:procedureTForm1.Button1Click(Sender:TObject); var cvs:TCanvas;
涂孟超·2014-09-26 15:00

枚举当前所有窗口

回复maxcool的问题:{要有个Memo接受数据} procedureTForm1.Button1Click(Sender:TObject); var h:HWnd; p:array[0..254
涂孟超·2014-09-26 15:00

再学 GDI+[14]: DrawBeziers - 绘制一组贝塞尔线

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

窗体图片背景

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

WinAPI: Polygon - 绘制多边形

varPoints;{点数组} Count:Integer{数组元素个数} ):BOOL; //举例: procedureTForm1.FormPaint(Sender:TObject
涂孟超·2014-09-26 15:00

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

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

WinAPI: TextOut - 输出文本

PChar;{字符串指针} Count:Integer{字符串长度} ):BOOL; //举例: procedureTForm1.FormPaint(Sender:TObject
涂孟超·2014-09-26 15:00

抽象类

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

一句话获取本机 IP

//添加TIdIPWatch控件:IdIPWatch1 procedureTForm1.Button1Click(Sender:TObject); var ip:string; begin ip
涂孟超·2014-09-26 15:00

简单获取钢琴 88 个键的音高频率值

procedureTForm1.Button1Click(Sender:TObject); var i:Integer; f:Double; begin f:=440/2/2/2/2; fori
涂孟超·2014-09-26 15:00

理解 Delphi 的类(十一) - 深入类中的方法[6] - 类中的方法重载

//类中的方法重载首先具备前面说过的重载相关的所有特点,如: TMyClass=class(TObject) functionFun(s:string):string;overload; functionFun
涂孟超·2014-09-26 15:00

WinAPI: PathToRegion - 将路径转换为区域

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

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

ClientDataSet1、DataSource1、DBGrid1、ClientDataSet2、DataSource2、DBGrid2;然后: procedureTForm1.FormCreate(Sender:TObject
涂孟超·2014-09-26 15:00

执行 Application.Terminate 后, OnDestroy 中的代码还会执行

Application.Terminate后,OnDestroy中的代码还会执行,但不会理会OnCloseQuery、OnClose中的代码了.procedureTForm1.Button1Click(Sender:TObject
涂孟超·2014-09-26 15:00

WinAPI: CreateEllipticRgn、CreateEllipticRgnIndirect - 建立椭圆区域

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

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

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

再学 GDI+[82]: TGPImage(2) - GetThumbnailImage - 略缩图

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

再学 GDI+[83]: TGPImage(3) - 平行四边形变换

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

获取打开的记事本中的内容 - 回复 "ymg1103" 的问题

http://www.cnblogs.com/del/archive/2008/11/15/1334237.html#1784570procedureTForm1.Button1Click(Sender:TObject
涂孟超·2014-09-26 15:00

TScreen 类 - 获取字体列表

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

NativeXml (4)：认识根节点

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

再学 GDI+[4]: DrawEllipse - 绘制椭圆

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

再学 GDI+[51]: 路径 - IsVisible、IsOutlineVisible

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

Delphi 中的自动释放策略

Owner连带释放://usesVcl.StdCtrls,Vcl.ExtCtrls; var panel:TPanel; procedureTForm1.Button1Click(Sender:TObject
涂孟超·2014-09-26 15:00

GdiPlus[23]: IGPFontFamily

IGPFontFamily的基本使用:usesGdiPlus,GdiPlusHelpers; procedureTForm1.FormPaint(Sender:TObject); const
涂孟超·2014-09-26 15:00

WinAPI: Pie - 绘制饼图

Y1,X2,Y2,X3,Y3,X4,Y4:Integer{四个坐标点} ):BOOL; //举例: procedureTForm1.FormPaint(Sender:TObject
涂孟超·2014-09-26 15:00

学绘秀曲线图

archive/2010/02/10/5304386.aspx看到了秀曲线图,就用GDI模仿了一下;如果用GDI+绘制,图形会细腻很多.procedureTForm1.FormPaint(Sender:TObject
涂孟超·2014-09-26 15:00

SysUtils.StrByteType - 获取字节类型

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

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

14种.在空白窗体上添加ListBox1等控件,测试代码:usesIOUtils,Vcl.Styles,vcl.Themes; procedureTForm1.FormCreate(Sender:TObject
涂孟超·2014-09-26 15:00

理解 Delphi 的类(八) - 关于类的定义

//标准语法 TMyClass1=class(TObject) end; //如果是继承自TObject可以省略 TMyClass2=class end;
涂孟超·2014-09-26 15:00

WinAPI: PolyPolygon - 绘制一组多边形

数组元素是每个多边形的顶点数} p4:Integer{多边形数,也就是nPoints的元素数} ):BOOL; //举例: procedureTForm1.FormPaint(Sender:TObject
涂孟超·2014-09-26 15:00

System.ReallocMem - 重新申请内存

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

理解 Delphi 的类(十一) - 深入类中的方法[4] - 访问限制(或者叫可见性)

//下面说的数据成员不仅仅指方法 TMyClass=class(TObject) functionFun1:string;{公共区域的数据成员在默认状态下会归于published区} //所谓默认状态就是编译指令为
涂孟超·2014-09-26 15:00

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

; const penWidth=25; var iGeometry:ID2D1EllipseGeometry; procedureTForm1.FormCreate(Sender:TObject
涂孟超·2014-09-26 15:00

WinAPI: CreatePolygonRgn - 建立多边形区域

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

学习官方示例 - TForm.BorderIcons

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

学习 SQL 语句 - Select(8): 分组条件

代码文件://分组条件可以是Where procedureTForm1.Button1Click(Sender:TObject); begin withADODataSet1dobegin Close
涂孟超·2014-09-26 15:00

学习结构[记录]类型(2) - 压缩结构

TRec2=packedrecord{压缩结构:牺牲效率,减小尺寸} i:Integer; w:Word; end; procedureTForm1.Button1Click(Sender:TObject
涂孟超·2014-09-26 15:00

GdiPlus[26]: IGPPen: 用画刷建立画笔

也能通过Brush属性获取回画刷.下面的例子只是测试了通过阴影画刷建立画笔:usesGdiPlus,GdiPlusHelpers; procedureTForm1.FormPaint(Sender:TObject
涂孟超·2014-09-26 15:00

Api 函数: GetCursorPos 与转换

//获取鼠标在窗体中的当前位置 procedureTForm1.FormMouseDown(Sender:TObject;Button:TMouseButton; Shift:TShiftState
涂孟超·2014-09-26 15:00

TClientDataSet[22]: 数组字段与 ObjectView

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

使用 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
上一页 24 25 26 27 28 29 30 31 下一页
按字母分类： ABCDEFGHIJKLMNOPQRSTUVWXYZ其他