TObject

delphi with do和for do语句

1.with 对象名 do语句只是为了减少输入的字符,不必每次重复名字,直接写变量//**************procedure TForm1.Button1Click(Sender: TObject
linuxstuding·2011-03-03 00:00

Delphi DbGrid鼠标滚屏

TMessage);    OldGridWnd: TWndMethod;   procedure TForm1.FormCreate(Sender: TObject
woxiaoe·2011-03-01 16:00

用TWebBrowser抓取页面

USESMSHTML;procedureTForm1.RzButton1Click(Sender:TObject);begin//打开页面地址WebBrowser1.Navigate('http://www.gooooal.com
soboer·2011-02-22 17:00

delphi实现圆角窗体

procedure TForm1.FormCreate(Sender: TObject); var   hr :thandle; begin   hr:=createroundrectrgn
luckliu521·2011-02-17 17:00

几个获取Windows系统信息的Delphi程序

具体程序如下：Procedure Tform1.Button1Click(sender:TObject);  Var  OSVI:OSVERSIONINFO;  begin  OSVI.dwOSversioninfoSize
akof1314·2011-02-17 11:00

关于Delphi使用TPerlRegEx控件编译时出现Internal Error：l3576的一点发现

拿代码说话： procedureTMainForm.Button1Click(Sender:TObject);varRegEx:TPerlReg
chaijunkun·2011-02-10 18:00

Delphi对象创建和释放过程

_ClassCreate调用TObject类的虚方法NewInstance建立对象的实例空间，继承类通常不需要重载TObject.NewInstance，除非你使用自己的内存管理器，因此缺省
To Be C++·2011-02-06 11:00

Delphi 无边框WebBrowser右键属性程序挂起问题解决

Form启动时候，从新设置窗体的Style：  procedure TForm1.onFormCreate(Sender: TObject);var nbStyleFix:Integer;
kong6001·2011-01-25 14:00

使用WndProc来处理消息

WndProc(var Message : TMessage); override; end; type TForm1 = class(TForm) procedure FormCreate(Sender: TObject
·2011-01-17 00:00

cxGrid使用汇总4

/保存过滤文件的默认路径解决：uses...,cxFilterControlDialog;procedureTForm.GridView1FilterControlDialogShow(Sender:TObject
v5qqcom·2011-01-12 13:00

cxGrid使用汇总4

       ...,  cxFilterControlDialog;     procedure  TForm.GridView1FilterControlDialogShow(       Sender:  TObject
shuaihj·2011-01-12 13:00

Delphi动态事件深入分析

procedure ExtClick1(Sender: TObject); begin {asm mov eax,[edx+8] call showmes
v5qqcom·2011-01-11 17:00

Delphi动态事件深入分析

procedureExtClick1(Sender:TObject);  begin  {asm    moveax,[edx+8]    callsh
shuaihj·2011-01-11 17:00

Delphi操作剪贴板

TClipboard 定义在 Clipbrd 单元, 使用前先要 uses Clipbrd; uses Clipbrd; procedure TForm1.Button1Click(Sender: TObject
v5qqcom·2011-01-09 22:00

Delphi 的RTTI机制浅探(一)

===============⊙ RTTI 简介⊙ 类(class) 和 VMT 的关系⊙ 类(class)、类的类(class of class)、类变量(class variable) 的关系⊙ TObject.ClassType
v5qqcom·2011-01-09 15:00

RichEdit自适应高度

procedureTForm1.Button2Click(Sender:TObject);varsInfo:tagSCROLLINFO;beginsInfo.cbSize:=SizeOf(TScrollInfo
genispan·2010-12-28 19:00

DELPHI中使用Tlist类的简单分析

procedureTForm1.Button1Click(Sender:TObject);const //黑桃,红桃,方块
woxiaoe·2010-12-16 08:00

Delphi读取XML

Variants,Classes,Graphics,Controls,Forms,    Dialogs,XMLIntf,XMLDoc,StdCtrls;    type    TStudent=Class(TObject
rosehacker2010·2010-12-15 13:46

delphi 管道

TForm1=class(TForm)Button1:TButton;Memo1:TMemo;Edit1:TEdit;Label1:TLabel;procedureButton1Click(Sender:TObject
rosehacker2010·2010-12-15 13:53

备份数据

procedure TForm1.Button2Click(Sender: TObject); var m:tmemorystream; s:string; begin m:=tmemorystream.Create
dancwolf·2010-12-14 16:00

DataSet动态生成字段

procedureTForm1.Button1Click(Sender:TObject);var j:integer; t:tstringfield;begin query2.open; Query1.
zyyjc·2010-12-14 10:00

Webbrowser中模拟连接点击（非鼠标模拟）

Delphiusesmshtml,ActiveX;//初始加载网易主页procedureTForm1.FormCreate(Sender:TObject);beginWebbrowser1.Navigate
bdmh·2010-12-11 13:00

Delphi开发ActiveX控件示例

单击“OK”4.出现Form设计界面，这里添加一个Button和一个Edit控件5.双击Button，添加事件处理代码procedureTActiveFormX.Button1Click(Sender:TObject
rosehacker2010·2010-12-09 16:32

多线程先入门再说

但这个基础对我来讲的确有点难(起码昨天以前是这样).开始本应该是一篇洋洋洒洒的文字,不过我还是提倡先做起来,在尝试中去理解.先试试这个:procedureTForm1.Button1Click(Sender:TObject
rosehacker2010·2010-12-09 16:38

delphi中一个概念性问题:procedure of object 什么意思

例： type TNotifyEvent = procedure(Sender: TObject) of object; 7：首先： procedure 也是类型 可以理解为过程类型，定义过程的参数结构
compty·2010-12-06 14:00

Delphi往注册表写入字符串、REG_DWORD、二进制

procedure TForm1.Button1Click(Sender: TObject);var  reg, reg1: TRegistry;  info: TRegDataInfo;  buf: 
zhengbo2006·2010-12-06 12:00

获到当前鼠标位置

procedureMouseDown(Sender:TObject;Button:TMouseButton; Shift:TShiftState;X,Y:Integer);var pt:TPoint;begin
·2010-12-03 17:00

delphi实现穿XP防火墙

procedureTForm1.Button1Click(Sender:TObject);var   FwMgr,Profile,FwApp:variant;begin   FwMgr:=CreateOLEObject
nhconch·2010-11-20 01:00

delphi实现穿XP防火墙

procedure TForm1.Button1Click(Sender: TObject);varFwMgr,Profile,FwApp: variant;beginFwMgr := CreateOLEObject
lovnet·2010-11-20 01:00

动态record数组的应用

类型动态的创建与添加，实例代码如下：（主要功能为从XML文件中读取数据，并放在record数组中，当然，如果不是从XML文件中读取就省了很多步骤了）procedureTForm1.btn2Click(Sender:TObject
genispan·2010-11-19 19:00

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

打开"我的电脑"等特殊文件夹usesShellAPI;//打开C盘procedureTForm1.Button1Click(Sender:TObject);begin ShellExecute(Handle
sforiz·2010-11-07 18:00

devexpress 动态调用皮肤

usesdxSkinsDefaultPainters;procedureTForm1.FormCreate(Sender:TObject);begincxComboBox1.Properties.Items
zyyjc·2010-11-06 15:00

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

但这个基础对我来讲的确有点难(起码昨天以前是这样).开始本应该是一篇洋洋洒洒的文字,不过我还是提倡先做起来,在尝试中去理解.先试试这个:procedureTForm1.Button1Click(Sender:TObject
shazhuyubaichi·2010-10-28 19:00

Delphi 使用 RTTI 动态通过名称调用函数和设置控件属性值

//设置控件的属性名usesTypInfo,JclAnsiStrings;functionGetObject(obj:TObject;path:String):TObject;varobjName:String
subchen·2010-10-15 11:00

delphi 获取程序所在目录

delphi 获取程序所在目录:procedureTForm1.Button1Click(Sender:TObject);begin ShowMessage(ExtractFilePath(ParamStr
yewenlin·2010-10-13 20:00

swf资源文件释放.

swf"MySwf为资源标识符，可任意，RC_DATA不可改再用brcc32编译生成.res文件包含资源文件}{$资源文件名}//打开过程procedureTForm1.Button7Click(Sender:TObject
haiou327·2010-10-12 16:00

获取指定窗口句柄结束进程 OpenProcess FindWindow GetExitCodeprocess TerminateProcess

获取指定窗口句柄结束进程OpenProcessFindWindowGetExitCodeprocessTerminateProcessprocedureTForm1.Button1Click(Sender:TObject
hellsb·2010-10-09 18:00

在Delphi中如何动态更改DBGrid的颜色

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect:TRect;DataCol:
cfeers·2010-09-21 09:00

delphi中TDBGrid的使用

  procedure TMainForm.DBGrid1DrawColumnCell(Sender: TObject;const Rect: TRect; DataCol: Integer
cfeers·2010-09-21 09:00

Delphi absolute关键字

//它使得你能够创建一个新变量, 并且该变量的起始地址与另一个变量相同.procedure TForm1.btnTestClick(Sender: TObject);var  str : string
qzriso·2010-09-20 11:00

Delphi absolute关键字

//它使得你能够创建一个新变量, 并且该变量的起始地址与另一个变量相同.procedure TForm1.btnTestClick(Sender: TObject);var  str : string
qzriso·2010-09-20 11:00

Delphi开发时经常会用到窗体全屏，现找到了解决办法记录一下

Delphi开发时经常会用到窗体全屏，现找到了解决办法记录一下procedureTFrm_Main.FormCreate(Sender:TObject);begin Frm_Main.Left:=0; 
我心飞翔·2010-09-15 09:00

VCLZIP样例

procedureTForm1.FlatButton1Click(Sender:TObject);var  FilePath:String;//  numberzip:Smallint;begin  FilePath
·2010-09-10 17:00

TThread —— 线程类详解

类关系 TObject在一个多线程的应用程序中创建一个TThread的后子类代表一个线程。每一新子类的TThread对象的实例是一个新的线程。
·2010-08-30 11:00

cxGrid在内置右键菜单的后面增加菜单项并实现诸多功能

在内置右键菜单的后面增加菜单项首先应在Form上加一个cxGridPopupMenu控件以启用右键菜单UseBuildInPopupMenus设为TrueprocedureTFormItemList.FormCreate(Sender:TObject
shazhuyubaichi·2010-08-29 00:00

ArrayAdapter和BaseAdapter的区别

从名称来看Array我们可以联系到数组的很多操作，没错Android123给大家列出本类所有成员方法实用的处理方式，比如void add(Tobject) //添加一个对象到本ArrayAdaptervoid
u012123938·2010-08-26 09:00

用Delphi开发简单ActiveX控件

单击“OK”4.出现Form设计界面，这里添加一个Button和一个Edit控件5.双击Button，添加事件处理代码procedureTActiveFormX.Button1Click(Sender:TObject
longo1202·2010-08-18 10:00

Delphi 获得程序的版本号

procedureTForm1.Button1Click(Sender:TObject);var   V1,V2,V3,V4:Word; VerInfoSize:DWORD; VerInfo:Pointer
zhengbo2006·2010-08-16 09:00

delphi 从数据库 读\写 图片

usesJPEG,DB;­{写入}procedureTForm1.Button1Click(Sender:TObject);//加载图片­begin­ifopen.Executethen­begin­  
shazhuyubaichi·2010-08-10 11:00

解决Delphi截取字符串时遇到半个汉字

API来判断某字节是否在双字节字符集(例如汉字)的前导字节集中(GB2312-80汉字编码中的第一个字节范围0xA1-0xFe) procedureTForm1.Button1Click(Sender:TObject
shazhuyubaichi·2010-08-10 11:00
上一页 33 34 35 36 37 38 39 40 下一页
按字母分类： ABCDEFGHIJKLMNOPQRSTUVWXYZ其他