E-COM-NET
首页
在线工具
Layui镜像站
SUI文档
联系我们
推荐频道
Java
PHP
C++
C
C#
Python
Ruby
go语言
Scala
Servlet
Vue
MySQL
NoSQL
Redis
CSS
Oracle
SQL Server
DB2
HBase
Http
HTML5
Spring
Ajax
Jquery
JavaScript
Json
XML
NodeJs
mybatis
Hibernate
算法
设计模式
shell
数据结构
大数据
JS
消息中间件
正则表达式
Tomcat
SQL
Nginx
Shiro
Maven
Linux
TObject
判断数据的奇偶
procedure TForm1.Button1Click(Sender:
TObject
); var
cqujsjcyj
·
2009-05-07 17:00
数据
DELPHI编程经验小结
nbsp; procedure TForm1.FormKeyDown(Sender:
TObject
cqujsjcyj
·
2009-05-07 16:00
sql
编程
Security
Delphi
How can I determine the names of the installed comm ports?
ThefollowingexampledemonstratesenumeratingthecommunicationsportsthatareinstalledandlistedintheWin32registry. uses Registry; procedure TForm1.Button1Click(Sender:
TObject
云海空间软件
·
2009-05-07 16:00
How can I determine the names of the installed comm ports?
ThefollowingexampledemonstratesenumeratingthecommunicationsportsthatareinstalledandlistedintheWin32registry. uses Registry; procedure TForm1.Button1Click(Sender:
TObject
云海空间软件
·
2009-05-07 16:00
枚举类型如何转换成字符串类型
TTest=(clRedX,clGreenX,clBlueX,clBlackX,clWhiteX,clYellowX); procedureTForm1.Button1Click(Sender:
TObject
xieyunc
·
2009-05-02 10:00
点击Ehlib列标题的快速排序方法
procedure SortDBGridEh(Sender:
TObject
;ACol:Int
xieyunc
·
2009-05-02 10:00
sql
Integer
远程开机再配合远程控制
远程开机再配合远程控制procedureTForm1.Button2Click(Sender:
TObject
);var vBuf:array[0..101]ofchar; i,j:integer;
xieyunc
·
2009-04-29 21:00
隐藏任务栏上的程序
procedureTMainForm.FormShow(Sender:
TObject
);varhwndOwner:HWnd;beginhwndOwner:=GetWindow(Handle,GW_OWNER
xieyunc
·
2009-04-29 19:00
DELPHI写的循环队列
cirstream; interface uses Windows, Classes, SysUtils; type TCircleMemStream = Class(
TObject
vincentchun
·
2009-04-28 11:00
windows
Delphi
不用注册热键方式在Delphi中实现定义快捷键
事件中填入一个过程名称(在ObjectInspector中),填写好后回车就可转入事件代码填写部分;第三步:填写事件处理过程,下面给出一个例子:procedureTFrmMain.KeyPress(Sender:
TObject
chaijunkun
·
2009-04-26 15:00
不允许超出范围
procedureTfrmOffice.toolResize(Sender:
TObject
);begin ifTool.TopScreen.Heightthen begin Tool.Top:=23
winstonbonaparte
·
2009-04-23 23:00
ActiveX控件的Color属性
{RGBvaluestoTColor}procedureTForm1.Button1Click(Sender:
TObject
);beginEdit1.Color:=RGB(58,110,165);end
derryzhang
·
2009-04-22 15:00
c# 多线程编程 入门篇
开始本应该是一篇洋洋洒洒的文字,不过我还是提倡先做起来,在尝试中去理解.先试试这个:procedureTForm1.Button1Click(Sender:
TObject
);vari:Integer;beginfori
·
2009-04-17 22:42
数组赋值比较
procedureTForm1.btn1Click(Sender:
TObject
);var data1:array[0..65535]ofbyte; data2:array[0..65535]ofbyte
zhangshengqi
·
2009-04-17 16:34
职场
休闲
图片的简单截取与拉伸
procedureTForm1.Button1Click(Sender:
TObject
);var winHWND,hCur:integer; winDC:integer; rect1,rect2:TRect
genispan
·
2009-04-15 09:00
截图屏幕部分图片
procedureTForm1.Button1Click(Sender:
TObject
);var winHWND,hCur:integer; winDC:integer; rect:TRect
genispan
·
2009-04-13 22:00
Mapx坐标转化的一个小细节
Mapx的GIS小程序,根据鼠标按下事件(OnMouseDown)使用MapX的OCX可以获取相应的经纬度坐标,代码如下: procedure TFMap.Map1MouseDown(Sender:
TObject
erikchang
·
2009-04-11 12:00
windows
Delphi
程序自动升级
procedureTForm1.Button1Click(Sender:
TObject
);beginUpdateMe('AutoUpdate.EX_');end;procedureTForm1.UpdateMe
qiume
·
2009-04-10 19:00
String
Class
提取文件图标
procedureTForm1.btn3Click(Sender:
TObject
);varFileName:AnsiString;begin ifOpenDialog1.ExecutethenFileName
zhangshengqi
·
2009-04-08 18:57
职场
休闲
GDI+从流中加载图片(转自万一的blog)
usesGDIPOBJ,GDIPAPI;procedureTForm1.FormPaint(Sender:
TObject
);constImgPath='c:/temp/test.bmp';varimg
genispan
·
2009-04-06 20:00
对call、retn的深入分析和认识
procedure summ(b: string); var a: string; begin a := b; end; procedure TForm2.Button3Click(Sender:
TObject
isiqi
·
2009-03-29 09:00
Delphi
判断设定的时间内 有无鼠标或键盘操作
procedureTForm1.Timer1Timer(Sender:
TObject
);varvLastInputInfo:TLastInputInfo;beginvLastInputInfo.cbSize
genispan
·
2009-03-11 13:00
Delphi对象的default数组属性
的缺省数组属性propertyItems[Index:Integer]:PointerreadGetwritePut;default;procedureTForm1.Button1Click(Sender:
TObject
qiume
·
2009-03-02 11:00
工作
list
Integer
Delphi
Delphi生成随机数
procedureTForm1.Button1Click(Sender:
TObject
);beginRandomize;//初始化,也可以将值赋予RandSeedRandom(1000);//生成大于等于
qiume
·
2009-02-27 14:00
Integer
Random
Delphi
mainado连接数据库
procedureTMainDataModule.DataModuleCreate(Sender:
TObject
);var strConn:String;begin StrConn:='Provider
winstonbonaparte
·
2009-02-26 08:00
数据库
Delphi中Exit, Abort, Break, Continue
Exit 退出函数体Abort停止执行,除非再次触发,比如:procedureTForm1.Button1Click(Sender:
TObject
);beginShowMessage('1');Abort
qiume
·
2009-02-25 16:00
Delphi实现凭证格式的DBGrid
//写一个玩玩~~procedureTForm1.DBGrid1DrawColumnCell(Sender:
TObject
;constRect:TRect;DataCol:Integer;Column:
qiume
·
2009-02-24 16:00
String
Integer
delete
insert
div
Delphi
delphi中用socket解析域名获得IP地址
需引用WinSock单元 procedureTForm1.btn1Click(Sender:
TObject
);varWSAData:TWSAData;Socket1:TSocket;Addr:TSockAddr
tg2003
·
2009-02-20 23:00
socket
list
Delphi
窗体抖动的实现
与是就有了下面这些代码:procedure TForm1.Button1Click(Sender:
TObject
);vari: Integer;t: Integer;l: Integer;seed:
peirenlei
·
2009-02-12 13:00
qq
destroy, free, freeAndNil, release用法和区别
1)destroy:虚方法释放内存,在
Tobject
中声明为virtual,通常是在其子类中override它,且要加上inherited关键字,才能保证派生类对象正确地被销毁;但destroy一般不能直接用
hank5658
·
2009-02-11 11:00
Delphi读取XML
SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,XMLIntf,XMLDoc,StdCtrls;typeTStudent=Class(
TObject
qiume
·
2009-02-11 10:00
String
Integer
button
Delphi
encoding
Forms
注册系统级热键
Variants,Classes,Graphics,Controls,Forms, Dialogs;type TForm1=class(TForm) procedureFormCreate(Sender:
TObject
·
2009-02-05 13:00
系统
Delphi编程中备份和恢复Access
//(***本文出处:南山古桃(nsgtao)的百度空间:http://hi.baidu.com/nsgtao/****)procedureTBackup.Button1Click(Sender:
TObject
mitta
·
2009-02-03 11:00
Delphi中的?:条件运算ifthen
procedureTForm1.Button1Click(Sender:
TObject
);var str:string;begin str:='任意值'; str:=StrUtils.IfThen
aammjian
·
2009-01-22 15:19
职场
休闲
ifthen
inputbox和inputquery
在button的click事件中写如下代码:(inputquery)procedureTForm1.Button1Click(Sender:
TObject
);var NewStr:stri
aammjian
·
2009-01-22 13:57
职场
休闲
inputquery
Randomize & Random
在学习ProcessMessage函数时候看到了这个代码,没用过Randomize函数,所以顺便学习学习;procedureTForm1.Button1Click(Sender:
TObject
);varI
hank5658
·
2009-01-20 11:00
AdvStringGrid使用方法(2)
procedure TForm1.FormCreate(Sender:
TObject
);begin AdvStringGrid1.FixedRows:=2; AdvStringGrid1.SaveFixedCells
shuiying
·
2009-01-12 18:00
AdvstringGrid设置标题行对齐方式
procedure Tfrmmain.AdvStringGrid1GetAlignment(Sender:
TObject
; ARow, ACol: Integer; var HAlign: TAlignment
shuiying
·
2009-01-12 18:00
将数据集由横向显示改为竖向 并规定列个数
procedureTForm1.btn3Click(Sender:
TObject
);begin myclntdtst1.Close; myclntdtst1.CommandText:='select
zhangshengqi
·
2008-12-25 11:20
职场
数据集
休闲
DBGridEh和dbgrid导出
uses ComObj; procedure TSearchinforfrm.Button11Click(Sender:
TObject
); var
aroc_lo
·
2008-12-23 11:00
数据库
Excel
delphi实现穿XP防火墙
procedureTForm1.Button1Click(Sender:
TObject
);var FwMgr,Profile,FwApp:variant;begin FwMgr:=CreateOLEObject
xjfreeman
·
2008-12-20 02:50
XP
防火墙
职场
Delphi
休闲
delphi发送邮件
控件 smtp:TIdSMTP; MgeSend:TIdMessage;代码procedureTForm1.Button1Click(Sender:
TObject
);begin SMTP.Host:='
sally
·
2008-12-19 16:23
职场
Delphi
休闲
delphi发送邮件
控件smtp:TIdSMTP;MgeSend:TIdMessage;代码procedureTForm1.Button1Click(Sender:
TObject
);beginSMTP.Host:='smtp
sally
·
2008-12-19 16:23
职场
delphi
休闲
Delphi开发
字符串分解为数组
procedureTForm1.btn1Click(Sender:
TObject
);var MultiDB:array[0..20]ofstring; multiname:string; i,j,z:Integer
zhangshengqi
·
2008-12-19 14:59
字符串
数组
职场
休闲
用CreateThread()创建线程
全过程例程如下: void __fastcall TForm1::btn_1Click(
TObject
*Sender) { if (hthread == NULL
wesleyluo
·
2008-12-19 08:00
null
attributes
DELPHI的结构体,共用体和位域的等效实现
共用体:其实也就是absolute关键字的使用,如下procedureTForm1.Button2Click(Sender:
TObject
);type TRGB=packedrecord//结构体
applebomb
·
2008-12-17 13:00
Integer
byte
Delphi
DBGrid 改变行的颜色 ListItem 改变行的颜色
======================================================void__fastcallTF_TJMXJG::dgMXJGDrawColumnCell(
TObject
bobwu
·
2008-12-11 09:00
回车后自动聚焦到下一个控件
procedure TfrmItemEdit.Edit1KeyPress(Sender:
TObject
; var Key: Char);begin if Key =#13 then begin
aroc_lo
·
2008-12-11 00:00
使用DateTimePicker绑定Date类型字段
经过测试的好用 //DateTimePicker控件添加Change事件,代码如下:procedureTfrmDataMapManage.DateTimePicker1Change(Sender:
TObject
pipi0714
·
2008-12-05 14:00
Date
测试
Delphi
dataset
运行期间运动的按钮
procedureTForm1.Button1MouseDown(Sender:
TObject
;Button:TMouseButton; Shift:TShiftState;X,Y:Integer);begin
zhangshengqi
·
2008-12-05 09:51
职场
休闲
运行期间运动的按钮
上一页
37
38
39
40
41
42
43
44
下一页
按字母分类:
A
B
C
D
E
F
G
H
I
J
K
L
M
N
O
P
Q
R
S
T
U
V
W
X
Y
Z
其他