TObject

学习 TList 类的实现[8]

TMyList=class(TObject) private ...
涂孟超·2014-09-26 15:00

WinAPI: 输入光标相关的函数[4]

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

如何用 GDI 绘制阴影文字 - 回复 "Splendour" 的问题

:http://www.cnblogs.com/del/archive/2010/01/09/1643019.html#1746542procedureTForm1.FormPaint(Sender:TObject
涂孟超·2014-09-26 15:00

获取程序所在目录

procedureTForm1.Button1Click(Sender:TObject); begin ShowMessage(ExtractFilePath(ParamStr(0)));//获取程序所在目录
涂孟超·2014-09-26 15:00

使用 IntraWeb (27) - 基本控件之 TIWAudio、TIWMPEG、TIWFlash、TIWSilverlight、TIWSilverlightVideo、TIWApplet、T...

TIWCustomControlTObject
涂孟超·2014-09-26 15:00

RadioGroup 的使用

//获取RadioGroup项目名称 procedureTForm1.RadioGroup1Click(Sender:TObject); begin Text:=RadioGroup1.Items
涂孟超·2014-09-26 15:00

Memo 的当前行、当前列与当前字符

procedureTForm1.Memo1Click(Sender:TObject); begin Text:=Format('当前列:%d,当前行:%d',[Memo1.CaretPos.X,Memo1
涂孟超·2014-09-26 15:00

Delphi 与 DirectX 之 DelphiX(5): 初识 TDXImageList

在窗体上分别添加:DXDraw1、DXImageList1;然后只需要下面四行代码即可在DXDraw1中显示DelphiX.dxg图像:procedureTForm1.Button1Click(Sender:TObject
涂孟超·2014-09-26 15:00

通配符函数 MatchesMask 的使用

uses Masks; procedureTForm1.Button1Click(Sender:TObject); var s:string; begin s:='http://www.132435
涂孟超·2014-09-26 15:00

不使用标题栏拖动窗体

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

如何把几张相同大小的图片拼合在 TImage 中 - 回复 "jxjjljf" 的问题

http://www.cnblogs.com/del/archive/2009/01/09/1373051.html#1743248procedureTForm1.Button1Click(Sender:TObject
涂孟超·2014-09-26 15:00

注册系统级热键

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

GdiPlus[5]: IGPColors

本例把TGPColor中的141个颜色常量装载到一个IGPColors,顺便看看这些颜色.运行效果图:usesGdiPlus; procedureTForm1.FormPaint(Sender:TObject
涂孟超·2014-09-26 15:00

关于 TRegEx.Split()

//分隔符将有三部分构成:一个数字,一个冒号,一个空格 var Arr:TArray ; str:string; procedureTForm1.Button1Click(Sender:TObject
涂孟超·2014-09-26 15:00

再学 GDI+[65]: 路径画刷(5) - SetGammaCorrection

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

WinAPI: CreatePatternBrush - 建立位图画刷

CreatePatternBrush( Bitmap:HBITMAP{位图句柄} ):HBRUSH;{返回画刷句柄} //举例: 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

再学 GDI+[77]: 区域(6) - GetRegionScans - 获取区域中的所有矩形

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

Delphi 的绘图功能[15] - 再谈文字的高度与宽度: Canvas.TextExtent

procedureTForm1.Button1Click(Sender:TObject); var str:string; wh:TSize; w,h:Integer; begin {前面用过
涂孟超·2014-09-26 15:00

TMainMenu 类[三] - 手动建立菜单(4) : 添加分割线与隐藏多余的分割线

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

理解 Delphi 的类(十一) - 深入类中的方法[12] - 消息方法

//一个前导示例: {创建一Win32工程,给窗体添加OnKeyDown事件} procedureTbu.FormKeyDown(Sender:TObject;varKey:Word;Shift
涂孟超·2014-09-26 15:00

WinAPI: GetKeyNameText - 根据键盘消息获取按键名称

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

枚举可以这样遍历

usesTypInfo; {以TAlign为例} procedureTForm1.Button1Click(Sender:TObject); var enum:TAlign; i:Integer
涂孟超·2014-09-26 15:00

有序类型的大小及最大、最小值

procedureTForm1.Button1Click(Sender:TObject); var b:Byte; w:Word; i:Integer; c:Cardinal; begin
涂孟超·2014-09-26 15:00

知道双字节码, 如何获取汉字 - 回复 "pinezhou" 的问题

archive/2008/09/05/1284923.html#1818187{查看同一字符串的双字节码和UniCode码} procedureTForm1.Button1Click(Sender:TObject
涂孟超·2014-09-26 15:00

检索用到汇编代码的单元

usesIOUtils,Types,StrUtils; procedureTForm1.Button1Click(Sender:TObject); var PathArr:TStringDynArray
涂孟超·2014-09-26 15:00

将 4 个 Byte 合成 1 个 Integer 的五种方法 - 回复 "三足乌" 的问题

www.cnblogs.com/del/archive/2010/04/21/1717584.html#1809298//方法1:共用内存 procedureTForm1.Button1Click(Sender:TObject
涂孟超·2014-09-26 15:00

统计字数

//添加Memo1、Label1、Label2、还有Button1 procedureTForm1.Button1Click(Sender:TObject); var s:string; i,sum
涂孟超·2014-09-26 15:00

再学 GDI+[13]: DrawBezier - 绘制贝塞尔线

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

一句话复制整个文件夹(当然包括嵌套文件夹) - 回复 "张哆哆" 的问题

#1742606使用的是Delphi2010下IOUtils单元的TDirectory.Copy函数:usesIOUtils; procedureTForm1.Button1Click(Sender:TObject
涂孟超·2014-09-26 15:00

GDI+ 学习记录(31): 图像颜色变换(TGPImageAttributes)

//正常显示图片,没有变换 usesGDIPAPI,GDIPOBJ; procedureTForm1.FormPaint(Sender:TObject); var g:TGPGraphics
涂孟超·2014-09-26 15:00

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

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

学习 TList 类的实现[4]

现在准备一步步地模拟TList类,建立一个自己的TMyList.首先,这个类中应该包括前面提到的那个Pointer数组(TPointerList)的指针(PPointerList):TMyList=class(TObject
涂孟超·2014-09-26 15:00

Direct2D (8) : 透明色

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

再学 GDI+[86]: TGPImage(6) - 拖动图像

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

ParamCount、ParamStr

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

TClientDataSet[10]: 简单统计

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

在 API 函数中使用 PChar 参数的几种方法

//以GetWindowsDirectory为例: {以静态数组做缓冲区} procedureTForm1.Button1Click(Sender:TObject); var buf:array
涂孟超·2014-09-26 15:00

WinAPI: Chord - 绘制弦

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

NativeXml (8)：其它添加

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

TScreen 类 - 判断当前焦点在哪个控件上

procedureTForm1.Timer1Timer(Sender:TObject); begin Text:=Screen.ActiveControl.ClassName; end; {
涂孟超·2014-09-26 15:00

覆盖虚方法

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

Direct2D (22) : 复合几何对象之 ID2D1TransformedGeometry

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

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

先在窗体上放置:DBGrid1、DataSource1、ClientDataSet1、ClientDataSet2;其他全用代码实现: procedureTForm1.FormCreate(Sender:TObject
涂孟超·2014-09-26 15:00

SysUtils.StrMove

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

WinAPI: GetParent - 获取指定窗口的父窗口句柄

GetParent( hWnd:HWND{窗口句柄} ):HWND;{返回父窗口句柄} //举例: procedureTForm1.Button1Click(Sender:TObject
涂孟超·2014-09-26 15:00

学习官方示例 - TApplication.OnDeactivate

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

WinAPI: Ellipse - 绘制椭圆

设备环境句柄} X1,Y1,X2,Y2: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

使用 IntraWeb (8) - 系统模板

{在主页面,这是要模拟一个系统错误} procedureTIWForm1.IWButton1Click(Sender:TObject); begin Release; end;修改前后的IWError.html
涂孟超·2014-09-26 15:00
上一页 23 24 25 26 27 28 29 30 下一页
按字母分类： ABCDEFGHIJKLMNOPQRSTUVWXYZ其他