TObject

Delphi 使用idhttp下載显示进度以及大小

順便列下關鍵程式碼procedureTForm1.BtnDownloadClick(Sender:TObject);var  tStream:
chelen_jak·2015-12-01 17:00

delphi idHttp下载文件

转自：http://blog.csdn.net/chinazhd/article/details/6440491procedureTForm1.Button3Click(Sender:TObject);
chelen_jak·2015-11-30 18:00

delphi的加密与解密

EncodeBase64、DecodeBase64uses EncdDecd;const str = '万一的 Delphi 博客'; procedure TForm1.Button1Click(Sender: TObject
鹅倌·2015-11-28 10:58

delphi的加密与解密

EncodeBase64、DecodeBase64uses EncdDecd;const str = '万一的 Delphi 博客';procedure TForm1.Button1Click(Sender: TObject
鹅倌·2015-11-28 10:58

Delphi F11 全屏

Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) procedure FormKeyDown(Sender: TObject
·2015-11-13 16:52

使Form响应滚轮事件

Delphi的VCL控件的原有代码还是比较方便的，代码如下： MouseWheel procedure  TfrmMain.FormMouseWheel(Sender: TObject
·2015-11-13 15:57

bcb 从TColor对象中解析出红、绿、蓝的亮度

在使用下面的例子代码前，请将窗口的Color设为clBlue,clNavy或其它任何一种非系统颜色，诸如clBtnFace) void __fastcall TForm1::Button1Click(TObject
·2015-11-13 14:06

delphi dbgrid数据导出为excel

uses Excel2000,ComObj; procedure F_Form.Button1Click(Sender: TObject);var    myExcel:
·2015-11-13 14:54

Delphi VCL 的消息处理机制（1）

   我在分析 VCL 消息机制的过程中，基本上只考查了三个类 TObject、TControl 和 TWin
·2015-11-13 13:59

delphi编程创建桌面快捷方式

编程创建桌面快捷方式   uses ActiveX,ComObj,StdCtrls,ShlObj,FileCtrl; procedure TForm1.N2Click(Sender: TObject
·2015-11-13 08:04

delphi 改变闪动光标

delphi 改变闪动光标 // 不同风格的光标 procedure TForm1.Edit1MouseDown(Sender: TObject; Button: TMouseButton;Shift
·2015-11-13 08:41

delphi webbrowser 获取iframe

procedure TForm1.Button4Click(Sender: TObject);var Index: Integer; Document: IHTMLDocument2; FrameIdx
·2015-11-13 08:39

Framework DSW项目周记1

FrameworkDSW/System.php'; /** * @param <T, P> <--这里是推荐的phpDoc定义方式 */ class TChild extends TObject
·2015-11-13 08:44

TWebBrowser静音

FormCreate(Sender: TObject); var    hDSound:  Cardinal ;   
·2015-11-13 07:02

以二进制方式读取图片保存到string

procedure TForm1.BitBtn1Click(Sender: TObject);var  StringStream : TStringStream;  FSize :
·2015-11-13 05:42

BCB获取键盘、鼠标空闲时间

 void __fastcall TForm1::Timer1Timer(TObject *Sender) {     TLastInputInfo t;
·2015-11-13 03:20

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

delphi TCanvas类 类关系   TObject-> TPersistent    对那些作图对象，可使用TCanvas
·2015-11-13 01:53

Delphi 关键字详解[absolute,]

procedure TForm1.btnTestClick(Sender: TObject); var str : string[32]; {string最大位数255，其实在内存中占用的是
·2015-11-13 01:43

保存图片到数据库,从数据库里提取图片

下面的这段代码是在按了“保存”按钮之后所触发的事件处理程序： procedure TForm1.Button1Click(Sender: TObject); Var MyJPEG : TJPEGIma
·2015-11-13 01:31

隔行改变DBGrid网格颜色

然后，在 DBGrid1 的 onDrawColumnCell 事件中键入以下代码，然后运行程序代码:procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject
·2015-11-13 01:27

Delphi-时间的显示

下面的代码为在控件中显示本地时间，并为时间添加动态效果 procedure TForm1.Timer1Timer(Sender: TObject); var mytime:TdateTime;
·2015-11-13 01:15

Delphi-Edit中只能输入数字且只能输入一个小数点

1 procedure TForm1.Edit1KeyPress(Sender: TObject;
·2015-11-13 01:14

Delphi-改变鼠标的形状

1 procedure TForm1.Label1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); //当鼠标移动到标签Label1
·2015-11-13 01:13

DBGridEh 自动下一行的问题

procedure TFrameDBGridEh.DBGridEh1KeyPress(Sender: TObject; var Key: Char);begin  if Key = #13 then
·2015-11-13 00:50

delphi发送邮件

控件  smtp: TIdSMTP;  MgeSend: TIdMessage; 代码 procedure TForm1.Button1Click(Sender: TObject
·2015-11-13 00:35

delphi将图片存储到sql server 2005

image   delphi使用的单元为jpeg, db, dbtables; delphi 存储图片代码片段 procedure TForm1.btnPostClick(Sender: TObject
·2015-11-13 00:32

RTTI（一）简介【转自大富翁】

第一部分   RTTI简介 类(class) 和 VMT 的关系 类(class)、类的类(class of class)、类变量(class variable) 的关系 TObject.ClassType
·2015-11-12 18:52

xml to object

convert xml or string to object 2012.02.24 by Anjey wu*/(function(){ var xmlHelper = {tobject
·2015-11-12 15:28

关于 TApplication 详解 一 ---- 继承关系

继承关系： TObject   →   TPersistent   →   TComponent     TApplication组件的属性:
·2015-11-12 12:47

快速排序（一个数组先做偶数排序后做奇数排序）

DELPHI 代码 procedure TForm1.Button2Click(Sender: TObject); var   A1: array[
·2015-11-12 12:22

动态数组和指针转换（DELPHI）

Code procedure TForm1.Button1Click(Sender: TObject); var   A: array of
·2015-11-12 12:21

delphi获得系统当前时间

程序运行结果如图6.1所示 主要代码如下： procedure TForm1.Button1Click(Sender: TObject); begin Label1.Caption := FormatDateTime
·2015-11-12 11:06

delphi listbox 使用

listbox删除 删除选中的某个：procedure TForm1.Button1Click(Sender: TObject); var i:integer;begin i:=0; while i
·2015-11-12 11:06

Delphi Rtti 笔记

uses Rtti;procedure TForm1.btn1Click(Sender: TObject);var ctx: TRttiContext;begin ShowMessage(ctx
·2015-11-12 10:36

Delphi中函数定义和声明的位置

　　当函数（或过程）A定义在函数（或过程）B之前，那么函数B就可以调用函数A，并且编译成功，例如下面的 procedure TForm1.btn1Click(Sender: TObject); 和 &
·2015-11-12 10:36

谈谈Delph中i的类和对象2---类可以理解成一种特殊的数据结构、类型转换

比如下面代码为一个按钮（Button1）的单击事件 procedure TForm1.Button1Click(Sender: TObject); var ACaption: String
·2015-11-12 10:23

delphi类的相互引用

下面进行定义，当前面一个类要使用后面一个类时，需要在前面一个类的前面放置一个前置声明，并且前置声明只能是IVariantMap = class;这种格式而不能是IVariantMap = class(TObject
·2015-11-12 08:51

VCL 中TList源码分析

源码分析TPointerList = array[0..MaxListSize - 1] of Pointer;TList 的本质就是个无类型指针的数组  TList = class(TObject
·2015-11-11 18:27

TThread 详解

类关系 TObject在一个多线程的应用程序中创建一个TThread的后子类代表一个线程。每一新子类的TThread对象的实例是一个新的线程。
·2015-11-11 18:23

BYTE 转字符串

procedure TForm3.FormCreate(Sender: TObject); begin   Self.Paint; end; function ByteToHex(Src:
·2015-11-11 18:13

DELPHI方面输入EDIT

procedure TForm1.FormCreate(Sender: TObject); var  i:integer; begin  for i:=0 to ComponentCount
·2015-11-11 18:12

StringGird 改变字帖颜色

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;   Rect: TRect; State
·2015-11-11 18:51

使Delphi 局部常量有全局变量的效果

procedure TForm1.btn1Click(Sender: TObject); {$J+} const // 类似C的静态变量，有全局变量的作用 g_Num: Integer
·2015-11-11 17:46

Delphi7 PAnsiChar String 结构指针

procedure TForm1.Button1Click(Sender: TObject);type  PPersonInfo = ^PersonInfo;  PersonInfo
·2015-11-11 17:48

用最少的代码为你的窗体实现剪贴板操作

procedure TForm1.Cut1Click(Sender: TObject);   begin  SendMessage&
·2015-11-11 16:54

Delphi调用存储过程

from person where nianling>@age; end; GO 调用例子 通过ADOQUERY调用代码 procedure TForm1.btn1Click(Sender: TObject
·2015-11-11 16:36

（1）类的定义

与类相关的保留字Type  // 用该保留字声明类TMyForm = Class (TObject)   // Class代表定义的是类 ，括号内代表继承，也可以不写。
·2015-11-11 15:27

TreeView 之间节点拖动 /移动

设置TreeView的DragMode = dmAutoMaticprocedure TFmMain.TreeLeftDragOver(Sender, Source: TObject; X, Y: Integer
·2015-11-11 14:03

dbchart

procedure TForm1.Button1Click(Sender: TObject);var //  series1:TBarSeries;//  series2:TPieSeries
·2015-11-11 14:53

宽接口和窄接口

type   TStrategy=class(TObject)//抽象策略   public     procedure Hello;v
·2015-11-11 14:38
上一页 7 8 9 10 11 12 13 14 下一页
按字母分类： ABCDEFGHIJKLMNOPQRSTUVWXYZ其他