TObject

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

先编写一个循环50000次的程序，每次在程序界面左上方（10,10）的位置输出数字，代码如下：1procedureTForm1.btn2Click(Sender:TObject);2var3i:Integer
pchmonster·2022-02-24 23:00

FreeAndNil - C++ Builder

C++Builder参考手册➙System::Sysutils➙FreeAndNil释放从TObject继承过来的类的对象，并清为NULL头文件：#include命名空间：System::Sysutils
玄坴·2022-01-17 21:49

TEncoding - C++ Builder

➙TEncoding所有字符编码类的父类，可以通过这个类的静态属性直接访问几个常用的编码简介成员•属性•方法例子一.System::Sysutils::TEncoding简介继承关系：System::TObject
玄坴·2022-01-07 10:17

C++ Builder 的反射 (二) - Reflection Factory

C++Builder参考手册➙C++Builder的反射(二)-ReflectionFactory上一篇文章C++Builder的反射(Reflection)(一)介绍了从TObject继承的类的反射方法
玄坴·2021-11-27 10:43

C++ Builder 获取任意一个类或对象的类名

前面两篇都是关于从TObject继承的类的反射，那么其他类到底和TObject继承的类有什么不同？又是因为什么影响了其他类的反射？
玄坴·2021-11-27 10:58

delphi绘图

procedureTForm1.Button3Click(Sender:TObject);varflag:integer;FixRect:TRect;no:string;beginPaintBox1.Canvas.Brush.Color
风语007·2021-05-12 17:17

2018-11-28 反转字符串

procedureTForm1.Button1Click(Sender:TObject);vars,m:string;i:Integer;begins:='abcdefg';m:='';fori:=1toLength
delphixe·2021-05-03 06:51

再谈Delphi 10.4.2 FMX应用程序事件TApplicationEvent

TApplicationEvent直接上个以前的测试代码，一看就明白：functionTfmxMainUI.AppEvent(AAppEvent:TApplicationEvent;AContext:TObject
pulledup·2021-04-25 13:32

2018-11-27 IdHTTP1.Get nethttp

procedureTForm2.Button1Click(Sender:TObject);varm,n:string;a:TstringStream;begina:=TstringStream.Create
netppp·2020-10-31 18:25

『ios』GCD补习 dispatch_set_target_queue 小结

//第一个参数是要执行变更的队列（不能指定主队列和全局队列）//第二个参数是目标队列（指定全局队列）dispatch_set_target_queue(dispatch_object_tobject,dispatch_que
butterflyer·2020-09-26 10:14

Delphi判断文件夹（目录）是否存在，不存在就创建的办法

procedureTForm1.Button1Click(Sender:TObject);beginifnotFileExists(Edit1.Text)then//ifnotDirectoryExists
紫松Win·2020-09-17 14:23

DELPHI中使用Tlist类的简单分析

procedureTForm1.Button1Click(Sender:TObject);const//黑桃,红桃,方块,草
weixin_34342578·2020-09-17 13:15

SelectDirectory在Delphi中定位文件夹位置

//SelectDirectory在Delphi中定位文件夹位置procedureTForm1.Button1Click(Sender:TObject);//直接定位文件'打开一个文件beginOpenDialog1
weixin_30360497·2020-09-17 13:59

delphi 文件路径操作

System.IoUtilshttps://www.cnblogs.com/cause/p/3500100.html--------遍历文件----procedureTForm1.Button4Click(Sender:TObject
ozhy111·2020-09-17 12:38

关于Delphi中二维数组的声明和大小调整

这是一个实例：procedureTMainForm.Button1Click(Sender:TObject);vararr:arrayofarrayofstring;beginsetlength(arr
Jack_Chai·2020-09-17 11:02

Delphi 打开文件夹方法

第一种方法,使用SelectDirectory函数,在ShellApi中procedureTForm2.BtSelectPathClick(Sender:TObject);varstrCaption,strDirectory
几百人在爱·2020-09-17 10:44

UGopen二次开发获得对象信息，包括所在的层、颜色、隐藏状态、线宽、线型、高亮显...

//获得对象信息tag_tobject;UF_OBJ_disp_props_sdispprops;UF_OBJ_ask_display_properties(object,&dispprops);//这些信息都保存在结构体
NX胡君·2020-09-17 10:51

ShellExecuteEx 获取文件属性

功能说明：获取文件属性usesShellApi;procedureTForm1.Button1Click(Sender:TObject);varfilename:string;sei:TShellExecuteInfo
weixin_30756499·2020-09-17 10:35

delphi之选择文件夹路径、选择文件路径

一、OpenDialog选择文件路径procedureTForm4.but2Click(Sender:TObject);varChoBak:TOpenDialog;beginChoBak:=TOpenDialog.Create
若水三千,只取一瓢·2020-09-17 10:13

IdUDPServer和IdUDPClient 实现数据通信

5200端口===============================================================procedureTForm1.FormCreate(Sender:TObject
缘中人·2020-09-17 10:48

delphi调用选择目录对话框

注意引用Filectrl单元useFilectrl;procedureTForm1.Button1Click(Sender:TObject);varDir:String;beginSelectDirectory
一剑平江湖·2020-09-17 10:21

进程 等待 关闭 ShellExecuteEx WaitForSingleObject

void__fastcallTForm1::Button1Click(TObject*Sender){SHELLEXECUTEINFOsei;ZeroMemory(&sei,sizeof(SHELLEXECUTEINFO
缘中人·2020-09-17 10:29

正确格式化日期、时间

用VCL内置的ShortDateFormat和ShortTimeFormat：procedureTForm1.Button1Click(Sender:TObject);vardt:TDateTime;begindt
qiume·2020-09-17 09:31

delphi 还原窗口

1.格局还原procedureTFrmStyleProp.btnNewClick(Sender:TObject);//声明variniFile:TIniFile;idx:integer;ctrl:TControl
weixin_30443747·2020-09-17 00:33

delphi 如何比较两个二维数组是否相等

--------------------------------------------------------{对比静态数组}procedureTForm1.Button1Click(Sender:TObject
小新新_88·2020-09-16 18:39

Delphi比较二维数组是否一样

{对比静态数组}procedureTForm1.Button1Click(Sender:TObject);vararr1:array[0..3]ofAnsiChar;arr2:array[0..3]ofByte
天行健2005·2020-09-16 18:00

切割字符串，给一个字符串中逗号分隔的元素，加引号的小技巧

beginResult:=''''+StringReplace(astr,',',''',''',[rfReplaceAll])+'''';end;procedureTForm4.Button1Click(Sender:TObject
weixin_30265171·2020-09-16 10:55

delphi DBGRID TITLE CAPTION 標題與寬度

procedureTFrm_Wip_Bom.BomBtnClick(Sender:TObject);begin//獲取BOM數據Screen.Cursor:=crSQLWait;//鼠標變成漏鬥。
cuiweigk19423·2020-09-16 01:23

用BCB读写文本文件及ini配置文件

读写文本文件//--写入文本文件//----------------------------------------------------void__fastcallTForm1::Button1Click(TObject
特招·2020-09-15 22:27

Delphi窗体的隐藏和显示

Graphics,Controls,Forms,Dialogs,ExtCtrls;typeTForm1=class(TForm)Timer1:TTimer;procedureTimer1Timer(Sender:TObject
csid_502·2020-09-15 12:50

把窗体中所有的Button的Enabled置为False

把窗体中所有的Button的Enabled置为FalseprocedureTForm1.FormCreate(Sender:TObject);varindex:integer;beginForIndex
seagull327·2020-09-15 04:56

猴子选王问题答案

Delphi之解：procedureTForm1.Button1Click(Sender:TObject);varkk,mm,ii:integer;var_aa:array[1..20]ofinteger
mydev·2020-09-15 02:50

OpenDialog文件多选

procedureTForm1.OpenFileListClick(Sender:TObject);varopenDialog:TOpenDialog;I:Integer;beginopenDialog
weixin_34221073·2020-09-14 23:03

F1Book使用总结

void__fastcallTForm1::F1Book61SelChange(TObject*Sender){
缘中人·2020-09-14 19:49

JAVA动态代理（proxy）实现和源码剖析

publicclassTranceHanderimplementsInvocationHandler{privateObjecttObject;publicTranceHander(Objectt){tObject
Howie Lee·2020-09-14 13:19

根据条件,DBGrid不同行显示不同的颜色

procedureTForm1.FormCreate(Sender:TObject);beginTable1.Open;end;procedureTForm1.FormClose(Sender:TObject
yuanyubest·2020-09-14 12:03

Delphi 函数嵌套 定义与调用

procedureTForm1.btn1Click(Sender:TObject);varstr:string;proceduretest();beginShowMessage(str);end;beginstr
u010219209·2020-09-14 04:41

关于Delphi XE DataSnap心跳包

IdWinsock2,IdTCPConnection;privateFSection:TRTLCriticalSection;//临界区procedureClientDisconnectEvent(Sender:TObject
裕多惠·2020-09-14 02:33

Delphi 的消息机制浅探 - Delphi编程

要想读懂本文，最低配置为：了解Win32消息循环和窗口过程基本了解TObject、TControl和TWinControl实现的内容熟悉Delphi对象的重载与多态推荐配置为：熟悉Win32SDK编程熟悉
苏生·2020-09-14 02:46

delphi 获取鼠标当前位置的相对坐标

Variants,Classes,Graphics,Controls,Forms,Dialogs;typeTForm1=class(TForm)procedureFormMouseDown(Sender:TObject
百炼成钢百忍成佛·2020-09-14 01:46

delphi 获取鼠标当前位置的相对坐标

Variants,Classes,Graphics,Controls,Forms,Dialogs;typeTForm1=class(TForm)procedureFormMouseDown(Sender:TObject
autio_net·2020-09-14 01:41

delphi xe10 restserver

单元三、DSHTTPService1控件的FormatResult事件中增加代码procedureTServerContainer1.ds_h_datacountFormatResult(Sender:TObject
以后换名字·2020-09-14 01:16

DELPHI SPEEDBUTTON按钮动态加载图片（从IMAGE和IMAGELIST）

一、直接上代码procedureTForm2.Button2Click(Sender:TObject);varbmp:Tbitmap;Stream:TMemoryStream;beginbmp:=Tbitmap.Create
以后换名字·2020-09-14 01:45

Delphi改变菜单字体

MenuItem2...设置为MainMenu的OwnerDraw为True,MenuItem1的OnDrawItem事件：procedureTForm1.MenuItem1DrawItem(Sender:TObject
PhoenixTR·2020-09-13 19:51

Delphi中的基本控件之TComboBox的使用总结

procedureTForm1.FormCreate(Sender:TObject);vari:Integer;beginfori:=2000to2013do//添加年份begincbbyear.Items.Add
东北熊孩子·2020-09-13 19:50

Delphi 函数大全

功能返回系统语言对象说明通过此函数可以得到系统的语言环境参考typeSysUtils.TLanguages例子///BeginLanguagesprocedureTForm1.Button1Click(Sender:TObject
他山之石可以攻玉·2020-09-13 18:18

Delphi函数大全

功能返回系统语言对象说明通过此函数可以得到系统的语言环境参考typeSysUtils.TLanguages例子///BeginLanguagesprocedureTForm1.Button1Click(Sender:TObject
cai101_2·2020-09-13 17:18

THttpCli发送和接受数据,代替indy10 TidHttp解决超时时间无效的问题

procedureTFormPost.Button2Click(Sender:TObject);//发送overbyte控件ICSvarData:AnsiString;AJson:TQJson;Strtemp
aldsot0997·2020-09-13 15:12

delphi 第三方控件 TsgcWebSocketClient使用

//在form上拖放一个TsgcWebSocketClient控件，控件采用ws协议，代码如下procedureTForm16.Button1Click(Sender:TObject);begintrysgcWebSocketClient1
aldsot0997·2020-09-13 15:11

delphi GetMem使用

procedureTForm12.Button2Click(Sender:TObject);varmystring:PChar;beginGetMem(mystring,1024);GetWindowText
aldsot0997·2020-09-13 15:11
上一页 1 2 3 4 5 6 7 8 下一页
按字母分类： ABCDEFGHIJKLMNOPQRSTUVWXYZ其他