TObject 第7页

VCL组件开发

4.1TObject分支下面几部分分别对包含于五个主要分支中的类做出简要地描述，为完整地说明VCL对象的分层结构，引用了包含于产品中的VCL对象分层结构图。

ghevinn·2020-07-27 22:13

在代码中调用程序版本信息【C++ Builder下例子】

structTTranslate{WORDwLanguage;WORDwCodepage;};void__fastcallTAboutBox::FormCreate(TObject*Sender){DWORDdwHandle

blackboycpp·2020-07-27 19:58

Delphi关于RadioButton的按键事件与再次点击时取消选中

全局变量rbc：string；//记录点击时RadioButton1的checked状态procedureTForm1.RadioButton1MouseDown(Sender:TObject;Button

NowMore_Guo·2020-07-27 16:18

#define _OBJ_CONTAINER_LIST_INIT(c)

rt_object_container[c].object_list)}structrt_object_information{enumrt_object_class_typetype;rt_list_tobject_list

KYYK·2020-07-27 16:06

delphi 内存管理，定期释放

//调用procedureTfmMain.Timer1Timer(Sender:TObject);beginTClearMemory.Create(False);end;ClearMemoryThread

EricTsui·2020-07-27 15:05

ListBox 添加横向滚动条

当然,可以在列表框中加如水平滚动条，方法是在窗体的OnCreate事件处理程序中加入如下代码：procedureTForm1.FormCreate(Sender:TObject);vari,MaxWidth

落幕年代·2020-07-16 01:32

Delphi7文件操作常用函数一

procedureTForm1.Button1Click(Sender:TObject);vartext:String;F1:TextFile;beginTryAssi

kimifdw·2020-07-16 01:32

IntToStr

void__fastcallTForm1::Button1Click(TObject*Sender){try{Form1->Caption=IntToStr(StrToInt(Edit1->Text)*

weixin_30342827·2020-07-15 02:20

Delphi开发技巧：字符串的相关判断

图5.10判断某一字符是否在字符串中主要代码如下：procedureTForm1.Button1Click(Sender:TObject);vari,p:Integer;beginif(Edit1.Text

踏雪无痕·2020-07-12 15:06

使用Insert方法插入记录

procedureTForm1.InsertBtn1Click(Sender:TObject);beginRenYuanQuery.Insert；RenYuanQuery.FieldValues['xm

niochen·2020-07-11 09:40

Delphi检测字符串中是否包含汉字

procedureTMainForm.Button1Click(Sender:TObject);varstr:string;pStr:PWideChar;isHZ:Boolean;i,s,m:Integer

hncsl·2020-07-11 07:34

Delphi判断字符是否中文

//mbSingleByte单字母//mbLeadByte双字节第一位//mbTrailByte双字节第二位//procedureTForm1.Button2Click(Sender:TObject);

chelen_jak·2020-07-11 03:12

【安卓笔记】ArrayAdapter删除item注意事项

下面是其源码：publicvoidremove(Tobject){synchronized(mLock){if(mOriginalValues!

rowandjj·2020-07-10 23:23

Delphi 单例模式

(*单例模式适用于辅助类,一般伴随于单元的生命周期*)interfaceusesSysUtils;typeTSingleton=classpublicclassfunctionNewInstance:TObject

simonhehe·2020-07-10 02:57

关于TMemoryStream类

TMemoryStream的继承关系如下TObject|TStream|TCustomMemoryStream|TMemoryStream如何使用TMemoryStream?

kougq819·2020-07-09 18:40

让delphi程序不受WINDOWS日期格式的影响

WINDOWS系统的短日期格式为“yyyy/m/d”，执行下面的代码会报错：2013-01-2900:00:00不是合法的日期procedureTFrmQuerySale.FormShow(Sender:TObject

cmx8818·2020-07-09 14:35

BCB中如何实现控件半透明

void__fastcallTForm1::FormActivate(TObject*Sender){longwsex=::GetWindowLongPtr(Handle,GWL_EXSTYLE

Y___Y·2020-07-09 12:31

Delphi中打开网页连接的几种方法

Delphi打开网址链接的几种方法：1：用默认浏览器打开usesshellapiprocedureTForm1.Button2Click(Sender:TObject);beginShellExecut

紫松哥哥·2020-07-09 06:03

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

tid=2928void__fastcallTForm1::Button1Click(TObject*Sender){xDate*Date_x=newxDate();//取系统时间初始化-:)Memo1

大酋长·2020-07-09 05:04

AnsiString和各种数据类型间相互转换 [数据转换]

//Ansistring转charvoid__fastcallTForm1::Button1Click(TObject*Sender){AnsiStringTest="哈哈";char*chr=Test.c_str

weixin_30376453·2020-07-08 13:01

pchar string

procedureTForm3.Button1Click(Sender:TObject);vars:char;a:pchar;//a:string;begins:='a';//这里是一个字符CHAR，如

netppp·2020-07-08 04:59

取的Combobox中的所选择项的值

但是仔细研究delphi的combobox对象发现了以下的解决方法：新建一个类，存储我们需要的数据：TItemEx=class(TObject)

newsunet·2020-07-07 18:52

Ansistring 使用大全

//Ansistring转charvoid__fastcallTForm1::Button1Click(TObject*Sender){AnsiStringTest="哈哈";char*chr=Test.c_str

helmsgao·2020-07-07 12:37

用配置文件设置服务端数据库连接和端口号，服务端的URL地址

//在ro的服务端写入如下代码，从ini配置文件读取数据库连接，设置端口号procedureTServerDataModule.DataModuleCreate(Sender:TObject);varaExePath

cydenghua·2020-07-07 06:23

word文件传入和传出数据库

usesIdGlobal;procedureTdjhyForm.SpeedButton2Click(Sender:TObject);varsfilename:string;functionBlobContentTostring

weixin_33968104·2020-07-06 19:26

编写“线围棋”程序-1-画棋盘

顾名思义,线棋盘就是一根直线上均匀画上交叉点,就是取真正围棋盘上的一根线.线画个看看,程序就是这样的拉:procedureTForm1.FormPaint(Sender:TObject);vari:Integer

王爷的大房子·2020-07-06 19:46

一个C++农历类

.即可以在VC里用,也可以在C++Builder里用..所以一并放到这里来,希望有人喜欢..喜欢的就给点鼓励啊~~示例代码:代码:void__fastcallTForm1::Button1Click(TObject

baickl·2020-07-06 16:35

Webbrowser控件屏蔽各种弹出

1、屏蔽弹出脚本错误控件Silent配置为true2、屏蔽alert弹出procedureTMainForm.wb1NewWindow2(ASender:TObject;varppDisp:IDispatch

Yoie·2020-07-06 11:00

(7): 建立一个空的 Wave 文件(三种方法)

,Variants,Classes,Graphics,Controls,Forms,Dialogs;typeTForm1=class(TForm)procedureFormCreate(Sender:TObject

xiangyu5945·2020-07-06 08:26

vmp

下面的例子中定义license文件是test.licdemo.for.unpackcn.rar(35.95KB,下载次数:66)例子主要代码如下：procedureTForm1.FormCreate(Sender:TObject

weixin_30570101·2020-07-05 21:58

Delphi 调用Zint 实现二维码功能

procedureTForm1.Button1Click(Sender:TObject);var//dll指针地址mydll:PZSymbol;//画布g:TBitmap;//用来接收的字符串astr:

爱蹄子的羊头·2020-07-05 19:16

delphi 数据库读取jpg文件流

具体代码如下：procedureTfrm_cztz.Image1Click(Sender:TObject);//image1控件单击调入图像varmyjpeg:TJPEGImage;

ozhy111·2020-07-05 01:24

Delphi向Word导出数据

最近客户要求将数据导出到word,查找了一些源代码后做出来了.先将方法共享出来.希望对大家有用.procedureTFrmWeekAnalysisQry.BtnExportToExcelClick(Sender:TObject

henreash·2020-07-04 17:20

利用TIdHttp实现文件下载的分块断点续传

procedureTForm3.RzButton1Click(Sender:TObject);

Arbin·2020-07-04 11:44

IsLeapYear、IsInLeapYear - 是否是闰年

Classes,Graphics,Controls,Forms, Dialogs,StdCtrls;type TForm1=class(TForm) procedureFormCreate(Sender:TObject

再创世纪·2020-07-04 10:38

delphi shr shl 位移运算

procedureTForm5.Button1Click(Sender:TObject);constw1:Word=101;varw:Word;beginw:=w1shr3;ShowMessage(IntToStr

aldsot0997·2020-07-04 10:25

delphi XE模拟Android手机PDA设备的虚拟键盘按键及扫码过程输入焦点及信号接收

一、直接上代码示例1、屏蔽应用Terminated；如果按了虚拟键:返回键；如果按了物理菜单键procedureTfmxTestGYListview1.FormKeyUp(Sender:TObject;

pulledup·2020-07-02 14:34

[delphi]ComboBox实现显示文本与值不同的方法

1.通过两个ComboBox组件来实现演示图：procedureTForm1.FormCreate(Sender:TObject);begincbb1.item

怪才·2020-07-02 13:32

发现C++Builder 2010集合类的一个BUG

最后确定应该是集合类源代码的问题，下面是一段集合类的测试代码：enumTTest{tt0,tt15=15,tt16=16};typedefSetTTests;void__fastcallTForm1::Button1Click(TObject

阿发伯·2020-07-02 11:08

正确关闭一个MDI子窗口

解决办法是在子窗口的OnClose事件处理过程中加入如下代码，示例：procedureChildForm.OnClose(Sender:TObject;varAction:TCloseAction);beginAction

longxin5·2020-07-02 09:51

delphi自带Tmediaplayer控件循环播放

StartRecording、Step或Stop等)执行结束时触发事件OnNotify.通过OnNotify实现循环播放procedureTForm5.MediaPlayer1Notify(Sender:TObject

liuliu0103·2020-07-02 09:00

Delphi中绘制圆角矩形的窗体

制作圆角矩形的窗体：01.procedureTPortForm.FormCreate(Sender:Tobject);02.varhr:thandle;03.begin04.hr:=createroundrectrgn

iseekcode·2020-07-02 04:33

在delphi根据TshiftState值来判断用户按下Ctrl,shift,alt等键的方法

procedureTForm1.FormMouseDown(Sender:TObject;Button:TMouseButton;Shift:TShiftState;X,Y:Integer);beginifssCtrlinshiftthenShowMessage

fjclc2008·2020-07-02 00:29

利用WebBrowser自动填写网页上的表单

procedureTForm1.db_writeClick(Sender:TObject);varo:oleVariant;err,js:string;i:integer;constmz:array[1

fengshileick·2020-07-01 23:26

Delphi中实现文件拷贝的三种方法（收藏）

lpExistingFileName,lpNewFileName:PChar;bFailIfExists:BOOL):BOOLprocedureTFrmMain.Button1Click(Sender:TObject

chinmusam·2020-07-01 20:10

Delphi xe5 firemonkey关闭应用程序

通过关闭函数无法结束程序，使用Application.Terminate均无效，调整为：usesFMX.Platform.Android;procedureTForm2.SpeedButton1Click(Sender:TObject

Syndicater·2020-07-01 13:55

delphi使用VMProtectSDK的激活码远程激活软件(客户端代码)

procedureTForm1.btn1Click(Sender:TObject);Varcode:string;serial:array[0..1024*4-1]ofAnsiChar;nRet,nState

wqc159·2020-06-29 20:21

delphi中关于时间差的实例

多少秒，查了一下资料，整理如下：首先usesdateutils;先自己做了个实例，相关代码如下：代码usesdateutils;procedureTForm1.Button1Click(Sender:TObject

weixin_34167819·2020-06-28 12:05

鼠标的获取和信息的识别

procedureTForm1.btnClick(Sender:TObject);varbmp:TBitmap;hCur:TCursorInfo;begin//ffffff-e2e2e2cur:=TIcon.Create

weixin_34122604·2020-06-28 11:59

创建一个文字窗体

文字窗体代码procedureTForm1.btn1Click(Sender:TObject);varrgn:HRGN;beginSelf.Color:=clBlue;BeginPath(Canvas.handle

weixin_33910759·2020-06-28 07:34

推荐频道

TObject