TObject

delphi 计算文件与当前时间差(天小时分钟秒)

procedureTForm1.FormCreate(Sender:TObject);//窗体初始化variFileHandle:Integer;FileTime:TDateTime;Days:Integer

强哥83·2024-03-13 16:11

Delphi v11 安卓权限申请

procedureTDmBLE.RequestPermissionsResult(Sender:TObject;constAPermissions:TArray;constAGrantResults:TArray

pcplayer·2024-02-20 15:17

ShowException - C++ Builder

ShowException显示异常提示信息和产生异常的地址头文件：#include命名空间：System::Sysutils函数原型：void__fastcallShowException(System::TObject

玄坴·2024-02-10 13:58

function

Controls,Forms,Dialogs,StdCtrls;typeTForm1=class(TForm)Button1:TButton;procedureButton1Click(Sender:TObject

netppp·2024-02-03 05:30

2019-04-25 鼠标滑动

procedureTForm1.Button1Click(Sender:TObject);vari:integer;begin//ld.exe-s1inputswipe700.0700.05.0700.0

netppp·2024-01-23 00:30

TGraphic - C++ Builder

C++Builder参考手册➙Vcl::Graphics➙TGraphicTGraphic是所有VCL图片类的父类简介成员属性方法事件一.TGraphic简介继承关系：System::TObject⠀╙

玄坴·2024-01-22 13:09

C++ Builder XE关于TDateTime批量加减时间TTimerPiker的设置

void__fastcallTForm3::Button3Click(TObject*Sender){TDateTime*DT=newTDateTime();//newTDateTime类型变量*DT=

lzksword·2024-01-20 10:00

ExceptionErrorMessage - C++ Builder

ShowException内部调用的函数头文件：#include命名空间：System::Sysutils函数原型：int__fastcallExceptionErrorMessage(System::TObject

玄坴·2024-01-11 09:19

TComponent::OnGetDeltaStreams - C++ Builder

Classes类：TComponent访问权限：protected:函数原型：typedefvoid__fastcall(__closure*TGetDeltaStreamsEvent)(System::TObject

玄坴·2024-01-10 03:53

Delphi6函数大全2-SysUtils.pas

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

依星net188.com·2023-12-31 22:38

C++ Builder XE 关于Intraweb的IWRegion1切换多个TIWFrame使用方法

3、在导航里添加代码，void__fastcallTIWForm1::TIWFrame21IWButton1Click(TObject*Sender){IWRegion1->DestroyComponents

lzksword·2023-12-30 02:41

C++ Builder 关于TRichEdit的字符颜色标记处理

//积累经验每一天，以后忘记好搜索void__fastcallTForm2::btn3Click(TObject*Sender){//初始化验证mmo->SelStart=0;mmo->SelLength

lzksword·2023-12-30 02:11

TControl - C++ Builder

Vcl::Controls➙TControlVcl::Controls::TControl是所有VCL控件的父类简介成员一.Vcl::Controls::TControl简介继承关系：System::TObject

玄坴·2023-12-27 06:33

Delphi生成不重复的随机数单元

核心代码:typeTRandomEngine=class(TObject)privateFSelected:TBits;FArrSize,FNumbersUsed:longint;FMinNumber,

南通DXZ·2023-12-26 11:35

Java期末复习基础知识（for PTA）

TObject是Java中所有类的共同父类。在Java中，每个类都直接或间接继承自Object类。

H._·2023-12-21 13:11

UniGUI学习之UniImage

UniImage图片填上文字procedureTMainForm.UniButton2Click(Sender:TObject);Varbmp:tBitmap;ui:TUniImage;Beginui:

蝈蝈(GuoGuo)·2023-12-17 21:12

unigui MessageDlg方法调用例子

procedureTfrmEmployee.btnDeleteClick(Sender:TObject);varaBool:Boolean;begininherited;MessageDlg('是否删除

weixin_34226182·2023-12-17 18:44

在unigui中为组件添加hint

//改变hint的样式procedureTUniForm1.UniFormShow(Sender:TObject);vari:Integer;beginforI:=0toSelf.ControlCount

蝈蝈(GuoGuo)·2023-12-17 18:12

uniGUI 应用捕获按键

下图我定义一个按钮27，即ESC键：之后，我们就可以MainForm的OnKeyDown事件中来根据用户的按键来写代码了：procedureTMainForm.UniFormKeyDown(Sender:TObject

蝈蝈(GuoGuo)·2023-12-16 12:58

TComponent::SafeCallException - C++ Builder

include命名空间：System::Classes类：TComponent访问权限：public:函数原型：virtualHRESULT__fastcallSafeCallException(System::TObject

玄坴·2023-12-02 09:26

如何在Delphi中用代码来完成计算字段的创建

我也是经过好长时间摸索才找到答案，现在在这给大家分享：procedureTForm1.FormCreate(Sender:TObject);varNewField:TField;i:integer;begin

blazingfire·2023-12-01 14:14

NX二次开发UF_CURVE_ask_parameterization 函数介绍

WangPaiFeiXingYuanUF_CURVE_ask_parameterizationDefinedin:uf_curve.hintUF_CURVE_ask_parameterization(tag_tobject

王牌飞行员_里海·2023-11-27 13:36

delphi程序启动时带参数运行的例子

这里有一个坑，就是参数会减少一个//需要引用这个单元usesshellapiprocedureTForm1.Button5Click(Sender:TObject);varParams:string;begin

一只长不大的小菜鸟·2023-11-25 14:36

unigui同页面内重定向跳转，企业微信内部应用开发获取用户code例子

procedureTMainForm.UniFormCreate(Sender:TObject);varurl:string;code:string;begin//如果没有code值，将进行重定向ifUniApplication.Parameters.Values

一只长不大的小菜鸟·2023-11-25 14:03

delphi javascript html 文本,如何让markdown.js在Delphi的TWebBrowser中将标记文档显示为HTML？...

('hidden');markdownEl=document.getElementById('markdown');德尔福代码:procedureTForm38.Memo1Change(Sender:TObject

weixin_39705435·2023-11-23 10:22

delphi TWebBrowser 使用

GoForwardself.WebBrowser1.Refresh2.捕捉NewWindow2事件,即新开窗口事件procedureTForm1.WebBrowser1NewWindow2(Sender:TObject

pdw2009·2023-11-23 10:15

Delphi xe10 FMX 按钮窗口放大缩小

Delphixe10FMX按钮窗口放大缩小一个窗口放大，后再点击就还原窗口的代码procedureTufrm_min.btn1Click(Sender:TObject);begincaseSelf.WindowStateofTWindowState.wsNormal

pykill8·2023-11-09 15:40

Delphi FMX 实现鼠标移动窗口

DelphiFMX实现鼠标移动窗口procedureTufrm_min.rctngl1MouseDown(Sender:TObject;Button:TMouseButton;Shift:TShiftState

pykill8·2023-11-09 15:10

fmx windows 下制作无边框窗口最小化最大化并鼠标可拖移窗口

rectangelmousemove事件usesWinapi.Windows,Winapi.Messages,FMX.Platform.WinprocedureTfrmMain.Rectangle1MouseMove(Sender:TObject

黑贝是条狗·2023-11-09 15:07

delphi程序怎么在运行时允许拖动组件

Boolean;{Publicdeclarations}end;varForm1:TForm1;implementation{$R*.dfm}procedureTForm1.FormCreate(Sender:TObject

一只长不大的小菜鸟·2023-11-05 06:39

Delphi 编程实现拖动排序并输出到文档

代码实现：procedureTForm1.FormCreate(Sender:TObject);beginListBox3.DragMode:=dmAutomatic;end;proce

winfredzhang·2023-10-25 17:46

EhLib表格控件DBGridEh自动排序、自动过滤的实现

节中根据你选用的数据集引用对应的EhLibXXX(EhLibADO,EhLibCDS…)然后再设置下面几个DBGridEh控件的属性：1procedureTForm1.FormCreate(Sender:TObject

勿为·2023-10-25 13:15

随鼠标移动的十字线的快速画法

现举例如下：varOldX,OldY:Longint;//使用前初始化OldX:=－1；procedureTfrmMain.PaintBoxCMouseMove(Sender:TObject;Shift

勿为·2023-10-25 13:15

TBytes的性能

老规矩，无废话，直接上代码：procedureTForm1.Button1Click(Sender:TObject);vari:Integer;dTime:Cardinal;//ABytes:RawByteString

yayongm·2023-10-21 16:59

Time - C++ Builder

例：void__fastcallTForm1::Button1Click(TObject*S

玄坴·2023-10-18 14:30

关于DELPHI数组，指针，字符串转换的例子!(转)

(转)varaa:array[0..5]ofChar;bb:Pointer;cc:string;dd:PChar;procedureTForm1.Button1Click(Sender:TObject)

依星net188.com·2023-09-28 15:52

cxgrid直接载入图片

procedureTForm1.FormCreate(Sender:TObject);vartmpMemStream:TMemoryStream;tmpPic:TPicture;tmpSize:LongInt

9807146wang·2023-09-14 16:26

小小一个设置程序高级感拉满

手动设置结果如下代码设置：procedureTForm1.Button1Click(Sender:TObject);beginTStyleManager.TrySetStyle(cbxVclStyles.Text

winfredzhang·2023-09-04 21:43

Delphi 设置窗体无标题栏和边框

只需要在窗体的创建时，添加如下代码procedureTMainForm.FormCreate(Sender:TObject);beginSetWindowLong(handle,gwl_style,getwindowlong

ClassOps·2023-09-02 11:54

delphi 安卓读写INI文件

安卓读写INI文件usesSystem.IoUtilsprocedureTForm1.Button1Click(Sender:TObject);varIniFile:TIniFile;Count:Integer

tjsoft·2023-08-29 00:21

禁止Fastreport预览时最小化,导致用户无法打开程序的页面

只需在OnPreview事件处理程序中写入procedureTForm1.frxReport1Preview(Sender:TObject);beginifAssigned(frxReport1.PreviewForm

蝈蝈(GuoGuo)·2023-08-27 13:09

delphi的接口support_delphi – 使用Generics创建接口对象

IUnknown而不支持您要求的接口,则支持将销毁您的对象实例.简单演示：typeIFoo=interface['{32D3BE83-61A0-4227-BA48-2376C29F5F54}']end;varo:TObject

太平天师·2023-08-25 14:03

Delphi调用C++的对象

但是C++的类还是C++的类，Delphi类都继承于TObject，而C++没有这个概念。所以，获得了C++的类，不能去尝试调

FreedomExpect·2023-08-25 14:30

Delphi遍历ADO数据集遍历操作

Delphi数据库应用程序通过数据存取构件对数据库进行访问和操作非常方便下面通过代码演示procedureTreturn_doc_NoForm.dbcbbIssue_NoClick(Sender:TObject

幸思无声_东莞·2023-08-22 06:16

TObjectList

帮助文档：IftheOwnsObjectspropertyissettotrue(thedefault),TObject

weixin_30457881·2023-08-12 09:32

把 DBGridEh 表格内容导出为 Excel 文件

如果要导出DBGridEh表格里面的数据，采用以下方式：procedureTForm1.Button20Click(Sender:TObject);varFn:string;begin//导出汇总结果为

pcplayer·2023-08-12 09:01

2019-04-24 delphi 自动填入验证码

procedureTForm1.Button2Click(Sender:TObject);beginifstrtoint(edit1.text)=5thenbeginWinExec(PChar('cmd.exe

netppp·2023-08-10 03:41

TDosCommand 组件来执行 JavaScript 脚本（nodejs）

procedureTForm1.Button9Click(Sender:TObject);varPytho

winfredzhang·2023-08-03 13:41

delphi 7+oracle,delphi 7 联接oracle9 源码

【实例简介】delphi7联接oracle9源码【实例截图】【核心代码】procedureTForm1.Button1Click(Sender:TObject);varsqlstr:string;sqlstr2

运营老高·2023-07-23 10:25

TObject::UnitScope - C++ Builder

Builder参考手册](https://www.jianshu.com/p/d059131d1c4c)➙[System](https://www.jianshu.com/p/1b9f942821b3)➙[TObject

·2023-06-24 10:11

推荐频道