TObject

Delphi 获取时间的年月日

procedureTFrmLltj.FormActivate(Sender:TObject);var  Present:TDateTime;  Year,Month,Day,Hour,Min,Sec,MSec
yanjiaye520·2011-07-26 09:00

c++builder隐藏程序任务栏图标

1.void__fastcallTfrmLogHook::FormCreate(TObject*Sender){DWORDdwExStyle=GetWindowLong(Application->Handle
yedezhanghao·2011-07-22 14:00

带历史信息的菜单

 procedureTForm1.alert(Sender:TObject);begin  ifSenderisTMenuItemthen   ShowMessage(TMenuItem(Sender)
jetjetlinuxsystem·2011-07-21 22:00

一个Delphi下Abstract Error问题的处理

后来终于找了原因.T1=Class(TObject)//这个我们假设是基类public   functionf1();virtual;abstract;T1s=Class(T1)       //这个是我们用到的类的父类
lopper·2011-07-18 09:00

Delphi字符串指针操作

使用过程中发现个问题需要注意，直接上代码吧： procedure TForm6.Button1Click(Sender: TObject);var  s:AnsiString; 
·2011-07-07 15:00

Delphi获取其它进程窗口句柄的3种方法

FindWindow或者用GetWindow来遍历查找，如：handle:=FindWindow(nil,PChar('窗口的标题'));或者：procedureTForm1.Button1Click(Sender:TObject
chinazhd·2011-06-24 20:00

485读头液显测试程序c++builder续上

-----------------------------------------------------------------void__fastcallTForm1::Button9Click(TObject
car_reader·2011-06-23 15:49

delphi判断电脑是否安装了excel

usesRegistry;procedureTForm1.Button1Click(Sender:TObject);varReg:TRegistry;beginReg:=TRegistry.Create
qiume·2011-06-21 11:00

遍历当前窗口名字

procedureTForm1.btn1Click(Sender:TObject);varh:HWnd;p:array[0..254]ofchar;TitleStr:string;beginh:=GetWindow
chinazhd·2011-06-20 21:00

购物打折与Delphi的Case<表达式> of 语句(附:源码）

购物打折与Delphi的Caseof语句procedureTForm1.Button1Click(Sender:TObject);var s,t:real;   //s为折扣后金额，t为未打折金额 m:
tzlin·2011-06-20 17:36

购物打折与Delphi的Case<表达式> of 语句(附:源码）

购物打折与Delphi的Caseof语句procedureTForm1.Button1Click(Sender:TObject);vars,t:real;//s为折扣后金额，t为未打折金额m:integer
tzlin·2011-06-20 17:36

Delphi 密码限3次登录程序(附:源码）

procedureTForm1.Button1Click(Sender:TObject);varpw,s:integer;begin//n:=0;//n是一个全局变量，这里不能给它赋值，否则n就失去全局变量的意义
tzlin·2011-06-20 17:16

Delphi 密码限3次登录程序(附:源码）

procedureTForm1.Button1Click(Sender:TObject);var  pw,s:integer;begin// n:=0; //n是一个全局变量，这里不能给它赋值，否则n就失去全局变量的意义
tzlin·2011-06-20 17:16

A窗口消失B窗口弹出

一、设计窗口1)file---new--Application，新建一个窗体，设置该窗体的属性：Caption==登录窗口2)procedureTForm1.btn1Click(Sender:TObject
chinazhd·2011-06-13 20:00

封装 INI 文件读写函数

//--首先要usesIniFiles(单元）//--窗体创建的时候，读取ini文件信息procedureTfrmAFN04H_F9.FormCreate(Sender:TObject);varvFIni
chinazhd·2011-06-12 23:00

如何获取图片中第一个像素的颜色值?

Dialogs,StdCtrls;typeTForm1=class(TForm)Button1:TButton;Button2:TButton;procedureButton1Click(Sender:TObject
chinazhd·2011-06-06 12:00

Delphi原创算法：动态创建30个按钮，每行6个共5行，顺序排列，显示在ScrollBox上

procedureTForm1.Button1Click(Sender:TObject);constiHtoH=20;//行间距iWtoW=10;//列间距iPerLine=6;//每行个数iWidth
zyyjc·2011-06-03 17:00

DropEdit

SysUtils,Classes,Graphics,Controls,Forms,Dialogs,StdCtrls,ShellApi;typeTMyNotifyEvent=procedure(Sender:TObject
haiou327·2011-05-30 23:00

建立程序互斥

procedureTForm1.FormCreate(Sender:TObject); begin CreateMutex(nil,False,'Form1'); ifGetLastError=ERROR_ALREADY_EXISTSthen
haiou327·2011-05-29 15:00

利用XML接口处理XML串数据

接口：IXMLDocument实例代码如下：procedureTForm1.Button1Click(Sender:TObject);varXMLString:string;IXMLDocumentInt
taste品味·2011-05-28 11:00

delphi idHttp下载文件

procedureTForm1.Button3Click(Sender:TObject);varh:TIdhttp;res:String;MyStream:TMemoryStream;beginMyStream
chinazhd·2011-05-23 18:00

delphi 通过HTTP获取软件版本

procedureTForm1.Button4Click(Sender:TObject);varmystr:string;beginMyStr:=IdHTTP1.Get('http://www.oro.com
chinazhd·2011-05-23 18:00

Delphi实现自我删除

Controls,Forms,Dialogs,StdCtrls;typeTForm1=class(TForm)Button1:TButton;procedureButton1Click(Sender:TObject
chinazhd·2011-05-23 18:00

delphi 写入文本教程代码

procedureTForm1.Button1Click(Sender:TObject);varLogFile:TextFile;beginifnotFileExists('c:/Log1.txt')thenbeginAssignFile
chinazhd·2011-05-23 18:00

注册表操作 写入autorun启动项，键值为本程序的全路径

procedure TForm4.Button2Click(Sender: TObject); var reg:TRegistry; begin reg:=TRegistry.Create
cqujsjcyj·2011-05-20 15:00

Delphi实现正弦曲线的绘制

本实例要在窗体上直接绘制正弦曲线，为了防止窗口切换的过程中会输出不完整的图形，因此绘制图形的关键代码都放在了窗体的OnPaint过程中，代码如下：   procedureTForm1.FormPaint(Sender:TObject
isolated·2011-05-14 12:00

Delphi 调用控件的过程，初学者都想知道

假设有过程： procedure TForm1.Button1Click(Sender: TObject);begin    ShowMessage('cfeers 你好
cfeers·2011-05-12 16:00

delphi操作xml

-------创建XML文档，以及节点------------------------------------------}procedureTForm1.CreateXMLClick(Sender:TObject
rosehacker2010·2011-05-10 13:44

窗口显示于parent控件上

procedureTForm1.btn1Click(Sender:TObject);begin withTForm2.Create(self)do begin   ManualDock(self);   
shuaihj·2011-04-29 14:00

全屏显示(Display forms full screen)

用下面的方法可以很简单地实现用窗口覆盖住整个屏幕： procedure TfrmMainForm.FormCreate(Sender: TObject); begin   { Position
robekeane·2011-04-25 10:00

关于DELPHI数组，指针，字符串转换的例子!(转)

var  aa:  array[0..5]ofChar;  bb:Pointer;  cc:string;  dd:PChar; procedureTForm1.Button1Click(Sender:TObject
baodi_z·2011-04-21 16:00

为uThreadPool增加线程池等待功能

.));}interfaceusesWindows,Classes;//是否记录日志//{$DEFINENOLOGS}typeTCriticalSection=class(TObject)protectedFSection
tg2003·2011-04-15 12:00

带参数的exit

万一博客中提到了这个带参数的exit，原程序是：procedureTForm1.Button1Click(Sender:TObject);vars:string;begins:=func('ABC');
hank5658·2011-04-13 14:00

遍历枚举类型

usesTypInfo;{以TAlign为例}procedureTForm1.Button1Click(Sender:TObject);varenum:TAlign;i:Integer;str:string
dropme·2011-04-08 09:00

delphi 执行一个外部程序，当外部程序结束后言主程序立即响应

usesshellAPI;procedureTForm1.Button1Click(Sender:TObject);varSEInfo:TShellExecuteI
aroc_lo·2011-04-05 23:00

Delphi中如何控制打印方向，纸张大小等

procedure TForm1.Button1Click(Sender: TObject); var ADevice, ADriver, A
xinzheng_wang·2011-04-02 16:00

判断Webbrowser是否加载完成

TForm1;glpDisp:IDispatch=nil;implementation{$R*.dfm}procedureTForm1.EmbeddedWB1DocumentComplete(ASender:TObject
dropme·2011-04-02 09:00

devexpress 动态调用皮肤

usesdxSkinsDefaultPainters;procedureTForm1.FormCreate(Sender:TObject);begincxComboBox1.Properties.Items
·2011-04-01 13:00

Delphi按名字调用方法高级解决方案

type    TProcedure = procedure(Test: string) of object;  procedure ExecuteRoutine(Obj: TObject
lfzhs·2011-03-30 10:00

枚举可以这样遍历

uses TypInfo; {以 TAlign 为例} procedure TForm1.Button1Click(Sender: TObject); var enum: TAlign
·2011-03-29 16:00

delphi实现圆角窗体

procedure TForm1.FormCreate(Sender: TObject); var   hr :thandle; begin   hr:=createroundrectrgn
cfeers·2011-03-23 17:00

delphi的单例模式TSingleton

type TSingleton=class public   classfunctionNewInstance:TObject;override;   procedureFreeInstance;override
dongyonggan·2011-03-22 09:00

idhttp用代理IP获取网页源码

procedureTForm1.btn1Click(Sender:TObject);var   Http:TIdHTTP;begin   Http:=TIdHTTP.Create(nil);   Http.ProxyParams.ProxyServer
tg2003·2011-03-18 13:00

实现TreeView结点拖拽的实例

下面的程序片段演示了如何实现拖拽treeview构件结点的例子{鼠标按下时执行的语句}procedureTForm1.Treeview1MouseDown(Sender:TObject;Button:TMouseButton
任远·2011-03-11 23:00

实现TreeView结点拖拽的实例

下面的程序片段演示了如何实现拖拽treeview构件结点的例子 {鼠标按下时执行的语句} procedureTForm1.Treeview1MouseDown(Sender:TObject;
wbryfl·2011-03-11 23:00

StringGrid单元格通过回车键切换单元格

procedure TForm1.StringGrid1KeyPress(Sender: TObject; var Key: Char);begin if Key=#13 then begin With
xinzheng_wang·2011-03-10 14:00

StringGrid文字居中

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState
xinzheng_wang·2011-03-10 12:00

Delphi中关于资源释放(Free,Relealse,FreeAndNil)

假如有对象Obj为TObject类型： 1) Obj.Free直接释放资源后，调用OnDestroy事件，但是没有将Obj指针值置为Nil。
xinzheng_wang·2011-03-09 10:00

为Excel动态添加Chart数据

range方法,经查MSDN,发现也可以使用数组,实践了一下:implementationusesComObj;{$R*.dfm}procedureTForm1.Button1Click(Sender:TObject
sxy_9761·2011-03-05 14:00

BCB中用Sender参数实现代码重用(修正版)

关键字：C++Builder,Sender参数,代码重用,Tobject类型,dynamic_cast,ch_builder作者：ch_builder  更新：2003-06-12  浏览：5574    
qq752923276·2011-03-03 17:00
上一页 32 33 34 35 36 37 38 39 下一页
按字母分类： ABCDEFGHIJKLMNOPQRSTUVWXYZ其他