TObject

读写另一EXE的内存

procedure TfrmMain.tmrChangeServerNameTimer(Sender: TObject); function GetProcessID(FileName: string
·2015-11-02 18:45

xml操作

procedure TForm1.btnDat2XmlClick(Sender: TObject); var XMLDoc: TXMLDocument; Node1: IXMLNode;
·2015-11-02 18:44

delphi 线程的使用

uses Windows,Classes,SysUtils; type TWorkItem=class end; TProcessWork=procedure (Sender:TObject
·2015-11-02 18:41

mysql + unidac 使用事务例子

procedure TForm1.btn1Click(Sender: TObject); var i, j: Integer; begin UniConnection1.Connect;
·2015-11-02 18:40

ODD用法

procedure TForm1.ToolButton1Click(Sender: TObject);var down : boolean;begin toolbutton1.Tag := toolbutton1
·2015-11-02 18:21

如何过XP的防火墙而不被拦截

完美屏蔽 Ctrl+Alt+Del 键 |  旧一篇: windows2008下如何删除程序自身 procedure TForm1.Button1Click(Sender: TObject
·2015-11-02 17:04

正则表达式解析器

控件上，两个单元cxMaskEdit和cxRegExpr（代码贴在下面） ，这里给出简单 的调用方法 ： 1、 procedure TForm1.FormCreate(Sender: TObject
·2015-11-02 17:06

YYYY-MM-DD的正则表达式

procedure TForm1.Edit1Exit(Sender: TObject); var   theDate:string;   reg : TperlRegex;
·2015-11-02 17:06

DBExpress动态连接SQL-Server

procedure TForm1.Button1Click(Sender: TObject);var  theCNN : TSQLConnection;//定义连接,要引用 DB, SqlExprbegin
·2015-11-02 17:05

随机产生不重复数字

个数据产生10个不重复的随机数 ----------------------------------------------- procedure TForm1.Button1Click(Sender: TObject
·2015-11-02 17:03

创建旋转字体

procedure TForm1.FormPaint(Sender: TObject); var   //font: TFont;   lf: TLogFont;  
·2015-11-02 17:08

DELPHI 调用系统 ADO 配置窗体 提高软件易用性

implementation uses AdoConEd; var  saveconnstr:string;   procedure TFsetup.BTAUTOClick(Sender: TObject
·2015-11-02 16:12

TreeView设置节点图标

TreeView设置节点图标 没子节点的设置其图标为 0 有节点的设置其图标为 1 procedure TForm1.Button1Click(Sender: TObject
·2015-11-02 14:01

DELPHI 重命名文件名时 文件存在自动重命名

      procedure TForm1.Button1Click(Sender: TObject); var Dir, FileTitle
·2015-11-02 14:00

delphi TOpenDialog

    TOpenDialog     procedure TForm1.Button1Click(Sender: TObject
·2015-11-02 14:56

delphi TFontDialog

FontDialog 然后再设置MEMO的字体属性   //设置Memo的字体属性 procedure TForm1.mni_FontClick(Sender: TObject
·2015-11-02 14:55

delphi TSaveDialog

实现过程     动态创建和使用保存文件对话框 procedure TForm1.Button1Click(Sender: TObject
·2015-11-02 14:54

delphi 使用parent让进度条上显示文字

使用parent让进度条上显示文字   procedure TForm1.Button1Click(Sender: TObject); begin   
·2015-11-02 14:33

FormatDateTime 一段以时间为命令的代码

//FormatDateTime 一段以时间为命令的代码  procedure TForm1.Button1Click(Sender: TObject);   var
·2015-11-02 14:32

使用mask来制作图像透明

的图像  效果图 type  TForm1 = class(TForm)     procedure FormCreate(Sender: TObject
·2015-11-02 14:27

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

ListBox1 等控件, 测试代码: uses IOUtils, Vcl.Styles, vcl.Themes; procedure TForm1.FormCreate(Sender: TObject
·2015-11-02 12:37

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

procedure TForm1.FormCreate(Sender: TObject); begin { DisplayFormat } with TIntegerField.Create
·2015-11-02 12:32

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

、DataSource1、DBGrid1、ClientDataSet2、DataSource2、DBGrid2; 然后: procedure TForm1.FormCreate(Sender: TObject
·2015-11-02 12:31

TClientDataSet[21]: 使用 ADT(Abstract Data Type) 字段

//先在窗体上放置: DBGrid1、DataSource1、ClientDataSet1 并关联, 然后: procedure TForm1.FormCreate(Sender: TObject
·2015-11-02 12:29

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

DBGrid1、DataSource1、ClientDataSet1、ClientDataSet2; 其他全用代码实现: procedure TForm1.FormCreate(Sender: TObject
·2015-11-02 12:28

TClientDataSet[18]: OptionalParam

uses XMLDoc; procedure TForm1.FormCreate(Sender: TObject); begin with ClientDataSet1 do
·2015-11-02 12:27

TClientDataSet[10]: 简单统计

//先在窗体上放置 ClientDataSet1、Button1 然后: { 建表 } procedure TForm1.FormCreate(Sender: TObject); begin
·2015-11-02 12:24

TClientDataSet[3]: 手动建立数据集

//放置控件: ClientDataSet1、DataSource1、DBGrid1、Button1, 然后 procedure TForm1.Button1Click(Sender: TObject
·2015-11-02 12:21

多线程编程(1) - 先入门再说

先试试这个: procedure TForm1.Button1Click(Sender: TObject); var i: Integer; begin for i := 0 to
·2015-11-02 12:45

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

DXImageList1; 然后只需要下面四行代码即可在 DXDraw1 中显示 DelphiX.dxg 图像: procedure TForm1.Button1Click(Sender: TObject
·2015-11-02 12:30

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

已经有了: TList<T>、TQueue<T>、TStack<T>、TDictionary<TKey,TValue> 为什么还有: TObjectList<T>、TObjectQueue<T>、TObjectStack<T>、TObjectDictionary<TKey,TValue> ?
·2015-11-02 12:46

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

GetParent( hWnd: HWND {窗口句柄} ): HWND; {返回父窗口句柄} //举例: procedure TForm1.Button1Click(Sender: TObject
·2015-11-02 12:40

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

//举例: procedure TForm1.FormCreate(Sender: TObject); var Drives: DWord; i
·2015-11-02 12:38

窗体图片背景

var Bitmap: TBitmap; procedure TForm1.FormCreate(Sender: TObject); begin Bitmap := TBitmap.Create
·2015-11-02 12:31

WinAPI: CreatePatternBrush - 建立位图画刷

Bitmap: HBITMAP {位图句柄} ): HBRUSH; {返回画刷句柄} //举例: procedure TForm1.FormPaint(Sender: TObject
·2015-11-02 12:30

WinAPI: CreateSolidBrush - 建立实心画刷

CreateSolidBrush( p1: COLORREF {颜色值} ): HBRUSH; {返回画刷句柄} //举例: procedure TForm1.FormPaint(Sender: TObject
·2015-11-02 12:29

WinAPI: InflateRect - 改变矩形大小

TRect; {要修改的矩形} dx, dy: Integer {变化值} ): BOOL; //举例: procedure TForm1.FormPaint(Sender: TObject
·2015-11-02 12:27

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

Integer {数组元素个数} ): BOOL; //如果不给 PolylineTo 指定起点, 将默认 0 点位起点 procedure TForm1.FormPaint(Sender: TObject
·2015-11-02 12:25

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

Count: DWORD {数组元素个数} ): BOOL; //需要给 PolyBezierTo 指定起始点 procedure TForm1.FormPaint(Sender: TObject
·2015-11-02 12:23

WinAPI: Polygon - 绘制多边形

Points; {点数组} Count: Integer {数组元素个数} ): BOOL; //举例: procedure TForm1.FormPaint(Sender: TObject
·2015-11-02 12:23

WinAPI: PolyBezier - 绘制贝塞尔线

点数组} Count: DWORD {数组元素个数} ): BOOL; //一条贝塞尔线最少要有 4 个点 procedure TForm1.FormPaint(Sender: TObject
·2015-11-02 12:22

WinAPI: DrawFocusRect - 绘制焦点矩形

{设备环境句柄} const lprc: TRect {矩形结构} ): BOOL; //举例: procedure TForm1.FormPaint(Sender: TObject
·2015-11-02 12:21

WinAPI: Chord - 绘制弦

X2, Y2, X3, Y3, X4, Y4: Integer {四个坐标点} ): BOOL; //举例: procedure TForm1.FormPaint(Sender: TObject
·2015-11-02 12:21

WinAPI: Arc - 绘制弧线

X2, Y2, X3, Y3, X4, Y4: Integer {四个坐标点} ): BOOL; //举例: procedure TForm1.FormPaint(Sender: TObject
·2015-11-02 12:20

WinAPI: RoundRect - 绘制圆角矩形

Integer {点1、点2是构成矩形的坐标; X3是圆角宽度、Y3是圆角高度} ): BOOL; //举例: procedure TForm1.FormPaint(Sender: TObject
·2015-11-02 12:19

WinAPI: Ellipse - 绘制椭圆

设备环境句柄} X1, Y1, X2, Y2: Integer {两个点的坐标} ): BOOL; //举例: procedure TForm1.FormPaint(Sender: TObject
·2015-11-02 12:19

WinAPI: Pie - 绘制饼图

X2, Y2, X3, Y3, X4, Y4: Integer {四个坐标点} ): BOOL; //举例: procedure TForm1.FormPaint(Sender: TObject
·2015-11-02 12:19

WinAPI: Rectangle - 绘制矩形

设备环境句柄} X1, Y1, X2, Y2: Integer {两个点的坐标} ): BOOL; //举例: procedure TForm1.FormPaint(Sender: TObject
·2015-11-02 12:18

WinAPI: SetTextColor - 设置设备环境的文本颜色

COLORREF; {返回指定的颜色值; 如果返回值是 CLR_INVALID 表示设置失败} //举例: procedure TForm1.Button1Click(Sender: TObject
·2015-11-02 12:10

WinAPI: TextOut - 输出文本

PChar; {字符串指针} Count: Integer {字符串长度} ): BOOL; //举例: procedure TForm1.FormPaint(Sender: TObject
·2015-11-02 12:10
上一页 10 11 12 13 14 15 16 17 下一页
按字母分类： ABCDEFGHIJKLMNOPQRSTUVWXYZ其他