TObject

delphi通过函数名动态调用函数的方法

Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls;   type   TMyCacl = class(TObject
·2015-03-03 16:00

Ado控件处理多个Recordset数据集

如下面处理------------------PAS文件--------------------------------------procedureTForm1.Button1Click(Sender:TObject
kinwar·2015-02-27 11:23

Ado控件处理多个Recordset数据集

如下面处理------------------PAS文件--------------------------------------procedureTForm1.Button1Click(Sender:TObject
kinwar·2015-02-27 11:23

Delphi 检测用户超过多长时间没有操作键盘或鼠标

procedureTForm1.Timer1Timer(Sender:TObject);var vLastInputInfo:TLastInputInfo;beginvLastInputInfo.cbSize
vga·2015-02-13 02:00

delphi 操作注册表

usesRegistry;procedureTfrmLogin.FormShow(Sender:TObject);var reg:TRegistry;begin Reg:=TRegistry.Create
鹅倌·2015-02-05 14:00

delphi 操作注册表

usesRegistry;procedureTfrmLogin.FormShow(Sender:TObject);var reg:TRegistry;begin Reg:=TRegistry.Create
鹅倌·2015-02-05 14:00

IdTcpClient简单示例

procedure TForm1.btnHttpGetClick(Sender: TObject); begin idtcpclnt1.Host := '192.168.10.88';
·2015-02-03 14:00

获取程序文件自身版本

procedureTFormLogin.FormCreate(Sender:TObject);var MyVersion,:string; Block:^VS_FIXEDFILEINFO; PDatA:
vga·2015-01-26 12:00

Delphi 全局画点TCanvas.Pixels[X,Y]

procedure TForm1.btnChangePixelClick(Sender: TObject); var baseX : integer ; baseY : integer
·2015-01-14 12:00

FastScript脚本使用白皮书（Ver1.0）

原始类：Tobject,TPersistent ,TList,TStrings,TStringList,TStream,TFileStream,TMemoryStream,TComponent, TfsXMLItem
vga·2015-01-13 14:00

delphi执行webbrowser中的js

procedureTForm1.btn1Click(Sender:TObject); var doc:olevariant; str:string; begin doc:=wb1.Document; /
hutao1101175783·2015-01-08 21:00

delphi触发webbrowser中元素的事件

webbrowser有一个id为bt的按钮，它有一点击事件，弹出一个框procedureTForm1.btn1Click(Sender:TObject); var doc:olevariant; str
hutao1101175783·2015-01-08 20:00

delphi获得webbrowser中的html文本

procedureTForm1.btn1Click(Sender:TObject); var doc:olevariant; str:string; begin doc:=wb1.Document; /
hutao1101175783·2015-01-08 20:00

delphi改变webbrowser中元素的值

webbrowser中有一个隐藏域，id为xx，值为0procedureTForm1.btn1Click(Sender:TObject); var doc:olevariant; str:string;
hutao1101175783·2015-01-08 20:00

delphi向webbrowser中写入新的html

procedureTForm1.btn1Click(Sender:TObject); var doc:olevariant; str:string; begin doc:=wb1.Document; /
hutao1101175783·2015-01-08 20:00

delphi获取webbrowser中的元素的值

webbrowser有一个隐藏域id为xx，值为0procedureTForm1.btn1Click(Sender:TObject); var doc:olevariant; str:string; begin
hutao1101175783·2015-01-08 20:00

【安卓笔记】ArrayAdapter删除item注意事项

下面是其源码：publicvoidremove(Tobject){ synchronized(mLock){ if(mOriginalValues!
RowandJJ·2014-12-31 13:00

cxgrid更改单元格

procedure TRES_CQ_JB_F.N1Click(Sender: TObject);var  iLoop:Integer;begin  inherited;  if _JuMaPao=3 then
鹅倌·2014-12-27 16:23

cxgrid更改单元格

procedure TRES_CQ_JB_F.N1Click(Sender: TObject);var  iLoop:Integer;begin  inherited;  if _JuMaPao=3 then
鹅倌·2014-12-27 16:23

delphi 中调用 tuxedo 的简单 demo

procedureTForm1.Button1Click(Sender:TObject);LongInt):Pointer;stdcall;varSndBuf:PTFbfr;RcvBuf:PTFbfr;
easonulove·2014-12-26 17:01

delphi StrToDateTime在win7或者控制面板中改过短日期格式出错

在XP系统中将区域语言选项中的短日期格式改成再使用StrToDateTime转换时间则处理会异常示例：procedureTForm1.btn2Click(Sender:TObject);var dateTimeStr
fang16388·2014-12-25 22:00

发送消息执行记事本的“另存为”菜单功能

发送消息执行记事本的“另存为”菜单功能procedure TForm1.FormCreate(Sender: TObject);var hNotepad: Cardinal;begin hNotepad
·2014-12-21 13:00

BCB保存图片到SQLSERVER

void__fastcallTForm1::btn6Click(TObject*Sender) //存储图片{   TMemoryStream*MemoryImageStream=newTMemoryStream
cddchina·2014-12-15 17:00

美丽渐变色的Form

-------------------------------------------------------------- procedure TForm1.FormClick(Sender: TObject
·2014-12-11 06:00

点击Button2后，执行MouseDown的过程

Button1和Button2，默认输入焦点是Button1，现在点击Button2，产生WM_LBUTTONDOWN消息 procedure TForm1.Button2MouseDown(Sender: TObject
·2014-11-28 05:00

SendTextMessage如何打开记事本并显示指定内容

procedure TForm1.Button1Click(Sender: TObject); var hEdit: HWND; str: string; begin str :=
·2014-11-26 01:00

一行代码设置TLabel.Caption的前世今生

第零步，测试代码： procedure TForm1.Button1Click(Sender: TObject); begin Label1.Caption := 'Hello World'
·2014-11-25 08:00

Delphi XE5如何读写INI文件

首先usesinifiles然后写文件procedureTHolidaySet.Button2Click(Sender:TObject);var  IniFile:TIniFile;  Count:Integer
鹅倌·2014-11-13 09:53

禁用鼠标

procedure TFormMain.scrlbx1MouseActivate(Sender: TObject; Button: TMouseButton;   Shift: TShiftState;
vga·2014-10-30 13:00

BCB 动态创建组件的事件响应

中的历程，一点点的记录下来，呵呵classPACKAGEMyTPanel:publicTPanel{private:TLabel*lblToday;void__fastcalllblTodayClick(TObject
zb872676223·2014-10-27 23:00

Tcxtreelist动态控制列或行是否能够编辑

procedure Tfrmaaa.grd1Editing(Sender: TObject; AColumn: TcxTreeListColumn; var Allow: Boolean);begin
·2014-10-27 17:00

time(), time_t, localtime(), localtime_r()的理解和用法

time()time_ttime(time_t*ptr_time);参数和返回值都是time_tobject。如果参数为空，则返回当前时间距1970年1月1日00:00点UTC的秒数；lon
橘子安·2014-10-13 20:24

WinAPI: DrawFocusRect - 绘制焦点矩形

HDC;{设备环境句柄} constlprc:TRect{矩形结构} ):BOOL; //举例: procedureTForm1.FormPaint(Sender:TObject
涂孟超·2014-09-26 15:00

创建大窗口

procedureTForm1.FormCreate(Sender:TObject); begin SetWindowLong( Handle, GWL_STYLE, not(WS_THICKFRAME
涂孟超·2014-09-26 15:00

理解 Delphi 的类(十) - 深入方法[9] - 调用时的括号

也可以带着 functionMyFun:string; begin Result:='ok'; end; {调用} procedureTForm1.Button1Click(Sender:TObject
涂孟超·2014-09-26 15:00

多线程编程(1) - 先入门再说

但这个基础对我来讲的确有点难(起码昨天以前是这样).开始本应该是一篇洋洋洒洒的文字,不过我还是提倡先做起来,在尝试中去理解.先试试这个:procedureTForm1.Button1Click(Sender:TObject
涂孟超·2014-09-26 15:00

再学 GDI+[46]: 路径 - Create、FillPath、DrawPath

,Classes,Graphics,Controls,Forms, Dialogs; type TForm1=class(TForm) procedureFormPaint(Sender:TObject
涂孟超·2014-09-26 15:00

学习结构[记录]类型(3) - 结构间的关系

age:Word; end; var RecA,RecB:TRec1; RecX,RecY:TRec2; procedureTForm1.Button1Click(Sender:TObject
涂孟超·2014-09-26 15:00

再学 GDI+[67]: 路径画刷(7) - 画个五角星

,Classes,Graphics,Controls,Forms, Dialogs; type TForm1=class(TForm) procedureFormPaint(Sender:TObject
涂孟超·2014-09-26 15:00

理解 Delphi 的类(十二) - 深入属性[1] - 先复习

关于属性的话题还有很多,譬如:数组属性、默认属性、class属性等等.先总结一下前面提到过的属性吧.TMyClass=class(TObject) private FName:string; procedureSetName
涂孟超·2014-09-26 15:00

NativeXml (9)：读取

TNativeXml; const xmlStr=''+ ''+ '张三'+ '李四'+ '王五'+ ''; procedureTForm1.FormCreate(Sender:TObject
涂孟超·2014-09-26 15:00

Edit 的使用

//让Edit只接受数字 //方法1： procedureTForm1.Edit1KeyPress(Sender:TObject;varKey:Char); begin ifnot(Keyin
涂孟超·2014-09-26 15:00

Yesterday、Today、Tomorrow - 昨天、今天、明天

Classes,Graphics,Controls,Forms, Dialogs; type TForm1=class(TForm) procedureFormCreate(Sender:TObject
涂孟超·2014-09-26 15:00

GdiPlus[21]: IGPPathGradientBrush 之 InterpolationColors

测试效果图:测试代码:usesGdiPlus,GdiPlusHelpers; procedureTForm1.FormPaint(Sender:TObject); const C1=$FF000000
涂孟超·2014-09-26 15:00

Delphi 中 "位" 的使用(3) - TBits

TBits直接继承自TObject,它只扩充出2个属性、1个方法:TBits.Size//需要使用的"位"数 TBits.Bits[]//默认的数组属性,用于读写每个"位";用True表示1,用False
涂孟超·2014-09-26 15:00

WinAPI: MoveWindow - 改变窗口的位置与大小

Integer;{大小} bRepaint:BOOL{是否重绘} ):BOOL; //举例: procedureTForm1.Button1Click(Sender:TObject
涂孟超·2014-09-26 15:00

WinAPI: CreatePolyPolygonRgn - 建立多个多边形构成的区域

,Classes,Graphics,Controls,Forms, Dialogs; type TForm1=class(TForm) procedureFormClick(Sender:TObject
涂孟超·2014-09-26 15:00

goto 语句

procedureTForm1.Button1Click(Sender:TObject); var x:Integer; labeln1,n2,n3,4;//goto的标签可以是标识符,也可以是0
涂孟超·2014-09-26 15:00

理解 Delphi 的类(十) - 深入方法[22] - 指针参数

PInteger是Integer的指针类型} begin p^:=p^*2; Result:=p^; end; {测试} procedureTForm1.Button1Click(Sender:TObject
涂孟超·2014-09-26 15:00

初学 Delphi 嵌入汇编[14] - 常量与变量在汇编中的一个区别

:Integer; const a=11; b=5; asm moveax,a-b end; //测试 procedureTForm1.Button1Click(Sender:TObject
涂孟超·2014-09-26 15:00
上一页 21 22 23 24 25 26 27 28 下一页
按字母分类： ABCDEFGHIJKLMNOPQRSTUVWXYZ其他