TObject

使用DateTimePicker绑定Date类型字段

经过测试的好用 //DateTimePicker控件添加Change事件，代码如下：procedureTfrmDataMapManage.DateTimePicker1Change(Sender:TObject
pipi0714·2008-12-05 14:00

运行期间运动的按钮

procedureTForm1.Button1MouseDown(Sender:TObject;Button:TMouseButton; Shift:TShiftState;X,Y:Integer);begin
zhangshengqi·2008-12-05 09:51

1/24=1/a+1/b,a和b的和最小是多少？

LID=3933374 用delphi实现如下： 引用 procedure TForm1.Button1Click(Sender: TObject); var   i,j,a,
mathsfan·2008-12-02 19:00

Delphi2009的GIF顯示

uses GIFImg; procedure TForm1.FormCreate(Sender: TObject); begin   // 先在窗体上放一个 TImage 组件：Image1
liang1022·2008-11-30 09:00

Delphi提取EXE,DLL文件图标

//uses ShellAPI procedure   TForm1.Button1Click(Sender:   TObject); var  &
·2008-11-29 15:00

将字符串转给控件名．

procedureTfrmIncome.CheckBox1Click(Sender:TObject);procedureSetStatus(CheckBox:TCheckBox;Edit:TEdit);
aroc_lo·2008-11-29 11:00

dbgrid的重画功能

 procedure TForm1.dbgridDrawColumnCell(Sender: TObject;   const Rect: TRect; DataCol: Integer; Column
luoyanqing119·2008-11-24 10:00

如何在Jpg图像上写上字

uses Jpeg;procedure TForm1.Button1Click(Sender: TObject);var Bmp : TBitmap; Jpg : TJpegImage;begin try
cdlff·2008-11-24 09:00

TList(1)

1:TList是直接从TObject继承二来的一个类，不是可视控件，一般可以把它作为一个对象的容器来用。
cdlff·2008-11-23 18:00

Delphi 的绘图功能[12] - TPen 类(下) : 学习橡皮线

procedureTForm1.Button1Click(Sender:TObject); begin Canvas.Pen.Color:=clYellow;{指定笔颜色为黄色} Canvas.Pen.Width
cdlff·2008-11-22 16:00

判断当前焦点在哪个控件上

procedureTForm1.Timer1Timer(Sender:TObject);begin Text:=Screen.ActiveControl.ClassName;end;
cdlff·2008-11-21 21:00

DBGridEh 倒出到 EXCEL

 保存按钮click如下: procedureTmainform.SaveToExcelClick(Sender:TObject); varExpClass:TDBGridEhExportClass; 
happypolo·2008-11-15 09:00

DBGrid 写EXCEL 方法一

 procedureTmainform.SaveToExcelClick(Sender:TObject);   var          i,j,k:integer;     xls:OleVariant
happypolo·2008-11-14 23:00

控制的TComboBox下拉框的宽度

{自动显示下拉框的宽度} procedure TdeliveOrderForm.comb_productDropDown(Sender: TObject); var    
tianshui0·2008-11-12 13:00

dbgrideh 单元格超出的文本用省略号替换

procedureTForm1.DBGridEh1DrawDataCell(Sender:TObject;constRect:TRect; 
mitta·2008-11-12 00:00

怎么保存cxGrid的设置?

//保存设置 procedureTForm1.FormClose(Sender:TObject; varAction:TCloseAction); begin cxGridView_ClassList.StoreToIniFile
javatoyou·2008-11-11 13:00

cxGrid6.28导出到Excel

use cxGridExportLink; procedure TMainForm.cxButton_MemoExcelClick(Sender: TObject);begin if SaveDialog1
javatoyou·2008-11-11 13:00

用 Delphi 下载网络文件

procedureTForm1.Button2Click(Sender:TObject); var MyStream:TMemoryStream; begin IdAntiFreeze1.OnlyWhenIdle
zendj·2008-11-01 09:00

COMBOBOX多选

 procedureTForm1.ComboBox1DropDown(Sender:TObject);begin PrevIndex:=ComboBox1.ItemIndex; cText:=ComboBox1
genispan·2008-10-23 23:00

数据库查询进度条

 procedureTForm1.FormCreate(Sender:TObject);begin ADOQuery1.ExecuteOptions:=[eoAsyncFetch];//设为异步读取end
genispan·2008-10-23 23:00

treeview添加节点

 procedureTForm1.Button1Click(Sender:TObject);var root_node,cur_node:TTreeNode;begin   root_node:=TreeView1
genispan·2008-10-23 23:00

delphi控件遍历

 procedureTForm1.Button1Click(Sender:TObject);var         i:Integer;begin         ListBox1.Items.Clear
genispan·2008-10-23 23:00

窗体抖动的实现

与是就有了下面这些代码： procedure TForm1.Button1Click(Sender: TObject); var i: Integer; t: Integer;
javatoyou·2008-10-21 12:00

窗体抖动的实现

与是就有了下面这些代码：procedureTForm1.Button1Click(Sender:TObject);vari:Integer;t:Integer;l:Integer;seed:Integer
lee576·2008-10-21 12:00

Delphi流操作技巧

1、文件流 TStreamMemoery 读写内存  TMemoryStream的继承关系如下 TObject | TStream | TCustomMemoryStream
aixinnature·2008-10-17 09:00

delhpi 数据库中的图像存储和读取

下面的这段代码是在按了“保存”按钮之后所触发的事件处理程序：procedureTForm1.Button1Click(Sender:TObject);var MyJPEG:TJPEGImage; MS:
mitta·2008-10-16 20:00

delhpi 数据库中的图像存储和读取

下面的这段代码是在按了“保存”按钮之后所触发的事件处理程序：procedureTForm1.Button1Click(Sender:TObject);varMyJPEG:TJPEGImage;MS:TMemoryStream
一米制造·2008-10-16 20:00

一次Sqlhello溢出之旅

procedure TForm1.Button1Click(Sender: TObject);var name:array[0..255]of char;begin
hyuhan·2008-10-11 02:02

DELPHI 类引用

对象引用就是指向这个对象的指针  而类表用来存放一些指向VMT的只读指针和相关的信息  类引用就是指向这个类表的指针它的定义形式如下：TClass = class of type;//例如TClass = class of TObject
yc_8301·2008-10-06 14:00

WebBrowser执行脚本和调用外部方法。

IHTMLWindow2接口的execScript()方法，在Delphi中需要usesMSHTML单元：uses MSHTML;procedure TForm1.Button1Click(Sender: TObject
zswang·2008-10-06 09:00

DBGrid的分类颜色显示

实际上对于DBGRID的自画,delphi提供了两个事件供我们使用，一个是画行的：OnDrawDataCell(Sender:TObject;constRect:TRect;Field:TField;State
gzxiaorou·2008-09-15 18:00

给Listview加上进度条

 procedureTMainForm.FormShow(Sender:TObject);var  I:Integer;  ProBar:TGauge;  Li:TListItem;begin  forI
gzxiaorou·2008-09-15 18:00

DBGridEh自定义排序

1、先定义两个过程，接管它的排序行为procedure DBGridEhSortMarkingChanged(Sender: TObject);var  i: Integer;  strTemp: WideString
cyai·2008-09-15 10:00

在TstringList中加入对象时要注意的问题

在加入项目时可以加入一个关联对象，但在加入对象时要注意的是，加入的只是这个对象的地址，并不是值，所以如果使用下面的语句：fori:=1to5dobegin list.addObject(IntToStr(i),TObject
cyai·2008-09-14 11:00

Teechart 代码 C++ （转）　很全的Ｔｅｅｃｈａｒｔ应用

下面是我的一段代码（都是改自那个例子）：void__fastcallFormCreate(TObject*Sender);void__fastcallBBtnZoomInClick(TObject*Se
Player26·2008-09-04 14:00

创建动态窗体

中动态创建窗体有四种方式,最好的方式如下:比如在第一个窗体中调用每二个,主为第一个,第二个设为动态创建UsesUnit2;  //引用单元文件procedureTForm1.Button1Click(Sender:TObject
dongyonggan·2008-09-04 09:00

delphi里动态数组和指针的运用

{多维动态数组}procedureTForm1.BitBtn1Click(Sender:TObject);var Arr:arrayofarrayofarrayofInteger;{定义一个三维动态数组
bigpower521·2008-08-27 21:54

delphi里动态数组和指针的运用

{多维动态数组}procedureTForm1.BitBtn1Click(Sender:TObject);varArr:arrayofarrayofarrayofInteger;{定义一个三维动态数组}
bigpower521·2008-08-27 21:54

Delphi 类似实现QQ多窗口显示任务栏上

procedure TForm2.FormCreate(Sender: TObject);begin  SetWindowLong(Handle,GWL_EXSTYLE,(GetWindowLong(handle
bigpower521·2008-08-26 11:33

Delphi 类似实现QQ多窗口显示任务栏上

procedureTForm2.FormCreate(Sender:TObject);beginSetWindowLong(Handle,GWL_EXSTYLE,(GetWindowLong(handle
bigpower521·2008-08-26 11:33

delphi动态调用dll窗体

AHandle:THandle;ACaption:Pchar):Boolean;Stdcall;   调用部分代码 写道 procedure TForm1.N5Click(Sender: TObject
lh_zn·2008-08-01 15:00

IStream与TStream之间的相互转换

procedureTForm1.Button1Click(Sender:TObject);varmemoStream,OleStream:TStream;Stream:IStream;beginimage1
·2008-08-01 00:51

delphi中类和结构的使用

end; TMyClass=class  {定义类;虽然这个类没有什么实际意义,但就是一个类了}   d:TDate; end;procedureTForm1.Button1Click(Sender:TObject
cai5·2008-07-08 11:00

DELPHI数据集组件导出为EXCEL的DEMO

procedureTForm1.Button1Click(Sender:TObject);begin self.RsToExcel(adoquery1,'ss');end;procedure  Tform1
luoyanqing119·2008-06-20 14:00

delphi ord()

答：procedureTForm1.FormCreate(Sender:TObject);vara:string;begina:='啊';ShowMessage(IntToStr(ord(a[1])))
liquanhai·2008-06-01 04:00

Delphi6函数大全（2）

功能返回系统语言对象说明通过此函数可以得到系统的语言环境参考typeSysUtils.TLanguages例子///////BeginLanguagesprocedureTForm1.Button1Click(Sender:TObject
lujar·2008-05-27 12:00

历史上最全的delphi技巧集锦之二

答： procedure TForm1.SaveDialog1CanClose(Sender: TObject; var CanClose: Boolean); begin if FileExists
sq1228·2008-05-14 16:00

cxgrid类似于EXCEL的筛选功能的制作

procedureTForm1.Button1Click(Sender:TObject);var i:integer;begin  adoquery1.Open;  cxgrid1dbtableview1
lee576·2008-04-28 10:00

cxgrid类似于EXCEL的筛选功能的制作

procedure TForm1.Button1Click(Sender: TObject);var i:integer;begin adoquery1.Open ; cxgrid1dbtableview1
javatoyou·2008-04-28 10:00

Delphi 的RTTI机制浅探一

===========================⊙RTTI简介⊙类(class)和VMT的关系⊙类(class)、类的类(classofclass)、类变量(classvariable)的关系⊙TObject.Class
Tercel99·2008-04-11 17:00
上一页 38 39 40 41 42 43 44 45 下一页
按字母分类： ABCDEFGHIJKLMNOPQRSTUVWXYZ其他