TObject

Delphi设置全局快捷键

type TForm1 = class(TForm) procedure FormCreate(Sender: TObject); procedure FormDestroy(Sender: TObject
konglx·2007-06-02 09:00

下载者U盘传染源码

Windows,Messages,SysUtils,Forms,IniFiles;type      TFrm_Main=class(TForm)      procedureFormCreate(Sender:TObject
风故故，也依依·2007-05-26 01:00

如何得到远程ICO文件图标[整理]

有关如何用SHGetFileInfo或者其它函数取得FTP服务器上图标的问题 用以下函数不行，返回值为0：procedureTForm1.ListView1GetImageIndex(Sender:TObject
chinafe·2007-05-07 14:00

如何得到远程ICO文件图标[整理]

SHGetFileInfo 或者其它函数取得 FTP 服务器上图标的问题 用以下函数不行，返回值为0：procedure TForm1.ListView1GetImageIndex(Sender: TObject
61party·2007-05-07 14:00

动态连接数据库

dephi连接方法:procedure TloginForm.FormCreate(Sender: TObject);varcurrentPath,str,path:String;begin path:
rimoer·2007-04-25 18:00

delphi 的内存复制处理

type TRecord=record   a:DWord;   b:array[0..99]ofChar; end;procedureTForm1.btn1Click(Sender:TObject);
zblue78·2007-04-25 16:00

用TImage，TcxImage显示来自数据库的图片jpeg

procedure TForm1.FormCreate(Sender: TObject); var MyStream:Tmemorystream; MyJPEG:TJpegImage;
wapysun·2007-03-24 20:00

Delphi Abstract Factory(抽象工厂)

interfaceuses  SysUtils, Windows, Messages, Classes, Graphics, Controls, Forms, Dialogs;type  TCPU = class(TObject
whw6_faye·2007-03-21 16:00

Delphi之Factory Method(工厂模式)

TCPU = class(TObject)end;
whw6_faye·2007-03-21 15:00

在程序中压缩sql server2000的数据库备份文件的代码

复制代码代码如下:procedureTForm1.Button2Click(Sender:TObject);varSHExecInfo:SHELLEXECUTEINFO;beginSHExecInfo.cbSize
·2007-03-18 00:00

弹出式气泡，使用winAPI

SysUtils, StdCtrls,Commctrl;const TTS_BALLOON   =$40; TTM_SETTITLE=(WM_USER+32);type TBalloonHint=class(TObject
High_Mount·2007-03-17 20:00

findfirstfile的问题和遍历目录

自己的遍历某目录下文件procedureTForm1.Button1Click(Sender:TObject);var data:  WIN32_FIND_DATA; fhandle:cardinal;
cation·2007-03-08 16:00

关于cxgrid的系列（摘抄与使用时候的见解）

1：怎样将cxGrid里的数据导入到EXCEL，HTML，XML和TEXTuses cxExportGrid4Link;procedureTForm1.Button1Click(Sender:TObject
2004v2004·2007-03-06 17:00

关于combobox的datavalue的问题

可能大家只注意他的text值的，但如果显示的是text值，但你要用到value值进行搜索的时候，要怎办，提供下列做法，从 网上转帖procedureTForm1.Button1Click(Sender:TObject
webnumen·2007-02-12 15:00

苛评VCL: 混乱的TStream

为什么这么苛刻地来评论VCL的基础类设计，我已经在前一篇关于TObject的文章中讲过。今天我拿出在一次跟踪VCL代码的过程中发现的问题。在此之前，我没有任何理由会相信会存在这样的情况。
xiammy·2007-02-05 08:22

苛评VCL: 混乱的TStream

为什么这么苛刻地来评论VCL的基础类设计，我已经在前一篇关于TObject的文章中讲过。今天我拿出在一次跟踪VCL代码的过程中发现的问题。在此之前，我没有任何理由会相信会存在这样的情况。
ruilin215·2007-02-05 08:00

苛评VCL: 混乱的TStream

为什么这么苛刻地来评论VCL的基础类设计，我已经在前一篇关于TObject的文章中讲过。今天我拿出在一次跟踪VCL代码的过程中发现的问题。在此之前，我没有任何理由会相信会存在这样的情况。
xiammy·2007-02-05 08:00

苛评VCL: 混乱的TStream

<p style="text-indent: 21pt;">为什么这么苛刻地来评论VCL的基础类设计，我已经在前一篇关于TObject的文章中讲过。
yzd·2007-02-05 08:00

苛评VCL: 接口与TObject

在李维的《insideVCL》中详细描述了VCL中TObject的地位。是的Borland的工程师们有心将Delphi语言做成purelanguage。
xiammy·2007-02-02 00:21

苛评VCL: 接口与TObject

在李维的《insideVCL》中详细描述了VCL中TObject的地位。是的Borland的工程师们有心将Delphi语言做成purelanguage。
xiammy·2007-02-02 00:00

苛评VCL: 接口与TObject

<p style="text-indent: 21pt;">在李维的《inside VCL》中详细描述了VCL中TObject的地位。
yzd·2007-02-02 00:00

苛评VCL: 接口与TObject

在李维的《inside VCL》中详细描述了VCL中TObject的地位。是的Borland的工程师们有心将Delphi语言做成pure language。
ruilin215·2007-02-02 00:00

语法？BUG？

procedure TForm1.Button1Click(Sender: TObject); var v: ^Integer; p: ^Integer; i, Len: Integer;
sogotobj·2007-02-01 12:00

语法？BUG？

procedureTForm1.Button1Click(Sender:TObject);var v:^Integer; p:^Integer; i,Len:Integer;begin Len:=6; 
maozefa·2007-02-01 12:00

ModelResult问题

我在BCB中写:void__fastcallTForm1::BitBtn1Click(TObject*Sender){      if(Form2->ShowModel()==mrok)          
xgbing·2007-01-29 10:00

delphi tips and articles 5

procedure TForm1.Button1Click(Sender: TObject); var t:string; s,s1:WideString; v:WideChar; begin
wapysun·2007-01-07 17:00

使用gprs发送短信息.借鉴于别人的代码.有点小改动 使用spcomm

最初别人的代码有的卡不能发短信,使用手机,这个卡也发不出去短信,但是这个,我更改之后的,没有问题了 procedureTForm1.SpeedButton1Click(Sender:TObject);Var
2004v2004·2007-01-05 15:00

Delphi中压缩文件

其样例代码如下：procedureTForm1.Button1Click(Sender:TObject);varFileCompressed,I:Integer;FileName:String;beginifSaveDialog1
·2006-11-30 08:00

IXMLDocument 的Node属性和DocumentElement属性区别

kaoprocedure TForm1.btnReadClick(Sender: TObject);var  N: IXMLNode;  St: TStringList;  I: Inte
niniu·2006-11-07 15:00

Inside VCL:接口指针调用函数的时候，如何获得对象指针以完成函数调用？

对象方法相对于一般的方法，会多出一个隐含参数Self，因此对于Form1的一个过程： procedure TForm1.Button1Click(Sender: TObject);  如果不在对象中申明的话
xiammy·2006-10-17 16:14

TWebbrowser 中设置referer

Delphi中是这样设置的procedureTForm1.Button1Click(Sender:TObject);var Flags,Headers,TargetFrameName,PostData:
moeryang·2006-09-12 16:00

木马自我拷贝法[Delphi]

,如果不是就把自己拷贝到特定目录下,然后运行新程序,再退出旧程序.打开Delphi,新建一个工程,在窗口的Create事件中写代码:procedureTForm1.FormCreate(Sender:TObject
txf2004·2006-08-09 11:00

木马自我拷贝法[Delphi]

如果不是就把自己拷贝到特定目录下,然后运行新程序,再退出旧程序.打开Delphi,新建一个工程,在窗口的Create事件中写代码: procedure TForm1.FormCreate(Sender: TObject
xzknet·2006-08-09 11:00

delphi编程实现检测声卡存在

就必须用到一些检测系统的功能，其中检测声卡是否存在就是一个问题，下列程序帮你忙，首先需要在uses部分加入mmsystem，接着在窗体创建时检测声卡：procedureTForm1.FormCreate(Sender:TObject
wbryfl·2006-08-07 11:00

Delphi6 实现文本框的自动完成功能

hwndEdit:HWnd;dwFlags:DWORD):HResult;stdcall;external'Shlwapi.dll';procedureTForm1.FormCreate(Sender:TObject
tanaya·2006-08-02 13:00

DELPHI 虚拟继承示例

typet_object=class(tobject)//基类privatepublicm_int_age:integer;m_str_name:string;proceduresetage(p_int_age
sunlilei·2006-08-01 17:00

DELPHI 虚拟继承示例

typet_object=class(tobject)//基类privatepublicm_int_age:integer;m_str_name:string;proceduresetage(p_int_age
sunlilei·2006-08-01 17:00

Delphi 中的自定义类笔记（一）

类的声明有两种声明办法一、自定义类的父类delphi内建类type类名=class(父类) 成员表达式end;（1）保留字Class说明该类是dephi内建类，将继承父类的属性和方法（2）“父类”默认是delphi的祖先类Tobject
Tercel99·2006-06-19 00:00

Query参数parameter的操作

设置sql     注意：=：与cxybm中间是不能有空格的，否则报错（这个错误搞得我好晕）二、动态设置procedureTForm1.Button1Click(Sender:TObject);var 
Tercel99·2006-06-11 18:00

Delphi中的加密算法(MD5,MD4,MD3...)

示例代码 procedureTForm1.Button1Click(Sender:TObject); var MyMD5:
txf2004·2006-06-02 10:00

在TDBGrid中绘制一个多选框(CheckBox)

可在TDBGrid的OnDrawColumnCell和OnDrawDataCell事件中编写void__fastcallTForm1::DBGrid1DrawColumnCell(TObject*Sender
aniven·2006-06-02 02:00

TApplication大全

void__fastcallHandleException(System::TObject*Sender);当执行产生一个不响应Windows信息的事件的定制组件时，HamdleException过程对组件记录器有用
Tercel99·2006-04-25 11:00

uProcessMonitor

interfaceusesWindows,Messages,SysUtils,Classes,Tlhelp32,ShellAPI,ExtCtrls;type TProcessEvent=procedure(Sender:TObject
wbryfl·2006-04-16 23:00

delphi在TclientDataSet中動態創建表

delphi在TclientDataSet中動態創建表procedureTForm1.Button1Click(Sender:TObject);var table:TclientDataSet; i:integer
Java 人生·2006-04-10 12:00

TCPPWebBrowser中document使用

://dev.hackbase.com/hackbase10/how300178.htm看看吧void__fastcallTForm1::CppWebBrowser1DocumentComplete(TObject
hahu·2006-01-20 16:00

pi

pi2006年1月16日10:57:35 void __fastcall TForm1::Button1Click(TObject *Sender){  double x=2, z=2;  int a=
to the world·2006-01-16 10:00

论坛短消息攻击机关键代码

procedureTForm1.Button4Click(Sender:TObject);vari:Word;Document:IHtmlDocument2;str:string;beginfori:=
charm911·2006-01-11 21:00

模仿Windows的文本框右键菜单

(尚待改进...)void__fastcallTFormMain::AppEventsIdle(TObject*Sen
aniven·2005-12-19 17:00

让PageControl的Tab标签响应鼠标右键

在PageControl的OnMouseUp事件中:void__fastcallTForm1::PageControl1MouseUp(TObject*Sender,     TMouseButtonButton
aniven·2005-12-19 16:00

把控件的Hint显示在StatusBar上

在構造函數或FormCreate中:Application->OnHint=ShowHint;ShowHint為自定義函數:void__fastcallShowHint(TObject*Sender
aniven·2005-12-19 16:00
上一页 38 39 40 41 42 43 44 45 下一页
按字母分类： ABCDEFGHIJKLMNOPQRSTUVWXYZ其他