TObject 第12页

对象合成复用之策略模式

以策略模式举例： type TStrategy=class(TObject)//抽象策略 public procedure Hello;virtu

·2015-11-11 14:37

(转 )Delphi指针如何指向使用with开域语句创建的无名组件对象

procedure TForm1.Button1Click(Sender: TObject); var P: Pointer; begin P : =

·2015-11-11 13:13

不同进程间发送数据（DELPHI）

发送端 procedure TForm1.Button1Click(Sender: TObject); var ds: TCopyDataStruct; hd: THandle

·2015-11-11 13:12

test是否被执行？

procedure TForm2.Button1Click(Sender: TObject); function test(value:boolean):boolean; begin

·2015-11-11 12:39

泛型与无聊

type TActionComponent = class(TObject) public procedure Execute;virtual; end; TStuckPig

·2015-11-11 12:36

无边框窗体随鼠标移动

在窗体的MouseDown事件中写即可： Delphi: procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouse

·2015-11-11 11:36

随机产生不重复数字

个数据产生10个不重复的随机数 ----------------------------------------------- procedure TForm1.Button1Click(Sender: TObject

·2015-11-11 11:19

delphi2010 向另一个窗口发送鼠标点击事件

procedure TForm1.Button1Click(Sender: TObject);var szText: array[0..254] of char; hCurrentWindow

·2015-11-11 11:14

TMethod

onclick是TNotifyEvent类型; type TNotifyEvent = procedure(Sender: TObject

·2015-11-11 09:35

DBGRIDEH保存"显示标题"

2008-04-19 10:01:52//增加保存"显示标题"procedure TCustomDBGridEh.SaveColumnsLayoutProducer(ARegIni: TObject

·2015-11-11 09:15

AnsiString类型定义的时候可以直接指定代码页，比如950繁体字，936日文

procedure TForm3.FormCreate(Sender: TObject); type AnsiStringForPage = type AnsiString(950);//代码页

·2015-11-11 07:44

CopyMemory Move使用笔记

uses math; procedure TForm2.Button1Click(Sender: TObject); type TTArrayByte=

·2015-11-11 07:43

关于日期与字符串转换时出错的分隔符，小记一下容易忘记

procedure TForm2.Button1Click(Sender: TObject);var pDateTime:TDateTime;begin FormatSettings.DateSeparator

·2015-11-11 07:40

Delphi GDI+ 绘图（1）

//举例: {绘制直线} procedure TForm1.Button1Click(Sender: TObject);

·2015-11-11 06:04

Delphi初浅入门笔记之十二：多媒体编程五(绘制文字篇)

procedure TForm1.Button1Click(Sender: TObject); const arr:array[0..3] of WideString=('白日依山尽','黄河入海流',

·2015-11-11 03:30

Delphi初浅入门笔记之十一：多媒体编程四(画笔篇)

procedure TForm1.FormPaint(Sender: TObject); var trect1:trect; begin canvas.Pen.Color:=clred; //canvas.Pen.Width

·2015-11-11 03:30

Delphi初浅入门笔记之八：多媒体编程一(了解篇)

调用WindowsAPI播放声音： procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); begin sndplaysound

·2015-11-11 03:27

取SQLSERVER服务器上的时间

取SQLSERVER服务器上的时间 procedure TForm1.btn1Click(Sender: TObject);begin try qry1

·2015-11-11 03:58

delphi INI 文件

可以参考以下代码段 procedure TForm1.FormCreate(Sender: TObject); begin // 使用TIniFile类的Create成员函数建立TIniFile对

·2015-11-11 00:26

用 Delphi 下载网络文件

procedureTForm1.Button2Click(Sender:TObject);varMyStream:TMemoryStream;beginIdAntiFreeze1.OnlyWhenIdle

·2015-11-11 00:16

Delphi开发的IP地址修改工具

用Delphi进行开发的，直接修改注册表，需重启电脑后才生效 procedure TForm1.SpeedButton3Click(Sender: TObject); var reg:TRegistry

·2015-11-10 23:21

Delphi PageControl.TTabSheet与DriveComboBox.items同步

procedure TForm1.Button1Click(Sender: TObject); Var X,I,Y:integer; cText:String; bNext

·2015-11-10 23:19

Delphi 动态创建窗体，锁定窗口赋值

Var TempForm: array of TForm2; procedure TForm1.Button2Click(Sender: TObject); Var i:Integer

·2015-11-10 23:09

Button1.OnClick := Form1.Button1Click;

2）Procedure Button1Click(Sender: TObject); 这个过程归属于TForm1，还是Button1？

·2015-11-10 23:00

delphi 读写文本文件

procedure TForm1.Button1Click(Sender: TObject); //写文件 var wText: TextFile;begin AssignFile

·2015-11-10 23:50

OpenDialog获取文件名

//OpenDialog获取文件 procedure TForm2.Button1Click(Sender: TObject); begin File_Path:='';

·2015-11-10 22:56

BCB中移动无标题窗口的

void __fastcall TForm1::FormMouseDown(TObject *Sender, TMouseButton

·2015-11-10 22:23

[BCB] 遍历界面所有元素

） Components （TWinControl类，声明） Controls (1) 对Panel1中控件有效： void __fastcall TForm1::Button1Click(TObject

·2015-11-10 22:16

BCB 动态创建组件的事件响应

TPanel{private: TLabel *lblToday; void __fastcall lblTodayClick(TObject

·2015-11-10 22:14

TImage里的图形转为TJPEGImage，TBitmap

void __fastcall TForm1::Button1Click(TObject *Sender){ Graphics::TBitmap

·2015-11-10 22:14

TidSMTP 带附件发信

#include "IdAttachmentFile.hpp" void __fastcall TForm1::Button1Click(TObject *Sender) { IdMessage1

·2015-11-10 22:06

BCB获取应用程序图标并显示

void __fastcall TForm1::FormCreate(TObject *Sender){ SHFILEINFO

·2015-11-10 22:05

BCB中显示图片BMP和JPEG

void __fastcall TForm1::FormPaint(TObject *Sender){ //从资源中加载BMP图片显示

·2015-11-10 22:03

TCanvas类

类关系 TObject->TPersistent 　　对那些作图对象，可使用TCanvas对象作为画布。

·2015-11-10 22:02

BCB中基本图形的绘制

void __fastcall TForm1::FormPaint(TObject *Sender){ //绘制点 for (int

·2015-11-10 22:01

创建一个文字窗体

文字窗体代码 procedure TForm1.btn1Click(Sender: TObject); var rgn:HRGN; begin

·2015-11-10 22:18

Delphi中动态生成的button调用onclick如何传递参数

代码 // 自定义事件过程，过程名可以任意取 procedure TForm1.OnClick(Sender: TObject); begin

·2015-11-10 22:10

delphi中关于时间差的实例

·2015-11-10 22:08

最简单的限制edit输入

procedure TForm1.Edt_NumKeyPress(Sender: TObject; var Key: Char);

·2015-11-10 22:06

鼠标的获取和信息的识别

procedure TForm1.btnClick(Sender: TObject); var bmp:TBitmap; hCur : TCursorInfo

·2015-11-10 22:52

Delphi写的等待进程运行结束函数

procedure TForm1.Button1Click(Sender: TObject); var sCommandLine:&

·2015-11-10 22:44

DELPHI时间触发事件!

1 procedure TForm1.Timer2Timer(Sender: TObject); 2

·2015-11-10 22:35

有序类型的大小及最大、最小值

有序类型的大小及最大、最小值 procedure TForm1.Button1Click(Sender: TObject); var b: Byte; w: Word; i: Integer

·2015-11-09 13:04

获取对象的 RTTI 属性与事件的函数

uses TypInfo; {获取类的信息, 需要这个单元} //获取对象的 RTTI 属性与事件的函数function GetPropertyAndEventList(obj: TObject

·2015-11-09 13:01

如何处理MaskEdit 的异常

代码如下： procedure TQuanXFrm.edtPwMouseEnter(Sender: TObject

·2015-11-09 13:54

DataSnap侦听端口动态设置问题

使用DataSnap做服务器，端口设置为可配置，然后在程序中动态指定： procedure TscUPower.DataModuleCreate(Sender: TObject)

·2015-11-08 17:08

遍历枚举类型的值

1 uses System.TypInfo; 2 3 type 4 Taa=(aa,bb,cc,dd); 5 procedure Button1Click(Sender: TObject

·2015-11-08 16:20

表格控件表头栏目（Column）与数据表头步

procedure TForm1.SpeedButton1Click(Sender: TObject); Var LCount,I:integer; begin ADOQuery1.Clo

·2015-11-08 15:45

導出excel時操作checkBox

procedure TfrmCQS_QUOTATION.sbtnOutPutClick(Sender: TObject); var Path: string; fielname

·2015-11-08 15:41

在多次改变 RichEdit.Text部份文本的颜色后，出现所有字体都变色的的解决办法

Procedure TForm1.FormCreate(Sender: TObject); Begin RichEdit1.Text :=

·2015-11-08 15:07

推荐频道

TObject