TObject

delphi获取Ip

procedureTForm1.Button1Click(Sender:TObject);var  aName:array[0..100]ofchar;  WSData:Twsadata;  a1,a2
zhangshengqi·2009-07-31 19:25

获取时间

procedureTForm1.Button2Click(Sender:TObject);var date:SYSTEMTIME;begin GetLocalTime(date); showmessage
zhangshengqi·2009-07-31 19:37

分割 '12,11212,q,qweqwe,qw'; ExtractStrings

procedureTForm1.Button1Click(Sender:TObject);var tList:TStringlist;s1:string;l:Integer;begintry   s1:
zhangshengqi·2009-07-31 18:07

trunc()函数和Round()函数

trunc对浮点数进行取整操作 round对浮点数进行四舍五入操作  procedureTForm1.N21Click(Sender:TObject);varreal00:Real;beginreal00
fcrane·2009-07-29 21:00

调用外部程序的方法

有两种方法，可以用来调用外部的程序： （1）以WinExec函数的方式来调用指定的Windows程序的响应 代码如下：procedureTForm1.btnWinExecClick(Sender:TObject
fcrane·2009-07-27 08:00

delphi下用程序实现网络磁盘映

                                        procedureTForm1.Button1Click(Sender:Tobject);varNetR:NETRESOURCE
genispan·2009-07-21 11:00

点击wwDBGrid的标题进行排序

{--排序--cyj 2009-7-13}procedure TDispatchForm.wwDBGridSort(Sender: TObject;  AFieldName: String);
cqujsjcyj·2009-07-13 15:00

判断一个字符是否为汉字的最佳方法 字数,字符,字节统计

procedureTfrm1.memoTextChange(Sender:TObject);var i,e,c,c2,w:integer; s:String;//s:wideString;// 注:wideString
saindy5828·2009-06-30 15:00

delphi中Bmp转Jpeg JPG转BMP

delphi中Bmp转JpegJPG转BMP转自xjq2003的专栏在此致谢;----Bmp转Jpeg-----usesJpeg;procedureTForm1.Button1Click(Sender:TObject
anyqu·2009-06-19 13:00

TThread

类关系 TObject 在一个多线程的应用程序中创建一个TThread的后子类代表一个线程。每一新子类的TThread对象的实例是一个新的线程。
icelander·2009-06-08 22:00

如果知道，二维数据组中，具体的行数与列数

procedureTForm3.Button1Click(Sender:TObject);vara:array[1..2,1..4]ofinteger;beginedit1.Text:=inttostr
aroc_lo·2009-05-31 20:00

在OD中如果知道对象指针，如何找该对象的ClassName

我们知道，Obj.ClassName是一个函数而不是一个属性，而该函数的代码是： class function TObject.ClassName: ShortString; begin Result
isiqi·2009-05-29 14:00

Delphi6 把DateSet存为excel

use  comobj;      procedure  TForm1.Button3Click(Sender:  TObject);   var       e:variant;       i,j:
nihaiou·2009-05-27 16:23

Delphi6 把DateSet存为excel

usecomobj;procedureTForm1.Button3Click(Sender:TObject);vare:variant;i,j:integer;beginif(DBGrid1.DataSource.DataSet.State
nihaiou·2009-05-27 16:23

Delphi6 把DateSet存为excel

use  comobj;      procedure  TForm1.Button3Click(Sender:  TObject);   var       e:variant;       i,j:
nihaiou·2009-05-27 16:23

总结

procedureTForm1.Button7Click(Sender:TObject);var FromF,ToF:file; NumRead,NumWritten:dWord; Buf:array[
zhangshengqi·2009-05-26 10:13

提取小图标

procedureTForm1.Button3Click(Sender:TObject);var shfileinfo:tshfileinfo; icon:ticon;begin icon:=ticon.create
zhangshengqi·2009-05-23 15:44

动态FORM

procedureTForm1.FormShow(Sender:TObject);begin AnimateWindow(handle,500,AW_Center);    //AW_BLEND,AW_Center
zhangshengqi·2009-05-21 12:42

在Delphi中的TreeView中保存多个数据

 = ^TMyRec;TMyRec = record  FName: string;  LName: string;end;procedure TForm1.Button1Click(Sender: TObject
genispan·2009-05-21 11:00

Delphi小技巧杂记

//获取任务栏尺寸procedureTForm1.Button1Click(Sender:TObject);varTaskList:HWnd;Bordered:TRect;beginTaskList:=
winstonbonaparte·2009-05-19 11:00

Delphi 打印机编程,获取打印机设备名和端口名,Api函数

Printers; {$IFNDEF WIN32} const MAX_PATH = 144; {$ENDIF} procedure TForm1.Button1Click(Sender: TObject
heisetoufa·2009-05-18 17:00

Delphi 打印机编程,获取打印机设备名和端口名,Api函数

Printers; {$IFNDEF WIN32} const MAX_PATH = 144; {$ENDIF} procedure TForm1.Button1Click(Sender: TObject
heisetoufa·2009-05-18 17:00

Delphi 打印机编程,获取打印机设备名和端口名,Api函数

Printers; {$IFNDEF WIN32} const MAX_PATH = 144; {$ENDIF} procedure TForm1.Button1Click(Sender: TObject
heisetoufa·2009-05-18 17:00

Delphi 打印机编程,获取打印机设备名和端口名,Api函数

Printers; {$IFNDEF WIN32} const MAX_PATH = 144; {$ENDIF} procedure TForm1.Button1Click(Sender: TObject
heisetoufa·2009-05-18 17:00

Delphi 打印机编程,获取打印机设备名和端口名,Api函数

Printers; {$IFNDEF WIN32} const MAX_PATH = 144; {$ENDIF} procedure TForm1.Button1Click(Sender: TObject
heisetoufa·2009-05-18 17:00

Ansistring使用方法大全

Ansistring转char代码:void__fastcallTForm1::Button1Click(TObject*Sender){  AnsiStringTest="哈哈";  char*chr
Hou_Rj·2009-05-16 23:00

类 杂

的问题楼主westuser（）2004-06-09 11:15:50 在 Delphi / VCL组件开发及应用 提问比如myClass=class   of   TObject
cqujsjcyj·2009-05-13 16:00

在RichEdit中搜索

procedure TFileViewForm.ViewFindDialogFind(Sender: TObject);var  FoundAt: integer;  SearchType
cqujsjcyj·2009-05-13 15:00

将RichEdit的内容输出到image中

中的所有内容，然后再Image1.Picture.SaveToFile输出到一个BMP文件即可： uses RichEdit; procedure TForm1.Button1Click(Sender: TObject
cqujsjcyj·2009-05-13 15:00

获得RichEdit的当前光标位置

OnSelectionChange事件处理过程中加入适当的代码可以实时地获得当前光标位置，示例如下： procedure TForm1.RichEdit1SelectionChange(Sender: TObject
cqujsjcyj·2009-05-13 15:00

正确关闭一个MDI子窗口

解决办法是在子窗口的OnClose事件处理过程中加入如下代码，示例： procedure ChildForm.OnClose(Sender: TObject; var Action: TCloseAction
cqujsjcyj·2009-05-13 15:00

SaveDialog1确认文件存不存在的方法

procedure TForm1.SaveDialog1CanClose(Sender: TObject;var CanClose: Boolean);   beginif FileExists
cqujsjcyj·2009-05-13 15:00

我在form1上有四个edit,输完后我想用下上箭头键进行上移下移

答：procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;Shift: TShiftState);beginif key=vk_down
cqujsjcyj·2009-05-13 15:00

判断机器是否网络状态

uses WinInet;procedure TForm1.Button1Click(Sender: TObject);function GetOnlineStatus : Boolean;var ConTypes
cqujsjcyj·2009-05-13 15:00

系统菜单上添加自定义的菜单项

TWMSysCommand); message WM_SYSCOMMAND; constidMyFunc = $f200; procedure TForm1.FormCreate(Sender: TObject
cqujsjcyj·2009-05-13 15:00

自定义MEMO控件的边界

//自定义Memo控件的边界procedure TForm1.Button1Click(Sender: TObject);varRect: TRect;beginSendMessage(Memo1.Handle
cqujsjcyj·2009-05-13 15:00

获取任务栏尺寸

procedure TForm1.Button1Click(Sender: TObject);varTaskList: HWnd;Bordered: TRect;beginTaskList := FindWindow
cqujsjcyj·2009-05-13 11:00

Delphi 获取系统时间,获取系统年月日,时分秒

procedure TFrmLltj.FormActivate(Sender: TObject); var Present: TDateTime; Year, Month, Day,
heisetoufa·2009-05-11 13:00

Delphi 获取系统时间,获取系统年月日,时分秒

procedure TFrmLltj.FormActivate(Sender: TObject); var Present: TDateTime; Year, Month, Day,
heisetoufa·2009-05-11 13:00

Delphi 获取系统时间,获取系统年月日,时分秒

procedure TFrmLltj.FormActivate(Sender: TObject); var Present: TDateTime; Year, Month, Day,
heisetoufa·2009-05-11 13:00

Delphi 获取系统时间,获取系统年月日,时分秒

procedure TFrmLltj.FormActivate(Sender: TObject); var Present: TDateTime; Year, Month, Day,
heisetoufa·2009-05-11 13:00

Delphi 获取系统时间,获取系统年月日,时分秒

procedure TFrmLltj.FormActivate(Sender: TObject); var Present: TDateTime; Year, Month, Day,
heisetoufa·2009-05-11 13:00

delphi if语法,弹出提示框,不等于写法,判断是否为空

初学Delphi procedure TFrmLltj.cbb_xxlkChange(Sender: TObject); begin if Trim(cbb_xxlk.Text
heisetoufa·2009-05-11 10:00

delphi if语法,弹出提示框,不等于写法,判断是否为空

初学Delphi procedure TFrmLltj.cbb_xxlkChange(Sender: TObject); begin if Trim(cbb_xxlk.Text
heisetoufa·2009-05-11 10:00

delphi if语法,弹出提示框,不等于写法,判断是否为空

初学Delphi procedure TFrmLltj.cbb_xxlkChange(Sender: TObject); begin if Trim(cbb_xxlk.Text
heisetoufa·2009-05-11 10:00

delphi if语法,弹出提示框,不等于写法,判断是否为空

初学Delphi procedure TFrmLltj.cbb_xxlkChange(Sender: TObject); begin if Trim(cbb_xxlk.Text
heisetoufa·2009-05-11 10:00

delphi if语法,弹出提示框,不等于写法,判断是否为空

初学Delphi procedure TFrmLltj.cbb_xxlkChange(Sender: TObject); begin if Trim(cbb_xxlk.Text
heisetoufa·2009-05-11 10:00

dgbrid自动适应字段长度

procedure   TForm1.Button3Click(Sender:   TObject);       var
cqujsjcyj·2009-05-07 17:00

richedit内搜索字符

ComCtrls;       procedure   TForm1.FindDialog1Find(Sender:   TObject
cqujsjcyj·2009-05-07 17:00

Copyrect的使用

Copyrect的使用（图片复制、放大、以及做图片放大镜等）一、从一个选取一个区域中的图象到另一个图象组件中的固定区域procedure TForm1.Button1Click(Sender: TObject
cqujsjcyj·2009-05-07 17:00
上一页 36 37 38 39 40 41 42 43 下一页
按字母分类： ABCDEFGHIJKLMNOPQRSTUVWXYZ其他