TObject

BYTE 转字符串

  BYTE转字符串来源：http://blog.csdn.net/pgnet/article/details/4640371procedureTForm3.FormCreate(Sender:TObject
chelen_jak·2012-03-01 13:00

Delphi 的消息机制浅探一

在读完TObject、TPersistant和TComponent的代码之后，我发现还是不清楚Delphi对象到底是怎样被创建的。
rosehacker2010·2012-02-24 17:10

delphi数据库定位getbookmark

procedureTincasement.Button2Click(Sender:TObject);vari:integer;   bm:pointer;beginif(messagedlg('确定要取消出箱吗
beyondqd·2012-02-23 15:00

DelphiXE 显示GIF动画

usesGIFImg;procedureTForm1.FormCreate(Sender:TObject);begin //先在窗体上放一个TImage组件：Image1； Image1.Picture.LoadFromFile
shuaihj·2012-02-14 15:00

一个比较全的C++农历算法

tid=2928  void__fastcallTForm1::Button1Click(TObject*Sender) { xDate*Date_x=newxDate();//取系统时间初始化-:
zhao_yin·2012-02-11 20:00

QT Embedded-----QObject:元对象、signal/slot机制

通常一个类库都会有一个类做为所有类的根类，MFC有CObject，Borland的OWL有TObject,java也有一个object。对于QTEmbedded来说，这个类就是QObject。
yangyunfeizj·2012-02-07 09:00

字符串相互转字符数组 string byte 数组 array of byte

 {转换TBytes到Integer} procedureTForm1.Button1Click(Sender:TObject); var bs:TBytes;{TBytes就是Byte的动态数组
chinazhd·2012-01-31 23:00

delphi 获取ODBC DSN名称

procedureTForm1.Button3Click(Sender:TObject); Var reg:TRegistry; Begin reg:=TRegistry.Create; WithregDo
anyqu·2012-01-04 16:00

Delphi中ClientDataSet的数据查找

1.Scanning 扫描数据查找这是最简单最直接也是最慢的一种方法，遍历所有数据：procedure TForm1.ScanBtnClick(Sender: TObject);varFound: Boolean
jsrgren·2012-01-03 19:00

批量充优惠券到会员卡

实现批量充优惠券到会员卡中，其中先从ACCESS数据库中取需要充值的会员卡，再使用BDE连接SYBASE数据库，进行操作：一、DELPHI代码：procedureTForm1.btn2Click(Sender:TObject
klick·2011-12-29 16:43

批量充优惠券到会员卡

实现批量充优惠券到会员卡中，其中先从ACCESS数据库中取需要充值的会员卡，再使用BDE连接SYBASE数据库，进行操作：一、DELPHI代码：procedureTForm1.btn2Click(Sender:TObject
klick·2011-12-29 16:43

Delphi 中的自动释放策略

//usesVcl.StdCtrls,Vcl.ExtCtrls; var  panel:TPanel; procedureTForm1.Button1Click(Sender:TObject
rosehacker2010·2011-12-29 13:13

如何设定按钮是否可用

方法1：运用TSmartEditor.OnSetActionEnabled事件procedureTfrmPIBill.SmartEditor1SetActionEnabled(Sender:TObject
chelen_jak·2011-12-19 16:00

Delphi中比较两个对象是否一致及地址是否相同

procedureTForm1.btn1Click(Sender:TObject);var   p1:  Pointer;   p2:  Pointer;begin   if  TObject(btn1
diligentcat·2011-12-16 13:00

delphi edit 只输入数字 只输入字母

限制为只接收数字的例程如下：procedureTForm1.Edit1KeyPress(Sender:TObject;var..Key:Char);beginifnot(keyin['0'..'9',#8
beyondqd·2011-12-15 18:00

Application.ProcessMessages

procedure TForm1.Button1Click(Sender: TObject); var i: Integer; begin for i := 0 to MaxInt do
jsrgren·2011-11-30 15:00

StringGrid类详解

事件句柄 1.StringGrid1GetEditText(Sender: TObject; ACol, ARow: Integer; var Value: string); Options.goEditing
soboer·2011-11-30 12:00

Delphi DBGrid中嵌套按钮

 procedureTManageProjForm.dbgrdhProjectDrawColumnCell(Sender:TObject; constRect:TRect;DataCol:Integer
xiongmao000738·2011-11-26 12:00

Delphi access violation

源程序：procedureTForm1.FormCreate(Sender:TObject);begin  form2.Show;end; 原因：一般情况下不能在主窗体创建的时候show另一个窗体，因为这个窗体还没有被创建
wangweixaut061·2011-11-17 15:00

terrier:异常

gzjava.lang.OutOfMemoryError:Javaheapspacejava.lang.OutOfMemoryError:Javaheapspaceatgnu.trove.TObjectIntHashMap.rehash(TObject
xiaoxinzi040688·2011-11-16 20:00

Delphi文件拖放示例

Forms,Dialogs, shellapi,StdCtrls;type TForm1=class(TForm)   Memo1:TMemo;   procedureFormCreate(Sender:TObject
diligentcat·2011-11-09 16:00

ping .

使用usesping;procedureTForm1.Button1Click(Sender:TObject);varstr:string;ping:
beyondqd·2011-11-08 13:00

delphi 让ScrollBox响应鼠标滚轮事件

Delphi7中ScrollBox控件是不响应鼠标滚轮事件的，让其响应鼠标滚轮方法如下：procedureTForm1.FormMouseWheel(Sender:TObject;Shift:TShiftState
beyondqd·2011-11-08 13:00

Delphi-varArrayCreate矩阵列数组使用记录

Integer;AVarType: TVarType): Variant; 引用单元:Variants.pas procedure TForm1.Button1Click(Sender: TObject
qson·2011-11-07 17:00

[Delphi]Delphi监控键盘鼠标的程序

Classes,Graphics,Controls,Forms, Dialogs,StdCtrls; type TForm3=class(TForm) procedureFormCreate(Sender:TObject
dragonszy·2011-11-06 18:00

delphi控制excel大全

包括合并execl单元格，加入分页符号，设置行高，列宽，设置execl页头，设置每页记录数，画单元格边框，调用execl模板等等procedureTfrmMain.Button3Click(Sender:TObject
beyondqd·2011-10-31 15:00

delphi 根据EXCEL模板创建

Forms,Dialogs,StdCtrls,comobj;typeTForm1=class(TForm)   Button1:TButton;   procedureButton1Click(Sender:TObject
beyondqd·2011-10-31 11:00

带有输出参数的存储过程

count(*)fromemployeeswherepusercode=@abcreturnGO如何提取参数procedureTFrm_worker_info.Button1Click(Sender:TObject
beyondqd·2011-10-31 11:00

delphi控件使用

.* 举例，界面设计如下左，执行结果如下右：   代码为 procedure TForm1.Button1Click(Sender: TObject); begin edit1.Text
jsrgren·2011-10-27 11:00

Delphi中使用私有字体

procedure TForm1.FormCreate(Sender: TObject);begin  AddFontResource(PChar(ExtractFilePath(ParamStr(0)
wbryfl·2011-10-25 17:00

Delphi打开网址链接的几种方法

Delphi打开网址链接的几种方法 ： 1： 用默认浏览器打开, uses shellapi procedure TForm1.Button2Click(Sender: TObject
buliedian·2011-10-25 16:00

Delphi打开网址链接的几种方法

Delphi打开网址链接的几种方法：1：用默认浏览器打开,usesshellapiprocedureTForm1.Button2Click(Sender:TObject);beginShellExecut
zhongguoren666·2011-10-25 16:00

从屏蔽QQ登录输入框温习几个c++函数

从屏蔽QQ登录输入框温习几个c++函数 先看c++builder的代码： void__fastcallTForm1::FormCreate(TObject*Sender) { HWNDhCurWindow
yeahhook·2011-10-25 11:00

Delphi中如何使用 MSXMLDOM

首先需要usesmsxml,msxmldom然后看使用：procedureTFormPatientTemplate.Button1Click(Sender:TObject);var xmlString:
xt_chaoji·2011-10-20 17:00

Registry

uses Registry; procedureTForm1.FormCreate(Sender:TObject); var Reg:TRegistry; begin reg:=Tregistry.Create
haiou327·2011-10-18 23:00

sybase 导出DDL语句以及ddlgen的描述

工具路径：%sybase%/ASEP/bin注：%sybase%为客户端安装目录语法：ddlgen-Uusername-Ppassword-Sserver–Ddbname–Tobject_type–Nobject_name-T
xujinyang·2011-10-13 18:00

Delphi XE2 之 FireMonkey 入门(34) - 控件基础: TFmxObject: 克隆对象

procedure TForm1.FormCreate(Sender: TObject); var i: Integer; begin fo
·2011-10-05 19:00

Delphi 按Esc快捷键退出程序的简单方法

 第一种方法：在窗体上放一个按钮：1>、设置按钮的Cancel属性为True；2>、在按钮的点击事件中写：procedureTForm1.btn1Click(Sender:TObject);begin 
xiongmao000738·2011-09-27 17:00

Delphi 菜单的应用（系统菜单添加一项、主菜单增加历史记录、弹出菜单的动态合并、菜单中画图、显示状态）

一、往系统菜单中添加菜单项//1、在FormCreate中往系统菜单中添加自己的菜单procedureTForm1.FormCreate(Sender:TObject);var i:integer;begin
xiongmao000738·2011-09-26 09:00

Delphi 设置窗体的属性（最前端显示、淡入淡出效果、滑动效果）

 //1、淡入淡出效果、滑动效果procedureTForm1.FormShow(Sender:TObject);begin //AW_SLIDE：滑动类型 ；AW_BLEND：为淡入淡出效果 //AW_HOR_POSITIVE
xiongmao000738·2011-09-23 17:00

Delphi 根据图片或者文字制作特殊的窗体

 一、根据图片制作特殊的窗体1、在FormCreate中计算窗体的不规则区域procedureTForm1.FormCreate(Sender:TObject);var ThreadRgn,TmpRgn
xiongmao000738·2011-09-23 12:00

知识储备

procedureTForm1.Button8Click(Sender:TObject);var  Cl,Ch,crc16Hi,Crc16Lo:byte;  savehi,savelo:byte;  flag
panpeng666·2011-09-22 12:19

Delphi 自定义窗体（最大化、最小化、关闭、窗体的移动）

UsesShellAPI; 1、//最小化procedureTForm1.btn1Click(Sender:TObject);var I,J,X,Y:Word;begin //第一种：最小化在屏幕的左下角
xiongmao000738·2011-09-19 15:00

delphi 实现无窗口移动

 procedureimgListMouseDown(Sender:TObject;Button:TMouseButton; Shift:TShiftState;X,Y:Integer);private
严武·2011-08-31 15:00

delphi调用C# Webservice返回数据集

yangchchMsnprocedureTForm1.Button1Click(Sender:TObject);varIService:DataSetWebServiceSoap;beginIService
beyondqd·2011-08-23 15:00

Delphi中IdTcpServer 用户掉线检测方法

当登陆用户异常掉线并不会通知服务器，这时服务器一直以为用户在线，解决这种问题有以下两种方法：一、轮训检测连接情况，需要Timer轮训检测，如下代码： procedure TMainForm.Timer1Timer(Sender: TObject
znhyz1·2011-08-10 21:00

Delphi中ClientDataSet的数据查找

1.Scanning 扫描数据查找这是最简单最直接也是最慢的一种方法，遍历所有数据：procedure TForm1.ScanBtnClick(Sender: TObject);varFound: Boolean
znhyz1·2011-08-09 20:00

RO 本地sql动态指令检索使用方法

procedureTForm1.btn3Click(Sender:TObject);varlDataSet:IDADataSet;lConnection:IDAConnection;stream:Binary
·2011-08-09 15:00

ADOTAble中进行查询删除操作

 procedureTForm1.Button1Click(Sender:TObject); var newstring:string; begin inputQuery('输入查询条件','姓名为
haiou327·2011-08-03 12:00

Ansistring转换

Ansistring转char代码:void__fastcallTForm1::Button1Click(TObject*Sender){   AnsiStringTest="哈哈";   char*chr
278261631·2011-07-29 15:00
上一页 31 32 33 34 35 36 37 38 下一页
按字母分类： ABCDEFGHIJKLMNOPQRSTUVWXYZ其他