TObject

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

数据库中数据循环转化为字符串显示出来代码

qry1:TDataset;procedureTForm1.btn1Click(Sender:TObject);var i:integer; Field:TField;//字段类型 ole:OLEVariant
dongyonggan·2010-08-04 09:00

delphi 模仿QQ截图

Controls,Forms,Dialogs;typeTFrmCutPic=class(TForm)SaveDPic:TSaveDialog;procedureFormMouseDown(Sender:TObject
我心飞翔·2010-08-03 14:00

BCB6.0 父窗体最小化时子窗体关闭不了

重载TForm的CreateParams函数即可 void__fastcallTForm2::FormCreate(TObject*Sender){      void*Handle=MainForm-
dafan·2010-07-29 13:00

用过程辅助实现流程控制

例如： procedure TForm1.Button2Click(Sender: TObject); begin if True then Abort; procedure
恶魔圈圈·2010-07-09 15:00

待拷代码--

      procedure TGetMoneyEditForm.wwDBGrid1ColExit(Sender: TObject);begin  inherited
cqujsjcyj·2010-07-01 18:00

在接口中定义属性

Controls,Forms,Dialogs,StdCtrls;typeTForm1=class(TForm)Button1:TButton;procedureButton1Click(Sender:TObject
泡面 @ 幸福·2010-06-29 09:00

[转]Delphi继承、属性、重载

继承类名称=class（父类名称）publicprivateprotectedpublished  End;Tobject是其他所有类的最终祖先，因此如果类在声明中没有指定父类，那默认为Tobject如果有构造方法和析构方法
泡面 @ 幸福·2010-06-27 18:00

TeeChart 内置平滑函数的使用

TeeChart内置平滑函数的使用-smoothingfunction2007年09月26日星期三10:33procedureTForm1.SmoothingClick(Sender:TObject);
zhangshengqi·2010-06-25 17:27

TeeChart 内置平滑函数的使用

TeeChart内置平滑函数的使用-smoothingfunction2007年09月26日星期三10:33procedureTForm1.SmoothingClick(Sender:TObject);
zhangshengqi·2010-06-25 17:27

Delphi中N的N次方计算方法

高手飘过~~~~~~  1 procedure TForm1.Button1Click(Sender:TObject); 2   var 3 f:Real;
圣诞大叔·2010-06-23 00:00

在Pannel中嵌入一個窗體

procedureTForm1.FormShow(Sender:TObject);var frmHello:TfrmSayHello;begin frmHello:=TfrmSayHello.Create
chelen_jak·2010-06-19 14:00

創建一個簡單的Help窗體

bteVechileName->Properties->OnButtonClick事件procedureTfrmMTOBill.bteVechileNamePropertiesButtonClick(Sender:TObject
chelen_jak·2010-06-19 12:00

TSmartDBButtonEdit手動調用Help(Browse)窗體

edtNameHang->Properties->OnButtonClick事件procedureTfrmMTOBillEditor.edtNameHangPropertiesButtonClick(Sender:TObject
chelen_jak·2010-06-19 12:00

性能测试 记录时间

性能测试，记录时间代码： procedure TForm_WorkForm.Button1Click(Sender: TObject); var string; begin inherited
nydqy·2010-06-18 15:00

移动窗体自制

FOldP:TPoint;{==============================================}procedureTForm1.Image1MouseDown(Sender:TObject
eueuy·2010-06-11 10:00

准确探测进程存在否+列出所有进程

  uses TLHelp32;   procedure TForm1.Button1Click(Sender: TObject);   var  
eueuy·2010-06-11 09:00

PageControl 中 指定TabSheet 不可激活

procedure TForm1.PageControl1Changing(Sender: TObject; var AllowChange: Boolean); var FPt: TPoint
zo1698·2010-06-09 09:00

C++学习笔记

--关于-----(弹出窗口name=AboutBox)-----------------------------------void__fastcallTMainForm::About1Click(TObject
urlem·2010-05-30 07:46

C++学习笔记

--关于-----(弹出窗口name=AboutBox)-----------------------------------void__fastcallTMainForm::About1Click(TObject
urlem·2010-05-30 07:46

CheckListChange多选互斥事件的运用

在实际业务中，存在多选框，当选择‘无’的时候其他的框是不能选择的，当选择其他的时候‘无’的选项要自动清除，方法如下： procedure TForm.CheckListBoxChange(Sender: TObject
nydqy·2010-05-20 13:00

Delphi 中如何初始化事件

首先在窗体FormShow事件里面添加过程， procedure TBaseForm.FormShow(Sender: TObject); begin inherited; initComboxData
nydqy·2010-05-18 13:00

Delphi 中 "位" 的使用(3) - TBits

TBits 直接继承自 TObject, 它只扩充出 2 个属性、1 个方法: TBits.Size //需要使用的 "位" 数 TBits.Bits[] /
·2010-05-07 22:00

VCL组件的属性和方法详解(3)

例子：procedureTform1.Button1Click(Sender:Tobject);begin//Invalidat
sforiz·2010-05-07 16:00

VCL组件的属性和方法详解(1)

一、TApplication继承关系：TObject→TPersistent→TComponentTApplication组件的属性:ActiveAllowTestingDialogHandleExeNameHandleHelpFileHintHintColorHintHidePauseHintPauseHintShortPauseIconMainFormShowHintShowMainFormT
sforiz·2010-05-07 16:00

Delphi 中Md5获取（Indy 9）

示例代码procedureTForm1.Button1Click(Sender:TObject);varMy
sforiz·2010-05-06 22:00

VCL组件属性和方法详解

TApplication                                                                                     继承关系：TObject
sforiz·2010-05-06 21:00

delphi报警声音 Beep、MessageBeep 和 Windows.Beep

我的办法，增加一个timer设置间隔100ms，通过timer的使能否，控制报警声音开关procedureTForm1.Timer1Timer(Sender:TObject);begin  Windows.Beep
yunqian09·2010-05-04 09:00

Int64 与 Currency

procedure TForm1.Button1Click(Sender: TObject); var c: Currency; i: Int64 absolute c; begin
·2010-05-03 23:00

TScreen类

类关系TObject->TPersistent->TComponentTScreen引进具有表示下列各种情况的属性什么窗体和数据模块已经被应用程序实例化。激活窗体以及在窗体内激活的控件。
Tercel99·2010-04-29 00:00

delphi全屏顯示Form的兩種方法

{MakeyourapplicationFullScreen.Disableallofthesystemkeys.}procedureTForm1.FormCreate(Sender:TObject);
Avan_Lau·2010-04-27 10:00

Delphi 下的RTTI

===========================⊙RTTI简介⊙类(class)和VMT的关系⊙类(class)、类的类(classofclass)、类变量(classvariable)的关系⊙TObject.ClassType
zyyjc·2010-04-25 18:00

将 4 个 Byte 合成 1 个 Integer 的五种方法 - 回复 "三足乌" 的问题

del/archive/2010/04/21/1717584.html#1809298 //方法 1: 共用内存 procedure TForm1.Button1Click(Sender: TObject
·2010-04-24 16:00

Delphi ADOQuery连接数据库的查询、插入、删除、修改

//查询记录 procedure TForm1.Button1Click(Sender: TObject);beginADOQuery.Close;ADOQuery.SQL.Clear;ADOQuery.SQL.Add
Callan·2010-04-19 19:00

Delphi ADOQuery连接数据库的查询、插入、删除、修改

//查询记录 procedure TForm1.Button1Click(Sender: TObject);beginADOQuery.Close;ADOQuery.SQL.Clear;ADOQuery.SQL.Add
Callan·2010-04-19 19:00

Delphi 打开文件夹方法

第一种方法,使用SelectDirectory函数,在ShellApi中procedureTForm2.BtSelectPathClick(Sender:TObject);var   strCaption
wzq9706·2010-04-13 05:00

随机数

varaa:array[1..36]ofstring[2];//aa数组为需要随机排列的数组，{先把1..36按顺序给aa数组赋值}procedureTForm1.FormCreate(Sender:TObject
sforiz·2010-04-11 10:00

bpl插件系统开发(2)

方法让容器和插件能够交互数据.IPlugin=interface       ['{48BF4000-B028-4B57-9955-B1A8305DA394}']       functionGetRunResult:TObject
qiume·2010-04-08 22:00

THashedStringlist 应用实例

Dialogs,StdCtrls,IniFiles,Buttons;typeTForm1=class(TForm)BitBtn1:TBitBtn;procedureButton1Click(Sender:TObject
qiume·2010-04-05 10:00

Delphi 登录窗体

procedureTMainForm.FormCreate(Sender:TObject);varLoginForm:TfrmLogin;beginApplication.ShowMainForm:=False
qiume·2010-04-02 20:00

Hibernate DAO的具体实现

阅读更多定义BaseDAO:(增/删/改/查单个/查集合/查集合2)publicinterfaceBaseDAO{voidadd(Tobject);voiddelete(Classclazz,Serializableid
lyqidao·2010-04-02 13:00

Delphi留下记忆

constSELDIRHELP=1000;//目录选择procedureTForm1.SpeedButton1Click(Sender:TObject);vardir:String;begin  dir
amaryh·2010-03-30 17:00

Access，Paradox数据库备份恢复

Access://数据备份（创建一个新的备份文件）procedureTMainForm.BitBtn1Click(Sender:TObject);var   F:TShFileOpStruct;   DataBackupFileName
sunnyzjj·2010-03-26 13:20

Access，Paradox数据库备份恢复

Access://数据备份（创建一个新的备份文件）procedureTMainForm.BitBtn1Click(Sender:TObject);var   F:TShFileOpStruct;   DataBackupFileName
sunnyzjj·2010-03-26 13:20

Access，Paradox数据库备份恢复

Access://数据备份（创建一个新的备份文件）procedureTMainForm.BitBtn1Click(Sender:TObject);varF:TShFileOpStruct;DataBackupFileName
sunnyzjj·2010-03-26 13:20

Delphi相关进程与文件操作(PsAPI)

///////////////////////////(1)显示进程列表：///////////////////////////procedureTForm1.Button2Click(Sender:TObject
sunnyzjj·2010-03-26 11:11

Delphi相关进程与文件操作(PsAPI)

///////////////////////////(1)显示进程列表：///////////////////////////procedureTForm1.Button2Click(Sender:TObject
sunnyzjj·2010-03-26 11:11

rzlistview1用法

procedureTForm1.Button1Click(Sender:TObject);begin withrzlistview1do begin   Columns.Add;   Columns.Add
zhangshengqi·2010-03-24 10:15

Delphi中使用TXMLDocument控件应注意的问题

但是却遇到了非常奇怪的问题，下面分享一下procedureTMainForm.Button1Click(Sender:TObject);Var XML:TXMLDocument; I:Integer;begin
chaijunkun·2010-03-23 13:00
上一页 34 35 36 37 38 39 40 41 下一页
按字母分类： ABCDEFGHIJKLMNOPQRSTUVWXYZ其他