TObject 第4页

Delphi数据库连接池

Variants,ActiveX,IdGlobal,SyncObjs,Windows,IdThread,DateUtils,Math;typeTObjectEvent=procedure(Sender:TObject

iteye_4537·2020-09-13 08:38

DELPHI TTcpServer控件使用实例

Accept事件procedureTForm5.tcpsrvr1Accept(Sender:TObject;ClientSocket:TCustomIpClient);varread:TServerClientSocket

ysl123·2020-09-13 07:02

IdHTTP 设置cookie 和访问后读取Cookie 值。

procedureTForm1.btn1Click(Sender:TObject);varIdHTTP:TIdHTTP;mstrCookie:string;Cookies:TIdCookieManager

gj333·2020-09-13 05:05

idhttp用代理IP获取网页源码

procedureTForm1.btn1Click(Sender:TObject);varHttp:TIdHTTP;beginHttp:=TIdHTTP.Create(nil);Http.ProxyParams.ProxyServer

tg2003·2020-09-13 04:20

idHTTP最简洁的修改和取得Cookie例子

procedureTForm1.Button1Click(Sender:TObject);varHTTP:TidHTTP;html,s:string;i:integer;beginHTTP:=TidHTTP.Create

god00·2020-09-13 04:03

delphi- TDSHTTPService 实现跨域

TDSHTTPService无法跨域，从源代码分析后，最终实现了，发表一下实现代码，留个记念：procedureTDataModule3.DSHTTPService1HTTPTrace(Sender:TObject

show508·2020-09-12 22:56

有四个label，分别是label1，label2，……，label4，如何根据一个1-4的整数，取对应的label的caption

caption遍历属方法一：遍历属主上所有label控件，这种遍历方法按放到属主上控件的先后顺序，控件时存到一个Tlist上，先放的先存procedureTForm1.Button1Click(Sender:TObject

pmj888666·2020-09-12 19:49

Delphi 隐藏任务栏

procedureTform1.Button1Click(Sender:TObject);varwndHandle:THandle;//用于存储指定窗口的句柄wndClass:array[0..50]ofChar

小新新_88·2020-09-12 03:02

窗体不出现在任务栏上

usesShellApi;procedureTForm1.FormCreate(Sender:TObject);beginSetWindowLong(Application.Handle,GWL_EXSTYLE

jinzhili·2020-09-12 02:08

利用Windows API 显示和隐藏任务栏

《奇思异想编程序Delphi篇中的例子——（1）》尽管在Windows7上的效果很令人无奈，但是还是把代码发上来：1void__fastcallTForm1::Button1Click(TObject*

ag8787·2020-09-12 01:36

delphi 双向链表，单向链表，可以替换TList，添加删除效率更高

pTSingleLinkedNode=^TSingleLinkedNode;TSingleLinkedNode=recordprivateNext:pTSingleLinkedNode;publicData:TObject

ltk80·2020-09-12 00:53

Delphi资源文件

rc可生成供delphi使用的res文件2、引入res文件implementation{$R*.dfm}{$RTank.res}procedureTForm1.Button1Click(Sender:TObject

tank77·2020-09-11 22:18

delphi CopyFile的基础用法

在程序所在的目录下新建一个名为test的文件夹，并在下面建立test_1.txt文件，并输入文字；3、在窗口中拖出一个按钮，双击按钮后输入以下代码：procedureTForm1.btn_copyClick(Sender:TObject

我欲混吃与等死·2020-09-11 12:45

锁定鼠标移动范围

设有两个按钮，button1用来锁定范围，button2用来解除锁定，代码为：procedureTForm1.Button1Click(Sender:TObject);varbtPanel:TRect;

weixin_30496431·2020-09-11 10:45

将鼠标锁定在一定的范围内

请在Form中放置二个Button,然後分别为这两个按钮定义OnClick响应事件如下://限制procedureTForm1.Button1Click(Sender:TObject);varrtButton2

VBEND·2020-09-11 08:18

delphi发送邮件

控件smtp:TIdSMTP;MgeSend:TIdMessage;代码procedureTForm1.Button1Click(Sender:TObject);beginSMTP.Host:='smtp

weixin_33896069·2020-09-10 19:26

delphi 中absolute

特意引用一下例子：procedureTForm1.FormCreate(Sender:TObject);varnum:Int64;pt:TPointabsolut

sj120418·2020-09-10 17:52

Delphi按名字调用方法

按名字调用方法似乎一直以来都是大家比较关注的技术，在论坛上有一个经典的答复：typeTProcedure=procedure(Test:string)ofobject;procedureExecuteRoutine(Obj:TObject

qinxiongwei·2020-09-10 15:45

delphi发送邮件代码

procedureTForm1.Button1Click(Sender:TObject);begintryIdSMTP1.AuthenticationType:=atLogin;//设置登陆类型IdSMTP1

jiqimiao·2020-09-10 14:17

ListView点击头排序

-------------------------------------------------------------void__fastcallTForm1::ListView1Compare(TObject

阿齐兹·2020-09-10 12:53

delphi 数据处理

TStringStream怎样转换StringprocedureTForm1.Button1Click(Sender:TObject);varss:TStringStream;str:String;beginss

dkopg24406·2020-08-25 07:32

delphi 多线程编程

开始本应该是一篇洋洋洒洒的文字,不过我还是提倡先做起来,在尝试中去理解.先试试这个:procedureTForm1.Button1Click(Sender:TObject);vari:Integer;beginfori

dkopg24406·2020-08-25 07:32

delphi RGB与TColor的转换

,B:byte):Tcolor;beginResult:=BShl16orGshl8orR;end;2.Tcolor转换为RGBproceudreTform1.Button1Clink(Sender:Tobject

dkopg24406·2020-08-25 07:02

用递归实现排列组合取数(组合显示例5选3等)

例:2选1结果125选2结果1$21$31$41$52$32$42$53$43$54$5用BCB3实现void__fastcallTForm1::Button1Click(TObject*Sender)

sangxiao·2020-08-25 04:50

delphi 进度条

进度条控件的简单使用新建一工程，在form上添加一个ProgressBar1和一个Button，为Button单击事件写如下代码：procedureTForm1.Button1Click(Sender:TObject

qin_yaping·2020-08-25 03:29

枚举类型如何转换成字符串类型

typeTTest=(clRedX,clGreenX,clBlueX,clBlackX,clWhiteX,clYellowX);procedureTForm1.Button1Click(Sender:TObject

小宇飞刀·2020-08-24 18:28

Delphi通过ADO连接MYSQL

procedureTForm1.Button1Click(Sender:TObject);begintryADOCon1.ConnectionString:=('DRIVER={MySQLODBC3.51Driver

tengguang·2020-08-24 16:02

Delphi动态创建MainMenu和PopupMenu菜单的方法

procedureTForm1.Button1Click(Sender:TObject);varMainMenu:TMainMenu;MenuItem:TMenuItem;begin//创建主菜单对象,

delphi308·2020-08-24 08:15

我学Delphi心得与笔记-------在控件上如何禁用Ctrl+V

(于是，想了一个办法，禁用了Ctrl+V组合按键,代码如下://在KeyDown事件中写如下代码procedureTFrmPictureBrowse.lstPictureKeyDown(Sender:TObject

weixin_34049032·2020-08-24 06:02

WebBrowser判断页面是否下载结束

方法1：procedureTForm1.WebBrowser1DocumentComplete(Sender:TObject;constpDisp:IDispatch;varURL:OleVariant

星梦枫·2020-08-24 00:55

遍历枚举类型

usesTypInfo;{以TAlign为例}procedureTForm1.Button1Click(Sender:TObject);varenum:TAlign;i:Integer;str:string

dropme·2020-08-24 00:06

Delphi中WebBrowser判断页面及JS ajax是否加载完成-转

whileWebBrowser1.BusydoApplication.ProcessMessages;对于多框架：procedureTForm1.WebBrowser1NavigateComplete2(Sender:TObject

iteye_12421·2020-08-23 22:22

判断Webbrowser是否加载完成

TForm1;glpDisp:IDispatch=nil;implementation{$R*.dfm}procedureTForm1.EmbeddedWB1DocumentComplete(ASender:TObject

dropme·2020-08-23 22:13

对象拷贝工具类（深拷贝）

publicclassCloneUtil{privateCloneUtil(){thrownewAssertionError();}publicstaticTclone(Tobject)throwsIOException

dc_user·2020-08-23 18:47

高斯坐标经纬度互相转换算法(Delphi)

时间：2009-05-11博客：http://wallimn.iteye.com转载请保留此信息}interfaceusesMath;typeTTranslate=class(TObject)protect

iteye_19488·2020-08-23 17:17

delphi发送http请求示例（THttpCli组件示例）

//发送请求procedureTfrmMain.LocateExecute(Sender:TObject);varfFileInStream:TFileStream;fStreamIn:TStringStream

iteye_19488·2020-08-23 17:17

QuickReport 3.0的导出文件 *.qrp 如何用代码的方式保存成图片格式

procedureTForm1.Button1Click(Sender:TObject);varAPage:TMetafile;beginifOpenDialog1.ExecutethenbeginQRPreview1

lf_shao·2020-08-23 10:16

BGRABitmap图像操作5：使用层、遮罩

Graphics,Dialogs,BGRABitmap,BGRABitmapTypes;type{TForm1}TForm1=class(TForm)procedureFormPaint(Sender:TObject

老狼8848·2020-08-23 05:56

Inc 与 k:=k+1 性能比较

做如下测试：procedureTForm1.Button1Click(Sender:TObject);vari,k:Integer;oldTime,newTime:Int64;begin//oldTime

_克急克怒_·2020-08-23 04:01

ListBox1删除操作

procedureTForm1.Button1Click(Sender:TObject);vari:integer;beginfori:=L

peanut_pro·2020-08-22 22:59

TClientDataSet[3]: 手动建立数据集

>>>//放置控件:ClientDataSet1、DataSource1、DBGrid1、Button1,然后procedureTForm1.Button1Click(Sender:TObject);begin

weixin_33974433·2020-08-22 14:02

手动建立数据集

//放置控件:ClientDataSet1、DataSource1、DBGrid1、Button1,然后procedureTForm1.Button1Click(Sender:TObject);begin

Qiu_SmileToLife·2020-08-22 11:22

delphi idhttpsever+idhttp 实现简单的JSON API服务

http服务器测试代码procedureTForm1.FormShow(Sender:TObject);beginIdHTTPServer1.Bindings.Clear;IdHTTPServer1.DefaultPort

vrix·2020-08-21 21:15

delphi中如何实现深拷贝[转]

要实现所谓的“深拷贝”，即拷贝整个对象，在TPersistent类系下的对象可以通过Assign方法，如果对象所在的类没有Assign方法例如TObject类，可以把原始对象成员变量所在内存段的内容拷贝到被拷贝对象成员

aojie8600·2020-08-21 13:04

delphi下中文转UFT-8编码

beginforbinBytesOf(str)doResult:=Format('%s%%%.2x',[Result,b]);end;调用：procedureTForm1.btn13Click(Sender:TObject

rznice·2020-08-21 10:57

写一个聊天辅助程序

CodeprocedureTForm1.Button1Click(Sender:TObject);varhParent,hButton,hMemo:HWND;beginMemo1.SelectAll;/

weixin_33788244·2020-08-21 06:41

创建异形窗口[2]

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

weixin_30724853·2020-08-20 19:30

如何取得 fontdialog 的字体名称、大小等内容

怎么取得fontdialog的字体名称、大小等内容把这些内容放在字符串里kaida(2006-11-2110:41:15)procedureTForm1.Button1Click(Sender:TObject

delphi308·2020-08-20 15:38

Delphi十六进制字符串转换十进制32位整数

procedureTForm1.Button1Click(Sender:TObject);vari:Int

xyzhan·2020-08-20 13:31

TParser用法

void__fastcallTForm1::Button36Click(TObject*Sender){char*str="'say'oneworldonedream#27979#357972.9";float

chinayu2007·2020-08-20 09:32

推荐频道

TObject