TObject

cxgrid导出

uses中添加cxGridExportLinkprocedureTfrm_patient_fee_list.bar_daochuClick(Sender:TObject);var SFD:TSaveDialog
鹅倌·2013-04-16 10:06

delphi key 各键值对应的编码

procedureTFrmMain.edtKeyPressInPut(Sender:TObject; varKey:Char);begin ifnot(Keyin['0'..'9','.',#08])then
Trassion·2013-04-15 10:00

创建桌面快捷方式

usesActiveX,ComObj,StdCtrls,ShlObj,FileCtrl;procedureTForm1.N2Click(Sender:TObject);vartmpObject:IUnknown
haynes·2013-04-14 17:00

Delphi Thread 进程和线程函数(1)

System32/Windows/PATH环境变量} uCmdShow:UINT   {启动选项}):UINT;//举例,启动记事本:procedureTForm1.Button1Click(Sender:TObject
lailai186·2013-04-08 15:00

Delphi GDI+ 绘图 （1）

//举例:{绘制直线} procedureTForm1.Button1Click(Sender:TObject); begin Canvas.Pen.Color:=cl
lailai186·2013-04-05 10:00

Delphi中idHttp获取网页源文件

procedureTForm1.Button1Click(Sender:TObject);var pageStr:string;begin withIdHTTP1.Requestdobegin   IdHTTP1
wbryfl·2013-04-04 21:00

delphi idhttp post应用

 } procedure TForm1.Button1Click(Sender: TObject); var   data: 
paulfzm·2013-04-04 15:00

GDI+ —— Tcanvas 类属性及方法.......

delphiTCanvas类类关系   TObject-> TPersistent   对那些作图对象，可使用TCanvas对象作为画布。
lailai186·2013-04-03 11:00

Delphi-TADOQuery连接数据库的增删改查

//查询记录程序代码procedureTForm1.Button1Click(Sender:TObject);beginADOQuery.Close;ADOQuery.SQL.Clear;ADOQuery.SQL.Add
Super程序员·2013-03-31 09:41

delphi 透明

procedureTForm1.FormCreate(Sender:TObject); var rgn:HRGN; begin Self.Color:=clRed; BeginPath(Canvas.Handle
chinazhd·2013-03-27 20:00

lazarus1.1：ListView用法

ListView数据填充：procedureTForm1.FormActivate(Sender:TObject); Names:array[0..5,0..3]ofstring=( ('Rubble
bq_cui·2013-03-25 09:00

delphi 窗体全透明，但窗体上的控件不透明

//窗体全透明，但窗体上的控件不透明 procedure TForm1.Button1Click(Sender: TObject); Var frmRegion, tempRegion:
paulfzm·2013-03-23 01:00

DELPHI 让程序只能运行一次

在你的程序的主FORM 的 FORMCREATE 事件里面添加如下的代码： procedure 主FORM.FormCreate(Sender: TObject); var errno:integer
paulfzm·2013-03-20 16:00

delphi 播放gif 动画

uses GIFImg; 2 procedure TForm1.FormCreate(Sender: TObject); 3 begin
paulfzm·2013-03-20 00:00

让delphi嵌入的WebBrowser无边框无滚动条

  //浏览器页面加载完成 procedure TForm1.WebBrowser1DocumentComplete(ASender: TObject; const pDisp: IDispatch
paulfzm·2013-03-17 20:00

.NET 并行库写的对象池

基于.NET并行库写的对象池 ObjectPoolBase类，大家不用去于解TObjectPool,TObjectPoolDomain,TObjectDomain三个泛型参数，改成一个TObject也可以使用其构造中的四个参数分别代表
·2013-03-13 22:00

delphi 新老版本数据类型所占内存大小

procedure TForm1.Button1Click(Sender: TObject);begin Memo1.Clear; Memo1.Lines.Add('char---' + IntToStr
·2013-03-06 11:00

delphi VCL研究之消息分发机制-delphi高手突破读书笔记

在图中可以看到，TObject是VCL的祖先类，这也是ObjectPascal语言所规定的。
sushengmiyan·2013-03-04 21:00

delphi savedialog 将memo里面的内容保存到文件

现在窗口里添加一个Button,一个Memo以及一个SaveDialog然后在Button的OnClick事件中这样写道:procedureTForm1.button1click(sender:TObject
kindao·2013-02-27 16:27

用Delphi的TIdHttp控件发起POST请求和Java的Servlet响应

使用Delphi的TIdHttp控件发起一个POST请求很简单，定义一个TStringList实例，往上面添加参数就行：procedureTForm1.Button1Click(Sender:TObject
panjunbiao·2013-02-26 23:00

如果限制Edit文本框字符的输入

  一般是在下面控件的事件里添加procedureEdit1KeyPress(Sender:TObject;varKey:Char);  具体代码例如，只允许输入数字beginifKeyin['0'..
sbabzc·2013-02-24 14:08

cxGrid动态创建的列里动态创建事件的方法

 Private declarations }     procedure cxGrid1DBTableView1ColumnPropertiesButtonClick(       Sender: TObject
yeeonefx·2013-01-22 15:00

个人的编程命名习惯的几点记录

IService=Interface()    end; 类名：以T开头加意议名称(名称以单词首字母大写进行组合)：如：    TDataBaseLog=Class(TObject)        private
fengsh998·2012-12-15 13:00

DELPHI获取网卡MAC地址 转

ulmacaddrleng:pointer):DWord;StdCall;External'Iphlpapi.dll'Name'SendARP';procedureTForm1.Button1Click(Sender:TObject
马儿快跑·2012-12-07 09:00

Delhpi学习2-----关于string, shortstring, PChar

下面是写的一个小Demo及其运行结果源码如下：procedureTForm1.Button1Click(Sender:TObject);varstr1:string;str2:shortstring;str3
cuihao0532·2012-12-05 17:48

利用TJSONArray向REST服务器发送文件

usesClientClassesUnit4,ClientModuleUnit4;procedureTForm13.btn1Click(Sender:TObject);varaserver:TServerMethods1Client
yeeonefx·2012-12-04 21:00

数据库图片存储也读取

procedureTForm1.Button1Click(Sender:TObject);varMs:TmemoryStream;jpg:Tjpegimage;beginms:=TmemoryStream.Create
yeeonefx·2012-12-04 20:00

TMyProc=procedure of Object;obj:=Txxx.Create;ProcPtr:= obj.test;

typeTForm1=class(TForm)Button1:TButton;Button2:TButton;procedureButton1Click(Sender:TObject);procedureBBB
Hustudent20080101·2012-12-04 17:36

delphi 线程使用

interfaceuses  Windows,Classes,SysUtils;type  TWorkItem=class  end;  TProcessWork=procedure (Sender:TObject
jxgxy·2012-11-30 21:00

FindBugs 安装 eclipse插件下载

Simply remove the de.tobject.findbugs_0.0.n directory f
onlyor·2012-11-30 16:00

delphi笔记：txt读写

procedureTForm1.Button1Click(Sender:TObject);vartxtf:textfile;batf:string;data:string;begin   batf:='
3cts·2012-11-29 11:57

Delphi DBGrid使用大全

 DelphiDBGrid使用大全  delphi中TDBGrid的使用2010-06-2410:03procedureTMainForm.DBGrid1DrawColumnCell(Sender:TObject
qyweiyy·2012-11-08 07:05

如何在cxgrid中添加checkbox

cxCheckBox，窗体添加clientDataset,datasource,adoquery,cxgrid 2，添加类声明type TCheckBoxClickEvent=procedure(Sender:TObject
鹅倌·2012-11-06 20:04

delphi TStringGrid add CheckBox

代码如下:procedureTForm1.FormCreate(Sender:TObject);vari,j:integer;begin//行数和列数StringGrid1.ColCount:=10;StringGrid1
pipi0714·2012-11-01 10:00

Delphi 中的分号

如果写了分号，则后面的语句变成了elseif....备注：以上代码可用下面的代码替代：  procedure TForm1.btn1MouseDown(Sender: TObject; Button
kindao·2012-10-31 22:20

Delphi小技巧杂记

Delphi小技巧杂记//获取任务栏尺寸procedureTForm1.Button1Click(Sender:TObject);varTaskList:HWnd;Bordered:TRect;beginTaskList
ilvu999·2012-10-29 14:00

在Delphi中使用串口控件MSComm的0字符接收例程祥解

comInputModeBinary;//和MSComm1.InputMode:=comInputModeText;//实验结果基本对Delghi不太起作用procedureTForm1.FormCreate(Sender:TObject
Plutus_Lee·2012-10-23 10:00

Delphi 从外部拖拽文件

Forms,Dialogs,ComCtrls,StdCtrls;typeTForm1=class(TForm)ListView1:TListView;procedureFormCreate(Sender:TObject
ylilike·2012-10-22 19:00

Delphi 从外部拖拽文件

Forms,Dialogs,ComCtrls,StdCtrls;typeTForm1=class(TForm)ListView1:TListView;procedureFormCreate(Sender:TObject
ylilike·2012-10-22 19:00

Delphi 将string 转为 Array of AnsiChar

Delphi将string转为ArrayofAnsiChar的简单方法如下：procedureTMainForm.BitBtn7Click(Sender:TObject); var Str:string
xinzheng_wang·2012-10-16 18:00

Delphi启动外部程序

无论是用VC还是用Delphi,启动外部程序，调用的都是相同的系统中的API函数,如下Delphi代码所示://登录按钮 procedureTForm1.Label_LoginClick(Sender:TObject
friendan·2012-10-12 21:00

一个成功获取百度注册页面验证码图片的源代码

成功实现使用delphi获取百度的验证码图片(只获得图片，不进行识别，识别之后再研究吧O(∩_∩)O)procedureTForm1.btn1Click(Sender:TObject); proceduredoSomething
sushengmiyan·2012-10-12 12:00

TApplication 类3

类关系TObject→TPersistent→TComponentTApplication是一外封装Windows应用程序的类。
lailai186·2012-10-12 08:00

写了个简单的投票机

procedure TForm1.FormShow(Sender: TObject); begin WebBrowser1.Navigate('http://kejiao.cntv.cn/program
hszdz·2012-10-10 19:00

EXCEL sql 导入

procedureTForm1.Button1Click(Sender:TObject);  var  sqlstr,connstr,sheetName,filename:string;begin  FileName
beyondqd·2012-10-07 11:00

[红鱼儿]kbmmw 开发点滴:ErrorTable用法

下面是实现代码： procedureTForm2.Button4Click(Sender:TObject);var i:TkbmNativeInt;//必须声明为TkbmNativeInt,不然XE3编译
·2012-10-05 22:00

账号批量注册软件开发启示录

新增以下代码procedureTForm1.Button1Click(Sender:TObject); var Openurl:string; elem:IH
sushengmiyan·2012-10-05 11:00

Delphi Excel导入 的通用程序

表格中数据导入数据库,在一条数据导入前判断数据库中是否有该数据,如果有,就不再导入该数据(避免重复) ,你可以参考下 procedureTForm_qyxxcx.BitBtn2Click(Sender:TObject
beyondqd·2012-09-24 18:00

Delphi Excel导入 的通用程序

procedureTForm1.btnClick(Sender:TObject);begin OpenDialog1.Title:='请选择正确的excel文件'; OpenDialog1.Filter
beyondqd·2012-09-24 18:00

Delphi excel导入到数据库

usesComObj; procedureTMemo_form_form.N5Click(Sender:TObject);var ExcelApp:Variant;//EXCEL打开对象 link:string
beyondqd·2012-09-24 18:00
上一页 29 30 31 32 33 34 35 36 下一页
按字母分类： ABCDEFGHIJKLMNOPQRSTUVWXYZ其他