TObject 第13页

ScrollBox 响应鼠标滚轮和ComboBox禁止滚动

procedure TForm1.FormMouseWheel(Sender: TObject; Shift: TShiftState; WheelDelta: Integer; MousePos:

·2015-11-08 15:22

cxgrid HyperLink 鼠标显示效果

procedure TForm1.cxGrid1DBTableView1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);

·2015-11-08 15:04

delphi操作word基类,插入表格,分页符,日期,页码,替换,图片

interface uses word2000, ActiveX, Variants, Dialogs, SysUtils; type TMyWord = class(TObject

·2015-11-08 14:08

TJPEGImage简单用法

void __fastcall TForm1::Button1Click(TObject *Sender) { TJPEGImage *jp = new TJPEGImage(); jp->LoadFromFile

·2015-11-08 14:40

C++ builder 中AnsiString的字符串转换方法大全

C++ builder 中AnsiString的字符串转换方法大全 //Ansistring 转 charvoid __fastcall TForm1::Button1Click(TObject

·2015-11-08 14:23

用画刷在屏幕上写字

procedure TForm1.btn1Click(Sender: TObject); var c:TCanvas; begin c:= TCanvas.Create; c.Pen.Width

·2015-11-08 14:48

delphi 后台截图

cardinal): bool; stdcall; external 'user32.dll' name 'PrintWindow'; procedure TForm1.btn1Click(Sender: TObject

·2015-11-08 14:47

利用TBDBitmapData对象查找两张图片上的不同

不完整代码如下： procedure TForm1.Button5Click(Sender: TObject);var Bmp1,Bmp2 : TBDBitmapData;&

·2015-11-08 14:46

FormCreate & FormActivate & FormShow执行顺序演示

procedure TForm1.FormCreate(Sender: TObject);begin form1.Caption:=form1.Caption +'+Create'; end

·2015-11-08 13:33

工控控件组iocomp的iplot控件的使用

procedure TFormMain.Timer1Timer(Sender: TObject);begin inherited; iPlot1.Channel[0].TitleText

·2015-11-08 11:46

DUint单元测试工具使用Demo

一：新建所需测试单元 unit UFunction; interface type TMyfun = class (TObject) public function GetMyAge

·2015-11-07 15:14

ehlib ado 删除选中记录的方法

procedure TForm1.Button1Click(Sender: TObject); var I: Integer; begin for I := DBGridEh1.SelectedRows.Count

·2015-11-07 15:01

JSON 数组的创建方式

procedure TFormDZMD.Button1Click(Sender: TObject); var ja: ISuperObject; begin ja := SA([]);

·2015-11-07 15:58

superobject数组添加json对象，用的是引用

1 procedure TForm1.Button1Click(Sender: TObject); 2 var 3 ja,jo: ISuperObject; 4 I: Integer

·2015-11-07 15:32

专门用于字串列表的TStringList,可以保存为文件,也可以Sort

------------------------------------------------------------ procedure TForm1.Button6Click(Sender: TObject

·2015-11-07 15:27

Queue(队列的使用)

注意:同样引用 Contnrs -------------------------- procedure TForm1.Button3Click(Sender: TObject); var a:TQueue

·2015-11-07 15:25

Stack栈的使用

要引用:Contnrs ----------------------- procedure TForm1.Button1Click(Sender: TObject); var a:TStack

·2015-11-07 15:25

使用GIF(仅限Delphi2007)

----------- uses GIFImg; procedure TForm1.FormCreate(Sender: TObject); begin // 先在窗体上放一个 TImage

·2015-11-07 15:14

限定鼠标只能在Form内移动

procedure TForm1.Button1Click(Sender: TObject); var a: TRect; begin a.Left := Form1

·2015-11-07 15:11

word文件传入和传出数据库

uses IdGlobal; procedure TdjhyForm.SpeedButton2Click(Sender: TObject);

·2015-11-07 15:08

打开word文件

procedure TfjfsglForm.SpeedButton4Click(Sender: TObject); var MSWord

·2015-11-07 15:07

dbgrid中根据任一条件某一格变色

procedure TForm_main.DBGridEh1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol

·2015-11-07 15:07

改变Dbgrid的选定色

procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect; Field: TField

·2015-11-07 15:05

复制文件夹

uses shellAPI; procedure TForm1.Button1Click(Sender: TObject); var

·2015-11-07 15:04

Form的一个出现效果

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

·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: TObject

·2015-11-07 15:56

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

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

procedure TForm1.Button1Click(Sender: TObject); var i:integer; procedure b; begin i:=0;

·2015-11-07 14:33

Iso8601 日期格式

unit Iso8601Unit; interface type TIso8601 = class(TObject) public class function DateTimeFromIso8601

·2015-11-07 13:22

一个MM的图，演示类及类包含的东东.

pro3.pas unit pro3; interface uses SysUtils,Dialogs,Contnrs; type TProduct = class(TObject

·2015-11-07 12:59

DrawGrid 做图片显示代码简单参考性强 (Delphi7)

://files.cnblogs.com/lwm8246/DrawGrid_demo.rar procedure TfrmMain.GridDrawCell(Sender: TObject

·2015-11-07 12:12

信号和槽（QT和sigslot）

Qt的QObject 和QObjectData(句柄实体模式) 去原文看看 1.基类QObject： QObject是Qt类体系的唯一基类,就象MFC中的CObject和Dephi中的TObject

·2015-11-07 11:25

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

应用程序的关闭退出

所以在主窗体中使用窗体的关闭函数（Close）即可，如下： procedure TfrmMain.btncloseClick(Sender: TObject); begin

·2015-11-07 11:26

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

Delphi中滚动文字的应用

3.在Timer的OnTimer事件添加如下代码： procedure TForm1.Timer2Timer(Sender: TObject); begin labMessage.Left

·2015-11-03 22:25

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

JPG了，这么大件事，不可能没有处理方法的，具体就请看代码：uses FMX.Surfaces;procedure TForm1.Button1Click(Sender: TObject

·2015-11-03 22:33

我学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

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

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

·2015-11-03 21:13

TList,TObjectList 使用——资源释放

首先是 TObject 作为对象可以方便使用，无需指针强制。

·2015-11-02 19:14

让程序主窗口不显示在任务栏中

// 这样一句就能搞定了在Form创建是调用 procedure TfrmWaitWindow.FormCreate(Sender: TObject); begin SetWindowLong

·2015-11-02 18:12

Delphi：TObject简要说明-对象的创建流程

TObject = class //创建 constructor Create; //释放

·2015-11-02 18:07

Delphi XE5 for Android （三）

在VCL下，常用的询问对话框包括 procedure TfrmMainVCL.btnAppMessageboxClick(Sender: TObject); begin

·2015-11-02 18:54

DataSnap侦听端口动态设置问题

使用DataSnap做服务器，端口设置为可配置，然后在程序中动态指定： procedure TscUPower.DataModuleCreate(Sender: TObject);

·2015-11-02 18:50

cxGrid显示行号

定义一个类： TMyCxGrid = class(TObject) class procedure DrawIndicatorCell( Sender: TcxGridTableView

·2015-11-02 18:49

推荐频道

TObject