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
[转]Delphi下拉列表框
//载入 procedure TForm1.FormCreate(Sender:
TObject
); var PID: PInteger; i: integer; begin with ComboBox1
heiheben
·
2008-04-09 10:00
Delphi
delphi的xml基本解析
procedure TForm1.btn1Click(Sender:
TObject
); var a : TXMLDocument; b : string; Root
kenter1643
·
2008-04-07 17:00
数据结构
xml
框架
F#
Delphi
delphi的xml基本解析
procedure TForm1.btn1Click(Sender:
TObject
); var a : TXMLDocument; b : string; Root
kenter1643
·
2008-04-07 17:00
数据结构
xml
框架
F#
Delphi
传输文件例子的核心代码
下面是我写的部分代码：SERVERprocedureTFrmUpdate.StartServerClick(Sender:
TObject
);beginwithTCPServerd
bigpower521
·
2008-04-01 13:51
代码
核心
文件
例子
传输
如何在一个窗体中嵌入另一个窗体
Form1usesunit2;procedureTForm1.FormCreate(Sender:
TObject
);begin form2:=TForm2.Create(Panel,self); form2
bigpower521
·
2008-04-01 08:58
职场
嵌入
窗体
休闲
搭建通用构造器
搭建通用构造器1-我们来确定我们的目标 我们需要事先一个叫做xCreator的模板类，能够根据一个基类TBase实例化出一个构造器类，能够通过Support()的形式来支持TBase的派生类
TObject
饭中淹的避难所~~~~~
·
2008-04-01 02:00
Delphi向Word导出数据
最近客户要求将数据导出到word,查找了一些源代码后做出来了.先将方法共享出来.希望对大家有用.procedureTFrmWeekAnalysisQry.BtnExportToExcelClick(Sender:
TObject
henreash
·
2008-03-28 18:00
Spcomm串口控件的例程
//串口初始化 procedure TForm1.BitBtn3Click(Sender:
TObject
); begin comm1.startcomm; end; //关闭串口 procedure
javatoyou
·
2008-03-26 14:00
com
Delphi+MSComm控件串口收发程序
//Delphi+MSComm控件串口收发程序 //
[email protected]
procedure TForm1.FormCreate(Sender:
TObject
); begin
javatoyou
·
2008-03-26 13:00
Delphi
delphi 正弦曲线图
本实例要在窗体上直接绘制正弦曲线，为了防止窗口切换的过程中会输出不完整的图形，因此绘制图形的关键代码都放在了窗体的OnPaint过程中，代码如下：procedureTForm1.FormPaint(Sender:
TObject
·
2008-03-15 18:18
插件管理框架 for Delphi（二）
SysUtils,Forms;typeEDllError=Class(Exception);TDllClass=ClassofTDll;TDll=Class;TDllEvent=procedure(Sender:
TObject
·
2008-03-15 18:50
关闭屏幕保护
导读： procedure TForm1.Button1Click(Sender:
TObject
); begin {关闭} SystemParametersInfo(SPI_SETSCREENSAVEACTIVE
isiqi
·
2008-03-06 15:00
Web
笔记：VCL的诞生和设计原理
演化：接口，COM，MIDAS 2.2設計 2.3vcl對象的孕育2.3.1對象模型
TObject
=class constrctorCrea
truexf
·
2008-02-27 20:00
框架
function
Class
destructor
TAdoQuery导出数据到Excel
procedure TFrmZjMoveSch.BitBtn2Click(Sender:
TObject
);var WD: TWriteData ;begin WD := TWriteData.Create
javatoyou
·
2008-02-24 10:00
Excel
一种获取无符号整数最大值的方法:
//一种获取无符号整数最大值的方法: procedure TForm1.Button1Click(Sender:
TObject
); var {Delphi 标准的无符号整数类型只有三种}
·
2008-02-16 11:00
方法
Delphi继承、属性、重载
1.继承类名称=class（父类名称）publicprivateprotectedpublishedEnd;²
Tobject
是其他所有类的最终祖先，因此如果类在声明中没有指定父类，那默认为
Tobject
²
chenyq2008
·
2008-01-30 22:00
delphi
编译器
function
class
存储
Delphi
Delphi继承、属性、重载
private protected published End;²
Tobject
chenyq2008
·
2008-01-30 22:00
function
存储
Class
Delphi
编译器
学习结构[记录]类型(2) - 压缩结构
{压缩结构: 牺牲效率, 减小尺寸} i: Integer; w: Word; end; procedure TForm1.Button1Click(Sender:
TObject
·
2008-01-09 13:00
学习
delphi发送http请求示例（THttpCli组件示例）
//发送请求 procedure TfrmMain.LocateExecute(Sender:
TObject
); var fFileInStream:TFileStream;
peirenlei
·
2008-01-07 14:00
C++
c
xml
C#
Delphi
delphi读取XML示例
procedure TfrmMain.btn1Click(Sender:
TObject
); var TextXML:IXMLDocument; XmlRoot:IXMLNode;
peirenlei
·
2008-01-07 14:00
C++
c
xml
mobile
Delphi
TThread —— 线程类详解
类关系
TObject
在一个多线程的应用程序中创建一个TThread的后子类代表一个线程。每一新子类的TThread对象的实例是一个新的线程。
lee576
·
2007-12-24 12:00
关于类的入门的例子(5): override
StdCtrls; type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender:
TObject
·
2007-12-17 13:00
override
关于类的入门例子(4): property
//类单元 unit Person; interface type TPerson = class(
TObject
) private FName: string;
·
2007-12-13 15:00
property
关于类的入门例子(3): Create 与 Destroy
//类单元 unit Person; interface uses Dialogs; type TPerson = class(
TObject
) private
·
2007-12-13 15:00
create
通配符函数 MatchesMask 的使用
uses Masks; procedure TForm1.Button1Click(Sender:
TObject
); var s: string; begin s :=
·
2007-12-11 16:00
matches
文件路径相关的字符串操作
uses HTTPApp, Masks; procedure TForm1.Button1Click(Sender:
TObject
); var ss,s: string; begin
·
2007-12-11 14:00
字符串
RadioGroup 的使用
//获取 RadioGroup 项目名称 procedure TForm1.RadioGroup1Click(Sender:
TObject
); begin Text := RadioGroup1
·
2007-12-08 19:00
Radio
统计字数
//添加 Memo1、Label1、Label2、还有Button1 procedure TForm1.Button1Click(Sender:
TObject
); var s: string
·
2007-12-08 18:00
统计
把整数当作布尔用
procedure TForm1.Button1Click(Sender:
TObject
); var i: Integer; begin i := 0; ShowMessage
·
2007-12-06 18:00
布尔
越界赋值
procedure TForm1.Button1Click(Sender:
TObject
); var w: Word; r: Byte; begin w := $1234;
·
2007-12-01 21:00
赋值
有序类型的大小及最大、最小值
procedure TForm1.Button1Click(Sender:
TObject
); var b: Byte; w: Word; i: Integer; c: Cardinal
·
2007-11-30 17:00
有序
not 与整数
//Byte procedure TForm1.Button1Click(Sender:
TObject
); var x,y: Byte; begin x := MAXBYTE;
·
2007-11-26 22:00
T
让TwinControl控件能接收外来的文本拖放
控件能接收外来的文本拖放}interfaceuses ActiveX, Types, Classes, ComObj, Windows;type TShellDragEvent = procedure(Sender:
Tobject
wbryfl
·
2007-11-22 20:00
String
function
Integer
Class
interface
Types
获取Delphi中定义的枚举类型的名称和值
procedureTForm1.btnTestClick(Sender:
TObject
);varp:PTypeData;i:Integer;s:String;pt:PTypeInfo;beginListBox1
禹爸爸
·
2007-11-08 10:00
Delphi
获取Delphi中定义的枚举类型的名称和值
procedureTForm1.btnTestClick(Sender:
TObject
);varp:PTypeData;i:Integer;s:String;pt:PTypeInfo;beginListBox1
禹爸爸
·
2007-11-08 10:00
delphi
获取Delphi中定义的枚举类型的名称和值
procedureTForm1.btnTestClick(Sender:
TObject
);varp:PTypeData;i:Integer;s:String;pt:PTypeInfo;beginListBox1
禹爸爸
·
2007-11-08 10:00
delphi
让自己做的程序在开机后自动启动
举例：procedureTForm1.FormCreate(Sender:
TObject
);varmyname:string;constK='\Software\Mi
sally
·
2007-10-25 15:09
职场
Delphi
休闲
C++ builder 遍历所有组件的 caption 属性,轻松实现界面多语言支持
1.读所有组件的caption属性:void__fastcallTForm1::Button1Click(
TObject
*Sender){ TPropInfo*info; Stringtmp;
lxj_com2006
·
2007-10-24 11:00
Delphi下获取RTTI信息源代码
procedure GetBaseClassInfo(AClass:
TObject
; AStrings: TStrings);{ This method obtains some basic RTTI
whw6_faye
·
2007-09-07 15:00
Delphi2007新功能 -- 有限的栈对象
今天使用Delphi2007，一个误输入，无意中发现Delphi2007的record类型居然能够和
TObject
一样定义方法和属性，而且不需要调用类似
TObject
.Create方法就能生成一个record
sogotobj
·
2007-08-27 14:00
C++
c
C#
Delphi
pascal
Delphi2007新功能 -- 有限的栈对象
今天使用Delphi2007，一个误输入，无意中发现Delphi2007的record类型居然能够和
TObject
一样定义方法和属性，而且不需要调用类似
TObject
.Create方法就能生成一个
maozefa
·
2007-08-27 14:00
C++
Integer
Delphi
pascal
Constructor
destructor
如何判断Edit控件中输入的字符为数字！
procedureTForm1.CustNoEditKeyDown(Sender:
TObject
;varKey:Word; Shift:TShiftState);begin if(chr(ord(key
suncrafted
·
2007-08-15 22:00
Delphi Design Pattern - Abstract Factory
SysUtils, Windows, Messages, Classes, Graphics, Controls, Forms, Dialogs;type TAbstractProductA = class(
TObject
whw6_faye
·
2007-08-01 00:00
windows
Integer
Class
Delphi
interface
Forms
DELPHI中使用Tlist类的简单分析
procedureTForm1.Button1Click(Sender:
TObject
);const //黑桃,红桃,方块
fxh7622
·
2007-06-10 21:16
职场
Delphi
休闲
Tlist类
DELPHI中使用Tlist类的简单分析
procedureTForm1.Button1Click(Sender:
TObject
);const //黑桃,红桃,方块
fxh7622
·
2007-06-10 21:16
职场
Delphi
休闲
Tlist类
DELPHI中使用Tlist类的简单分析
procedureTForm1.Button1Click(Sender:
TObject
);const//黑桃,红桃,方块,草
fxh7622
·
2007-06-10 21:16
职场
DELPHI
休闲
C++ Builder 实现动态生成窗口、控件，以及处理控件事件
---------------------------------------------------------------void __fastcall TForm1::Button1Click(
TObject
fanguanghui
·
2007-06-09 15:00
builder
C++ Builder 实现动态生成窗口、控件，以及处理控件事件
---------------------------------------------------------------void __fastcall TForm1::Button1Click(
TObject
izuoyan
·
2007-06-09 15:00
C++
c
.net
C#
C++Builder
Delphi设置全局快捷键
type TForm1 = class(TForm) procedure FormCreate(Sender:
TObject
); procedure FormDestroy(Sender:
TObject
konglx
·
2007-06-02 09:00
Delphi
下载者U盘传染源码
Windows,Messages,SysUtils,Forms,IniFiles;type TFrm_Main=class(TForm) procedureFormCreate(Sender:
TObject
风故故，也依依
·
2007-05-26 01:00
上一页
38
39
40
41
42
43
44
45
下一页
按字母分类：
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
其他