TForm

改变Dbgrid的选定色

procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect;     Field: TField
·2015-11-07 15:05

检测系统是否已安装了ADO(用ACCESS库时常用)

uses registry;     function Tform1.ADOInstalled:Boolean;     var  
·2015-11-07 15:05

复制文件夹

uses shellAPI;     procedure TForm1.Button1Click(Sender: TObject);     var
·2015-11-07 15:04

Progressbar加上色彩。

PBS_MARQUEE}     PBS_MARQUEE = 08;     var       Form1: TForm1
·2015-11-07 15:03

Form的一个出现效果

1,用AnimateWindow函数->有一个缺点,窗体位置必须墨认 2,用如下代码 ---------------- procedure TForm1.Button1Click(Sender
·2015-11-07 15:02

打开网页

uses ShellAPI; procedure TForm1.Button1Click(Sender: TObject); begin //用IE打开 ShellExecute(Handle,
·2015-11-07 15:00

DBGRID列描红

DBGRID列描红(用于特殊数据行的显示,不因RowSelect->True而改变)   procedure TForm1.DBGrid1DrawColumnCell(Sender
·2015-11-07 15:56

单条件多字段查询

单条件多字段查询   procedure TForm1.ADODataSet1FilterRecord(DataSet: TDataSet;   var Accept:
·2015-11-07 15:55

For循环

Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls; type   TForm1
·2015-11-07 15:48

GoTO语句

GoTo语法   procedure TForm1.Button1Click(Sender: TObject); var   x: Integer;  
·2015-11-07 15:48

使用通有事件过程，如何查找事件产生的控件

procedure TForm1.Image1Click(Sender: TObject);//能用过程 var   S:TObject; begin    S:=
·2015-11-07 15:29

QQ 面板实现方法（delphi）（一）

自动隐藏：   procedure TForm1.WMMOVING(var Msg: TMessage);begin  inherited;  with PRect(Msg.LParam
·2015-11-07 15:27

delphi 7 - delphi 2010 测试 for 循环中也能改变 循环变量的值为任意值

procedure TForm1.Button1Click(Sender: TObject); var i:integer; procedure b; begin i:=0;
·2015-11-07 14:33

获取程序自身大小的2个函数

System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls; type TForm1
·2015-11-07 13:10

一个树的递归搜索

procedure TForm1.GetID(ID:Integer;var ResultList:TStringList); var   qry:TADOQuery; begin  
·2015-11-07 12:00

界面动态配置：持久化反持久化

object Form1: TForm1 Left = 0 Top = 0 Caption = 'Form1' ...
·2015-11-07 11:56

Delphi XE5 for Android （十一）

TNotificationCenter控件，如下图： 再在uses中引用文件，如下： uses FMX.Platform; 窗体上控件放置如下图：   发送消息的代码如下： procedure TForm2
·2015-11-07 11:39

delphi 理解ParamStr

delphi 理解ParamStr 演示代码如下 ::code procedure TForm1.FormCreate(Sender: TObject); var   i: Integer
·2015-11-07 11:35

delphi2010多线程编程教程

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

FireDAC内存表

procedure TForm1.FormCreate(Sender: TObject); Var i:integer; begin // i:=15; self.FDMemTable1
·2015-11-07 10:49

TStringList行与行之间打乱的例子

procedure TForm1.Button1Click(Sender: TObject);var N,X:Integer; //利用N来计算所剩行数、利用X来记录当前行数begin Randomize
·2015-11-06 08:14

ERP SYSTEM 开发指南（一）简单模块开发

输入路径设置好， 用户自已编写的模块建议放到主程序的Module目录下，方便管理 新建一个默认窗体，然后修改窗体使其从ERPForm里的TfrmERPBase继承 先是修改源文件 type TForm2
·2015-11-05 08:08

Delphi中滚动文字的应用

3.在Timer的OnTimer事件添加如下代码： procedure TForm1.Timer2Timer(Sender: TObject); begin labMessage.Left
·2015-11-03 22:25

FireMonkey 保存图片到JPG的方法 BMP转JPG

FireMonkey里面，好像查不到单独的JPEG单元了，不少朋友就郁闷如何处理JPG了，这么大件事，不可能没有处理方法的，具体就请看代码：uses FMX.Surfaces;procedure TForm1
·2015-11-03 22:33

Delphi 继承基类的窗体，并显示基类的控件操作。

    TForm4 = class(TfrmmtAReportPeriodBase)        fu
·2015-11-03 22:59

我学Delphi心得及笔记----第一个程序 Hello World ! (第十讲)

   代码如下： procedure TForm1.FormCreate(Sender: TObject);begin  ShowMessage('Hello World
·2015-11-03 22:32

使用TClientDataSet做虚拟表

  procedure TForm1.FormCreate(Sender: TObject); begin ds2.FieldDefs.Clear; ds2.FieldDefs.Add
·2015-11-03 21:24

根据条件改变TreeView的颜色

在Delphi中使用树形控件TreeView,改变其颜色,使用的是CustomDrawItem方法:   代码 procedure  TForm1.tv1CustomDrawItem
·2015-11-03 21:21

二进制字符串与十进制的转换

此函数没有查到，好象Delphi未提供，本算法根据其转换方法而写： 代码 procedure  TForm1.FormCreate(Sender: TObject);
·2015-11-03 21:13

在Delphi中的TreeView中保存多个数据

nbsp;record   FName:  string ;   LName:  string ; end; procedure TForm1
·2015-11-03 21:01

xml操作

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

mysql + unidac 使用事务例子

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

获取身份证号码信息

SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls, ExtCtrls, Grids; type TForm1
·2015-11-02 18:30

cxGrid使用汇总4

  ...,   cxFilterControlDialog;       procedure   TForm.GridVi
·2015-11-02 18:27

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
·2015-11-02 17:04

正则表达式解析器

的正则表达式很不错，于是将其剥离出来，以便可以移植到其它 控件上，两个单元cxMaskEdit和cxRegExpr（代码贴在下面） ，这里给出简单 的调用方法 ： 1、 procedure TForm1
·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

随机产生不重复数字

下面是一个在14个数据产生10个不重复的随机数 ----------------------------------------------- procedure TForm1.Button1Click
·2015-11-02 17:03

类类型的使用

Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls; type   TForm8
·2015-11-02 17:26

Delphi 数组使用新发现

Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls; type   TForm2
·2015-11-02 17:22

创建旋转字体

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

Delphi使用WebBrowser不打开新面页

, Variants, Classes, Graphics, Controls, Forms, Dialogs, OleCtrls, SHDocVw, StdCtrls; type TForm1
·2015-11-02 17:05

利用Delphi TStringGrid控件实现日历排程

效果图： 绘制日历关键代码 procedure TForm1.DrawCalender; var iDay, iProcess, days: Integer; row,col:Integer
·2015-11-02 16:19

深入VCL源码研究DELPHI窗体的创建和关闭

一、窗体的建立        在DELPHI中，我们通常使用Application.CreateForm(TForm2, Form2)和TForm.create
·2015-11-02 15:35

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

nbsp; 设置前先获得Memo的字体属性并设置给FontDialog 然后再设置MEMO的字体属性   //设置Memo的字体属性 procedure TForm1
·2015-11-02 14:55
上一页 5 6 7 8 9 10 11 12 下一页
按字母分类： ABCDEFGHIJKLMNOPQRSTUVWXYZ其他