TObject 第22页

DBGridEh 导出数据到EXCEL文件

在窗体uses中，添加新的引用单元：DBGridEhImpExp procedure TFrmdbGridEh.ToolButton2Click(Sender: TObject

·2015-10-27 15:42

Delphi POS打印的处理

8月4日 delphi 小票打印 {打印代码} procedure TForm1.Button1Click(Sender: TObject

·2015-10-27 15:04

c++ builder 阻塞模式 socke 教程说明

void __fastcall TForm1::btn_1Click(TObject *Sender) {

·2015-10-27 14:35

delphi 使用进度条查看浏览器状态

使用进度条查看浏览器状态 procedure TForm1.WebBrowser1ProgressChange(ASender: TObject; Progress

·2015-10-27 14:58

delphi 为应用程序添加提示

nbsp; Panel1: TPanel; Edit1: TEdit; procedure FormActivate(Sender: TObject

·2015-10-27 14:57

delphi 添加节点

Button1Click ( Sender : TObject ); begin with TreeView1

·2015-10-27 14:57

delphi label1 文字在窗体上水平来回移动

//文字在窗体上水平来回移动 procedure TForm1.Timer1Timer(Sender: TObject); { Timer1.Interval:=10;} begin

·2015-10-27 14:56

delphi array应用 DayOfWeek星期几判断

//array应用 DayOfWeek星期几判断 procedure TForm1.Button1Click(Sender: TObject); var

·2015-10-27 14:55

delphi 保存网页

保存网页. html uses ActiveX; procedure TForm1.Button1Click(Sender: TObject); var persist

·2015-10-27 14:51

delphi 自动滚动到最底端scroll

scrollUses MSHTML;{$R *.dfm}var ScrollPos: integer=0;procedure TForm1.Button1Click(Sender: TObject

·2015-10-27 14:51

delphi treeview 鼠标移动显示hint信息

procedure TForm1.TreeView1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); var

·2015-10-27 14:50

TreeView1MouseMove

procedure TForm1.TreeView1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); var

·2015-10-27 14:50

TListView列表拒绝添加重复信息

//TListView列表拒绝添加重复信息 procedure TForm1.Button1Click(Sender: TObject); var

·2015-10-27 14:49

动态创建组件TEdit

//动态创建组件TEdit procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton; &

·2015-10-27 14:48

MessageBox

Button1Click ( Sender : TObject ); begin &nb

·2015-10-27 14:45

关闭计算器

//关闭计算器 procedure TForm1.Button1Click(Sender: TObject); var HWndCalculator: HWnd

·2015-10-27 14:45

保存图片

nbsp; 保存Image1图片 procedure TForm2.Button1Click(Sender: TObject

·2015-10-27 14:44

显示 png 图片

uses pngimage; {显示 png 图片} procedure TForm1.Button2Click(Sender: TObject); var

·2015-10-27 14:44

产生不重复的随机数TGUID

uses ActiveX; procedure TForm1.BtnNewClick(Sender: TObject); var ID: TGUID; S: string

·2015-10-27 14:43

XML解析、使用TreeView呈现效果

TXMLDocument控件； Memo来显示XML文件， TreeView来呈现元素；源代码： Procedure TForm2.Button1Click(Sender: TObject

·2015-10-27 13:34

Delph i2010

1、循环有了新用法 procedure TForm1.Button1Click(Sender: TObject); var s:String;ch: Char; begin

·2015-10-27 12:15

uniGUI试用笔记（六）

TUniFileUpload控件放置在窗体上，按下导入按钮后，执行TUniFileUpload的文件上传功能： procedure TfmeWebDBListEditBase.btnImportClick(Sender: TObject

·2015-10-27 12:48

Delphi程序的主题（Theme）设置

在项目的工程文件中勾选主题，设置缺省主题为Windows 部分代码如下： uses Vcl.Themes; procedure TfrmMain.Button1Click(Sender: TObject

·2015-10-27 12:46

Firemonkey TEdit 切换不同 KeyboardType 样式

用代码切换 Edit 不同的键盘样式： procedure TForm1.Button1Click(Sender: TObject); begin Edit1.KeyboardType

·2015-10-23 09:58

Firemonkey ListView 获取项目右方「＞」(Accessory) 事件

在 XE6 提供了 OnItemClickEx 事件可以辨识，如下例： procedure TForm1.ListView1ItemClickEx(const Sender: TObject

·2015-10-23 09:58

Firemonkey Bitmap 设定像素颜色 Pixel

和 Firemonkey 的 Bitmap 处理像素的方式不相同，下例为将图片内不是「白色」的像素全部改成「黑色」： procedure TForm1.Button1Click(Sender: TObject

·2015-10-23 09:57

XE7 移动平台 ShowModal 范例

procedure TForm1.Button1Click(Sender: TObject); begin Form2 := TForm2.Create(Self); Form2

·2015-10-23 09:56

修正 ListView 搜寻问题

适用：Delphi XE5 源码下载：[原创]修正ListView搜寻问题.zip procedure TForm1.Button1Click(Sender: TObject); var i:

·2015-10-23 09:55

Delphi消息分发机制

Delphi 的消息分发机制话说Delphi的消息分发机制的实现，有两个关键因素，第一个是TObject,另一个是，个人认为也是最重要的一个是，VMT(virtual method table).我们都知道

·2015-10-23 09:10

防止同一实例多个运行

procedure Tloginform.FormCreate(Sender: TObject); var errno:integer; hmutex:hwnd; begin

·2015-10-23 08:20

C++ Builder中获取桌面的大小

void __fastcall TForm1::Button1Click(TObject *Sender) { TRect hRect; SystemParametersInfo

·2015-10-23 08:43

sql工厂类

interface uses SysUtils, SqlExpr, DBClient, db, DBXCommon,Provider; type TMySQL = class(TObject

·2015-10-23 08:03

TSqlConnection

1.连接SQL SERVER数据库 procedure TForm1.Button1Click(Sender: TObject);var p: TSQLConnection;begin

·2015-10-23 08:00

rtti

// Rtti调用类的方法 procedure TForm1.Button1Click(Sender: TObject);var obj: TMyClass; t: TRttiType

·2015-10-23 08:59

SqlQuery池

interfaceuses Classes, Windows, SysUtils, forms, DB, SqlExpr, FMTBcd;type TSQLQueryPool = class(TObject

·2015-10-23 08:58

SqlStoredProc池

interfaceuses Classes, Windows, SysUtils, forms, DB, SqlExpr, FMTBcd;type TSQLStoredPool = class(TObject

·2015-10-23 08:57

这个STRING会结果显示什么？

/DelphiVCL/html/delphi_20061224123020155.html procedure TForm1.Button1Click(Sender: TObject

·2015-10-23 08:11

如何用 GDI 绘制阴影文字 - 回复 "Splendour" 的问题

www.cnblogs.com/del/archive/2010/01/09/1643019.html#1746542 procedure TForm1.FormPaint(Sender: TObject

·2015-10-23 08:04

简单的 "双缓冲" 绘图的例子 - 回复 "TookiQ" 的问题

譬如下面小程序: procedure TForm1.FormCreate(Sender: TObject); begin Timer1.Interval := 100; Color

·2015-10-23 08:04

Delphi 的绘图功能[15] - 再谈文字的高度与宽度: Canvas.TextExtent

procedure TForm1.Button1Click(Sender: TObject); var str: string; wh: TSize; w,h: Integer;

·2015-10-23 08:01

combobox问题!

delphi_20061222143942189.html procedure TForm1.Button1Click(Sender: TObject

·2015-10-23 08:31

delphi 打印小票

procedure TForm1.Button1Click(Sender: TObject);var F:TextFile;beginAssignfile(f,'LPT1'); rewrite

·2015-10-23 08:21

delphi时间查询

下面列举三种查询方法 1.parameter不需要# procedure TForm1.Button2Click(Sender: TObject

·2015-10-23 08:18

delphi中的DBGrid无法刷新数据

而要关闭整个程序再重新打开才能看到新数据代码如下：procedure Tprodgrid.FormCreate(Sender: TObject);begin ADOQuery1.Active

·2015-10-23 08:37

Delphi XE里的StrPas要注意哦

废话不多说了，直接上例子解说： procedure TForm1.Button1Click(Sender: TObject);var aa: array[0..1]of

·2015-10-23 08:02

bcb2010 post例子

记不住啊记不住，indy版本10.5.5 void __fastcall TForm1::btn1Click(TObject *Sender) { TStringList* params

·2015-10-23 08:30

ansistring 互转

//Ansistring 转 char 　　void __fastcall TForm1::Button1Click(TObject *Sender) 　　{ 　　AnsiString

·2015-10-23 08:23

c++ builder adoquery sql语句的动态增加

void __fastcall TForm1::Button4Click(TObject *Sender) { ADOQuery1-> Close(); ADOQuery1->

·2015-10-23 08:22

delphi Sender和Tag的用法

SelectedColor:TColor;//clBlack; //Defaultimplementation{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject

·2015-10-21 13:41

Delphi 读取CPU Id

在网上找了很久，终于找了一段能读出正确CPU ID 的代码，以下代码经过Delphi7测试 procedure TForm1.Button1Click(Sender: TObject); var

·2015-10-21 13:08

推荐频道

TObject