TObject

一种获取无符号整数最大值的方法:

//一种获取无符号整数最大值的方法: procedureTForm1.Button1Click(Sender:TObject); var {Delphi标准的无符号整数类型只有三种} num_Byte
涂孟超·2014-09-26 15:00

GdiPlus[27]: IGPPen: Alignment (画笔对齐)

usesGdiPlus; procedureTForm1.FormPaint(Sender:TObject); var Graphics:IGPGraphics; BlackPen,GreenPen
涂孟超·2014-09-26 15:00

Delphi 2010 新增功能之: 手势编程[4] - 关于 OnGesture 事件过程的参数

参数主要用于识别手势信息;前面用过EventInfo.GestureID,还有EventInfo.Location给出了手势动作的起点坐标,测试代码:procedureTForm1.FormGesture(Sender:TObject
涂孟超·2014-09-26 15:00

NativeXml (3)：保存

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

打开"我的电脑"等特殊文件夹

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

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

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

理解 Delphi 的类(十) - 深入方法[8] - 如果忘了返回值

functionMyFun(varx:Integer):string; begin x:=x+1; end; {调用} procedureTForm1.Button1Click(Sender:TObject
涂孟超·2014-09-26 15:00

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

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

曾经对 TMemoryStream.Memory 错误的理解

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

学习 SQL 语句 - Select(9): 其他

//只要前五条记录 procedureTForm1.Button1Click(Sender:TObject); begin withADODataSet1dobegin Close; CommandText
涂孟超·2014-09-26 15:00

理解 Delphi 的类(十) - 深入方法[19] - 过程中的方法

//Delphi支持过程中的方法 procedureTForm1.Button1Click(Sender:TObject); procedurealert(s:string); begin ShowMessage
涂孟超·2014-09-26 15:00

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

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

Direct2D (20) : 图层之 TD2D1LayerParameters.opacityBrush (为图层指定蒙版画刷)

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

DateUtils.IsPM - 判断时间是否是下午

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

WinAPI: CreateRoundRectRgn - 建立圆角矩形区域

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

理解 Delphi 的类(十一) - 深入类中的方法[8] - 抽象方法与抽象类

{下面就定义了两个抽象方法} TMyClass=class(TObject) procedureProc1;virtual;abstract;{抽象方法首先应该是一个虚方法或动态方法} functionFun
涂孟超·2014-09-26 15:00

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

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

WinAPI: PolyBezierTo - 绘制贝塞尔线(更新当前位置)

Count:DWORD{数组元素个数} ):BOOL; //需要给PolyBezierTo指定起始点 procedureTForm1.FormPaint(Sender:TObject
涂孟超·2014-09-26 15:00

理解 Delphi 的类(十) - 深入方法[10] - 默认参数

string;s2:string='好人'):string; begin Result:=s1+s2; end; {调用} procedureTForm1.Button1Click(Sender:TObject
涂孟超·2014-09-26 15:00

绘制正弦曲线和余弦曲线

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

使用 IntraWeb (36) - TIWServerControllerBase

所在单元及继承链:IWServerControllerBase.TIWServerControllerBaseTObject
涂孟超·2014-09-26 15:00

TMainMenu 类[三] - 手动建立菜单(5) : 给菜单项添加事件

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

使用剪切板[1]: AsText、SetTextBuf、GetTextBuf

剪切板类TClipboard定义在Clipbrd单元,使用前先要usesClipbrd;usesClipbrd; procedureTForm1.Button1Click(Sender:TObject
涂孟超·2014-09-26 15:00

WinAPI: SetTextJustification - 设置两端对齐

Integer{被分成几份;一般以空格为间隔} ):Integer;{成功返回非0值;失败返回0} //举例: procedureTForm1.FormPaint(Sender:TObject
涂孟超·2014-09-26 15:00

Delphi 的绘图功能[2] - 入门

//举例: {绘制直线} procedureTForm1.Button1Click(Sender:TObject); begin Canvas.Pen.Color:=clRed;
涂孟超·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 嵌入汇编[12] - 在汇编代码中可以直接使用 Result

Delphi是一样的} mov@Result,ecx{在本例中去掉@也可以,暂时不知怎么回事} end; //测试 procedureTForm1.Button1Click(Sender:TObject
涂孟超·2014-09-26 15:00

判断集合从属关系的练习: 是否同时按下了 Ctrl 和 Shift 键

ssRight,ssMiddle,ssDouble,ssTouch,ssPen); {判断是否按下了Ctrl键:方法一} procedureTForm1.FormMouseMove(Sender:TObject
涂孟超·2014-09-26 15:00

WinAPI: Arc - 绘制弧线

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

Delphi 转EXCEL 合并单元格解决方案

procedureTForm1.Button10Click(Sender:TObject);var FExcel:Variant; FWorkbook:Variant; FWorkSheet:Variant
Trassion·2014-09-13 11:00

BCB操作注册表

1.导入头文件 #include 2. void__fastcallTForm1::btn2Click(TObject*Sender)//读取 { TRegistry*Areg=newTRegistry
cddchina·2014-08-26 14:00

delphi使用outputdebugstring调试程序和写系统日志

delphi使用outputdebugstring调试程序和写系统日志 procedure TForm1.btn1Click(Sender: TObject); begin OutputDebugString
·2014-08-16 11:00

BCB用FTP上传下载

/6079ad0e67acf828ff86db3f.html测试FTP配置：可以用软件链接 也可以自己输入 ftp://IP:21上传：void__fastcallTForm1::btn2Click(TObject
cddchina·2014-08-14 17:00

delphi 窗体添加背景图片

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

Delphi ICS 多线程下载

 一、FMultiPartHTTP 的事件:  下载完成事件   HTTPRequestDone(Sender:TObject;ErrorCode:Integer;constReason:string)
vga·2014-08-10 16:00

TList 对像说明

类关系TObject Tlist用于存储和维护对象列表。TList引入属隆和方法以执行以下操作： (1)在列表中增加或删除对象。 (2)在列表中重排对象。 (3)在列表中定位和获得对象。 
zb872676223·2014-08-07 15:00

ansistring使用大全

//ansistring转char void__fastcalltform1::button1click(tobject*sender) {      ansistringtest="哈哈";      
zb872676223·2014-08-07 15:00

ListView点击头排序

-------------------------------------------------------------void__fastcallTForm1::ListView1Compare(TObject
binnygoal·2014-08-05 16:00

运行时使用Dev的ImageListEditor

uses cxImageListEditor,cxGridMenuOperations; {$R*.dfm} procedureTForm1.Btn1Click(Sender:TObject
·2014-07-14 04:00

发现C++Builder 2010集合类的一个BUG

下面是一段集合类的测试代码：enumTTest{tt0,tt15=15,tt16=16}; typedefSetTTests; void__fastcallTForm1::Button1Click(TObject
maozefa·2014-07-03 00:00

TcxVerticalGrid demo

procedure TForm1.Button1Click(Sender: TObject);var row: TcxEditorRow; i,t: Integer;begin grid.ClearRows
·2014-06-30 11:00

使用 IntraWeb (36) - TIWServerControllerBase

IWServerControllerBase.TIWServerControllerBase < TIWDataModule < TDataModule < TComponent < TPersistent < TObject
·2014-06-25 17:00

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

TNativeXml (IWNativeXml.TNativeXml < TPersistent < TObject) 的主要成员: property AbortParsing: Boolean
·2014-06-23 16:00

Delphi TreeView树型框节点拖拽停靠、按条件开始拖拽

OnDragOver处理是否允许放下：01.procedureTMainForm.TreeViewDragOver(Sender,Source:TObject;X,Y:Integer;State:TDragState
鹅倌·2014-06-23 09:02

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

TIWBaseHTMLControl < TIWBaseControl < TIWVCLBaseControl < TControl < TComponent < TPersistent < TObject
·2014-06-19 21:00

导出Excel1 - 项目分解篇

    项目负责人：xiaobin    项目时间：2006.12-2007.2   Excel功能模块：   单击事件（Event）：   procedureEXCELE1Click(Sender:TObject
xiaobin_HLJ80·2014-06-12 12:00

使用 IntraWeb (11) - 基本控件之 TIWButton

TIWBaseHTMLControl < TIWBaseControl < TIWVCLBaseControl < TControl < TComponent < TPersistent < TObject
·2014-06-12 11:00

IntraWeb XIV 类型速查表

TIWUserSessionBase < TDataModule < TComponent < TPersistent < TObject IWApplication.
·2014-06-11 16:00

c++ builder firemonkey 实现填充椭圆

void__fastcallTForm3::FormPaint(TObject*Sender,TCanvas*Canvas,constTRectF&ARect) { Canvas
luozhuang·2014-06-10 11:00

使用 IntraWeb (10) - CSS

要分两步: 第一步: {通过窗体的 StyleSheet 属性指定要链接的 CSS 文件} procedure TIWForm1.IWAppFormCreate(Sender: TObject
·2014-06-09 22:00
上一页 26 27 28 29 30 31 32 33 下一页
按字母分类： ABCDEFGHIJKLMNOPQRSTUVWXYZ其他