查看: 12304|回复: 0

[转帖]C++ Builder 高手进阶

[复制链接]

字体大小: 正常放大

ilikenba

1万主题	49 听众	2万积分

TA的每日心情

	奋斗 2024-6-23 05:14

签到天数: 1043 天

[LV.10]以坛为家III

群组: 万里江山

群组: sas讨论小组

群组: 长盛证券理财有限公司

群组: C 语言讨论组

群组: Matlab讨论组

电梯直达

1^#

发表于 2004-12-22 15:18 |只看该作者 |倒序浏览

|招呼Ta 关注Ta

<DIV class=HtmlCode>C++ Builder 高手进阶
（一）编写弹出广告杀手

<a href="mailtnxyc_twz@163.com" target="_blank" >nxyc_twz@163.com</A>

一、系统分析

作为一名软件开发人员，必然会经常上网查找资料，可讨厌的广告真让人心烦。有没有办法自动关闭这些广告呢？答案是肯定的！也许你会说：“网上这类软件多的是，随便找一个不就行了？”，你说的确实不错，可作为一名软件开发人员，总不能什么都靠别人吧？自己动手作一个如何？说干就干，首先得找出弹出广告窗口的工作原理：

1．使用自己的《系统窗口分析器》（在下一期讲述其开发过程），轻易地就发现弹出广告窗口的特征：其窗口类是CabinetWClass或IEFrame。

2．如果找出窗口类是CabinetWClass或IEFrame的窗口，向其发送WM_CLOSE不就OK了吗？心里不由一阵窃喜！

3．使用定时器定时进行检测，找到符合条件的窗口就向其发送WM_CLOSE消息。

二、实战前沿

道理讲明了，可如何找到窗口类名呢？这就需要使用API函数了：

GetWindowText ：取得窗口文本

GetWindow ：取得窗口句柄

GetClassName ：取得类名

PostMessage ：发送消息

SetWindowLong ：设置方式

具体用法请查阅相关资料。

三、设计流程

1．启动C++Builder 5，新建一个Application，将Form的Name设置为Form1，其BoldStyle设置为bsNone，在Form的Icon中设置好图标。

2．定义数据变量：

TRAYICON_ID = 1;

ICONEVENT = WM_APP + 100;

TNotifyIconData TrayIcon ;

3．拖放一个Timer控件和一个Popmenu控件到窗体上。Timer的属性：Name->Timer1，Interval->1000；Popmenu1上追加三个子项：继续->ContinueCmd，PauseCmd->暂停，ExitCmd->退出。

4．使应用程序进入系统托盘：void TrayIconCmd(void);

TrayIcon.cbSize = sizeof(TNotifyIconData);

TrayIcon.hWnd = Handle;

TrayIcon.uID = ID_TRAYICON;

TrayIcon.uFlags = NIF_ICON | NIF_MESSAGE | NIF_TIP;

TrayIcon.uCallBackMessage = ICONEVENT;

TrayIcon.hIcon = Form1->Icon->Handle;

TrayIcon.szTip = “广告窗口杀手”;

Shell_NotifyIcon(NM_ADD, &TrayIcon);

5．使应用程序退出系统托盘：void TrayIconExit(void);

Shell_NotifyIcon(NIM_DELETE, &TrayIcon );

6．使应用程序启动后直接进入系统托盘：编写Form1的OnCreate事件

TrayIconCmd(); //在系统托盘中安装图标

Width = 0;

SetWindowLong(Application->Handle, GWL_EXSTYLE, WS_EX_TOOLWINDOW);

7．从系统托盘中卸载图标：编写Form1的OnClose事件

TrayIconExit();

8．自定义消息TrayIconOnClick：

在头文件.h中定义：

private:

MESSAGE void __fastcall TrayIconOnClick(Tmessage &message);

BEGIN_MESSAGE_MAP

MESSAGE_HANDLER(ICONEVENT, Tmessage, TrayIconOnClick);

END_MESSAGE_MAP(Tform)

9．鼠标点击系统托盘图标(TrayIconOnClick)，则弹出菜单：

Tpoint p;

if( message.lParam == WM_LBUTTONDOWN ||

message.lPram == WM_RBUTTONDOWN)

{

PopupMenu1-&gt

opupComponent = Form1;

SetForegroundWindow(Handle);

GetCursorPos(p);

PopupMenu-&gt

opup(p.x,p.y);

}

10．枚举指定窗口句柄的所有子窗口：void MENumChildWindows(HWND hand);

char tempstr[255];

bool IsPopWindow = true;

HWND h = GetWindow(hand, GW_CHILD);

while(h)

{

GetClassName(h, tempstr, 256);

if( !strcmp(tempstr, “WorkerA”) || !strcmp( tempstr, “WorkerW”))

if( IsWindowVisible(h) ) IsPopWindow = false;

h = GetWindow(h, GW_HWNDNEXT);

}

if( IsPopWindw )PostMessage(hand, WM_CLOSE, 0, 0);

11．双击Timer控件，添加其事件OnTimer：

char Text[255];

HWnd h := GetWindow(Handle, GW_HWNDFIRST);

while(h)

{

if (GetWindowText(h, Text, 255) > 0)

if (GetClassName(h,Text , 255)>0)

if ( !strcmp( Text, “CabinetWClass”) || !strcmp(Text, “IEFrame”))

EnumChildWindows(h);

h = GetWindow(h, GW_HWNDNEXT);

}

12．编写菜单响应事件：

ContinueCmd：继续

Timer1->Enabled = true;

PauseCmd->Checked = false;

ContinueCmd->Checked = true;

PauseCmd：暂停

Timer1->Enabled = false;

PauseCmd->Checked = true;

ContinueCmd->Checked = false;

ExitCmd:：退出

Close();

（二）系统窗口分析器

<a href="mailtnxyc_twz@163.com" target="_blank" >nxyc_twz@163.com</A>

记得《超级解霸》作者梁肇新先生曾在电脑报上发表过系列文章《开发手记》，写的极有深度，令我获益匪浅。其在文中称，每次要写一个新功能或新的界面时，总喜欢用spy++对现有类似软件进行分析，可非常容易地得到其采用的什么类或什么消息机制，从而可轻而易举地模仿出相关的功能。我在具体的软件开发工作中，也经常这样做，有时确实可起到事半功倍的作用。但本篇不是教你如何使用spy++，而是要教你如何自己编写一个类似于spy++的软件。

一、系统分析

要实现spy++的功能，首先要知道如何获取当前窗口句柄，以及当前窗口类。程序中主要使用定时器实现实时窗口句柄采集。

二、开发前沿

这里用到的API函数有：

SystemParametersInfo：取得指定的系统参数

SetWindowPos：设置窗口位置

GetCursorPos： //获得光标的位置

WindowFromPoint： //取得光标位置的窗口句柄

GetClassName：//获得类名

SendMessage： //获得窗口信息

三、设计流程

1．初始化应用程序窗口，使其总显示在最顶层：

void __fastcall TSpyForm::FormCreate(TObject *Sender)

{

//初始化

TRect R;

//取得桌面大小，并计算出程序窗口的位置

SystemParametersInfo(SPI_GETWORKAREA,0,&R,0);

Left = R.Right - Width; //窗口左上角列坐标

Top = R.Bottom - Height; //窗口左上角行坐标

SetStayOnTop(this, true); //设置为总在最前面显示

}

2．相关设置为总在最顶层显示函数：

void TSpyForm::SetStayOnTop(TForm * Form, bool Value)

{

//设置窗口是否总在最前面显示

if ( Value )SetWindowPos(Form->Handle, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE|SWP_NOSIZE);

else SetWindowPos(Form->Handle, HWND_NOTOPMOST, 0, 0, 0, 0, SWP_NOMOVE|SWP_NOSIZE);

}

3．定时器响应函数：

void __fastcall TSpyForm::TimerTimer(TObject *Sender)

{

//用定时器每隔0.1秒进行一切判断，以达到系统信息的实时显示

TPoint Pos;

HWND Handle;

char Buf[1024];

GetCursorPos(&amp

os); //获得光标的位置

Handle = WindowFromPoint(Pos); //取得光标位置的窗口句柄

HandleEdit->Text = IntToStr((int)Handle); //显示窗口句柄

GetClassName(Handle, Buf, 1024); //获得类名

ClassEdit->Text = Buf; //显示类名

SendMessage(Handle, WM_GETTEXT, 1024, Integer(&Buf)); //获得窗口信息

TextEdit->Text = Buf; //显示窗口信息

}

4．设置是否在最顶层显示：

void __fastcall TSpyForm::OnTopCheckBoxClick(TObject *Sender)

{

//设置最前面显示

SetStayOnTop(this, OnTopCheckBox->Checked);

}

（三）用BCB设计DBTreeView组件

一、系统分析

现在使用BCB的以越来越多，可是你有没有意识到，你所使用的控件究竟有几个是用C++编写的？答案肯定让人无法忍受，既然无法忍受何不亲自操刀写一套属于BCB自己的组件呢？我希望从我开始，众位高手能同心协力，共同打造真正属于BCB自己的组件！我不想讲述BCB设计组件的基础知识，因为这些在《C++Builder 5开发人员指南》中有详细的介绍。

我们所设计的DBTreeView派生自TtreeView组件，因此它将具有TtreeView组件的一切特性，我们要做的就是使其具有数据感知能力，与数据直接连接进行直接通信。要构造Tree形结构，我们应使每一个节点具备如下特征：每个节点有一个唯一标识符ID和一个父标识ParentID，（最顶层节点的Parent为空）为了显示相关内容，则还需要一上显示字段FDisplayField。该组件的工作原理已经很清晰了：通过每个节点的ID与ParentID定位数据记录，然后将相关字段内容赋给FdisplayField显示。

二、开发前沿

该组件中最重的技术莫过于数据感知了，下面就介绍一下数据感知技术：

要使某个组件成为数据感知的，我们必须给它提供所需的数据连接以便和数据训数据成员通信，这个数据连接类是TFieldDataLink。数据感知组件有其自己的数据连接类，数据连接由组件负责创建、初始化和销毁。建立连接通常需要3步：

1．将数据连接类（TFieldDataLink）声明为组件的成员；

2．声明适当的读、写访问属性；

3．初始化数据连接。

三、设计流程

//DBTreeView头文件

/在头文件中添加以下三行，因为/数据连接类需要这三个头文件中的声明

#include <Db.hpp>

#include <DbTables.hpp>

#include <DbCtrls.hpp>

//定义事件，用来响应设置节点位图事件

typedef void __fastcall (__closure *TDBTVSetImageIndexEvent)(System::TObject* Sender, int ID, int ParentID, int Level, int& ImageIndex, int& SelectedIndex);

//定义节点结构

struct TDBTreeNodeData

{

int ID; //节点唯一标识

int ParentID; //节点父标识，它为空时表示此节点是最顶层节点

};

class PACKAGE TDBTreeView : public TTreeView

{

private:

TFieldDataLink* FDataLink; //声明数据连接成员

AnsiString FParentIDField; //父标识字段

AnsiString FPrimaryIDField; //主标识字段

AnsiString FDisplayField; //显示字段

bool FActive; //是否为活动状态

bool FAllowModifyDB; //是否允许修改

TDBTVSetImageIndexEvent FOnSetImageIndex; //声明事件

void __fastcall SetActive(bool Value); //设置状态

void __fastcall SetDataSource(Db::TDataSource* Value); //设置数据源

TDataSource* __fastcall GetDataSource(); //取得数据源

void __fastcall ClearAllNodes(); //删除所有节点

void __fastcall FillTreeNodes(int ParentID, TTreeNode* Node); //填充节点

void __fastcall FillChildTreeNodes(int ParentID, TTreeNode* Node, bool Nest = false); //填充子节点

void __fastcall AddDataToNode(TTreeNode* Node, TDBTreeNodeData& Data);//追加数据到节点

protected:

//以下以个方法用来重载TreeView的相关方法

virtual void __fastcall Loaded(void); //Load方法

virtual void __fastcall Notification(Classes::TComponent* AComponent, Classes::TOperation Operation); //事件

DYNAMIC void __fastcall Edit(const tagTVITEMA &Item);//Edit方法

DYNAMIC void __fastcall Expand(TTreeNode* Node);//Expand方法

DYNAMIC void __fastcall KeyDown(Word &Key, Classes::TShiftState Shift);//键盘事件

DYNAMIC void __fastcall Change(TTreeNode* Node);//节点改变事件

virtual bool __fastcall CustomDrawItem(TTreeNode* Node, TCustomDrawState State, TCustomDrawStage Stage, bool &amp

aintImages);//自绘节点事件

public:

__fastcall TDBTreeView(TComponent* Owner);//构造函数

__fastcall ~TDBTreeView();//析构函数

TDBTreeNodeData __fastcall GetNodeData(TTreeNode* Node);//取得指定节点数据

void __fastcall FullExpand(void); //展开所有节点

__property bool Active = {read = FActive, write = SetActive};//属性活动状态

__published:

//以下定义在属性编辑器中用到的几个属性

__property bool AllowModifyDB = {read = FAllowModifyDB, write = FAllowModifyDB};//是否允许编辑

__property AnsiString ParentIDField = {read = FParentIDField, write = FParentIDField};//父标识

__property AnsiString PrimaryIDField = {read = FPrimaryIDField, write = FPrimaryIDField};//主标识

__property AnsiString DisplayField = {read = FDisplayField, write = FDisplayField};//显示字段

__property TDataSource* DataSource = {read=GetDataSource, write=SetDataSource};//数据源

__property TDBTVSetImageIndexEvent OnSetImageIndex = {read=FOnSetImageIndex, write=FOnSetImageIndex};//设置节点位图事件

};

//下面的类用来填充字段列表

class TFieldNameProperty : public TStringProperty

{

public:

TPropertyAttributes __fastcall GetAttributes(void)

{

return TPropertyAttributes() << paValueList;

}

void __fastcall GetValues(Classes::TGetStrProc Proc);

};

（三）用BCB设计DBTreeView组件（续一）

//DBTreeView详细设计.CPP文件

__fastcall TDBTreeView::TDBTreeView(TComponent* Owner)

: TTreeView(Owner)

{

//在构造函数中对相关数据进行初始化

FDataLink = new TFieldDataLink; //建立数据连接类

FParentIDField = ""; //将节点父标识设置为空

FPrimaryIDField = ""; //将节点主标识设置为空

FDisplayField = ""; //将显示字段设置为空

FActive = false; //设置为非活动状态

FAllowModifyDB = false; //设置数据集不允许修改

}

__fastcall TDBTreeView::~TDBTreeView()

{//在析构函数中释放构造函数分配的资源

delete FDataLink; //释放数据连接类

}

void __fastcall TDBTreeView::SetActive(bool Value)

{

//设置状态是否为活动

if (FActive != Value) //如果指定状态与当前状态一样，则不做处理，直接返回

{//否则

if (Value)//如果指定值为true则

{

if (FDataLink->DataSource == NULL)//如果未指定数据源则抛出一个异常

throw Exception("Missing DataSource property.");

if (FDataLink->DataSource->DataSet == NULL)//否则，如果数据源中未指定数据集，也抛出一个异常

throw Exception("Invalid DataSource.");

if (FParentIDField == "")//如果父标识字段为空，抛出一个异常

throw Exception("Missing ParentIDField property.");

if (FPrimaryIDField == "")//如果主标识字段为空，抛出一个异常

throw Exception("Missing PrimaryIDField property.");

if (FDisplayField == "")//如果显示字段为空抛出一个异常

throw Exception("Missing DisplayField property.");

//补充说明：从以上几个异常您应该不难看出我们这个组件需要的环境：

//必须指定数据源，数据集，节点父标识字段，主标识字段，显示字段

ClearAllNodes();//删除原来所有节点

FillTreeNodes(0, NULL);//填充所有数据到各节点

}

else

{//如果指定值为false则

ClearAllNodes(); //删除所有节点

}

FActive = Value; //将指定值赋给FActive

}

}

void __fastcall TDBTreeView::SetDataSource(Db::TDataSource* Value)

{//设置数据源

if (Value != FDataLink->DataSource)//如果指定值与当前值不一样，则

{

FDataLink->DataSource = Value; //将数据源当前值设置为指定值

}

}

TDataSource* __fastcall TDBTreeView::GetDataSource()

{//获取数据源

return FDataLink->DataSource; //返回与数据源

}

void __fastcall TDBTreeView::ClearAllNodes()

{//删除所有节点,调用TreeView的相关方法进行遍历式节点删除

for (int i=0; i<this->Items->Count; i++)

delete (TDBTreeNodeData*)(Items->Item->Data); 1 b0 Y) k/ }; i  B$ n  t$ K

  R( o; ^' S( R4 [) }3 S
* z& h" X  q" P8 Y6 r5 x
  P& ~' f8 i: j4 Gthis->Items->BeginUpdate(); ! X* i) F( ~0 h+ Q  }. l4 E

8 T9 _; a: E$ r, o( A. Y& z/ C  c' Cthis->Items->Clear();   G9 g5 g, I1 Y* g- j
- |) m! k  X, R
this->Items->EndUpdate(); $ J8 V5 ~% a8 |7 D  l
$ [: [" F9 Z, q5 I
} " L6 R+ ]% [& Y9 y, F
$ d2 s2 b$ _1 J! |4 H7 l( ~' J; V
void __fastcall TDBTreeView::FillTreeNodes(int ParentID, TTreeNode* Node) 7 T; ~( w  B9 E0 q. R% d# A) @

3 j# e0 d/ F0 B7 n$ D+ Q{//填充数据到节点
( s+ R; k$ W, ]1 I' r7 D; Z: b( ?/ n/ @' ~  g) z# K9 Q: l
TQuery* AQuery = new TQuery(this);//创建一个数据集控件 ' R5 U/ @1 c% |. J& w

* `, [; M" T8 ^4 N' m( }* NAnsiString strSql, strText; , Z6 e/ V" B1 c( ^

6 @, D+ f4 [7 s) U. y1 Mint iID, iParentID; 6 x) L, l) A( R! ]6 J

6 o7 k) Q6 S0 K6 Nint iImageIndex, iSelectedIndex; 2 E- c2 [5 m& P+ q4 }6 Q
7 b3 U* w* r8 S  B, O$ n1 r
TTreeNode* TreeNode;
+ P9 c" w, y3 W% L) r% j/ W- u* `. o  m, J
TDBTreeNodeData NodeData; 6 g4 s  A  z. O2 {

9 U3 w; g* _/ g" T% R7 W//用指定条件打开相关数据表
$ G" @. Q; I* M! o9 r! N9 O
8 @; ^7 @7 S1 k; hAQuery->DatabaseName = ((TTable*)(FDataLink->DataSource->DataSet))->DatabaseName;
! P: b, {# V+ k5 E% p8 h" W, w2 {5 T" V0 O- K
AQuery->Close();//关闭数据集 $ W$ S/ ]( i3 }( z6 H7 w1 m8 A

3 Y( F4 N3 e& PAQuery->SQL->Clear();//清空原查询条件   [2 x; `+ z# Y/ G; _5 C

5 a) X- V: C. |. z4 G
9 P4 M+ Q5 \6 u6 n
& }4 b4 m: u% w. k7 {6 t, NstrSql = "SELECT * FROM " + ((TTable*)(FDataLink->DataSource->DataSet))->TableName + " WHERE ";
& H/ Y' ^) H' N5 m6 g# L
4 O( N" h9 h9 Y& VstrSql += FParentIDField + "=ID"; 8 z. ^2 w! B# T( }& o! z! R/ d

( m5 x; Z" L( s; f
  k$ Q5 O' \- p# G) g
7 I% ~  \; ~; jAQuery->SQL->Add(strSql);//指定新的查询条件   T- I' R. c5 F( x8 x+ a6 e6 b
5 h5 ]# k3 O$ E! ~! }
AQuery-&gtaramByName("ID")->AsInteger = ParentID;//取得父标识字段内容
' T" u' m0 ~0 r) g  I9 p% [6 J( u9 J5 E
AQuery->Open();//打开数据集 ! S4 d1 x0 z  P) W

1 C9 `$ R! ]7 R5 i; a; m8 G9 F
; t  O, s5 Z' H7 Y
4 Y% M& `6 _4 L' `+ g! V& rthis->Items->BeginUpdate();//准备更新DBTreeView显示
/ O# w* L" ]8 l( E, v3 \' |$ N$ N: o) t

: [3 ]* z  @& b% a0 Z
; E% K+ I) H) {' B3 H: O, k- bwhile (!AQuery->Eof)//数据没有到数据集尾，则 6 h8 z* }7 Q  R% i1 }6 k
+ D2 |! u4 S6 ~7 m/ H" w: ?
{ 8 \$ ^. v" q& v& R* L2 I/ G

6 j+ W4 q7 J/ ostrText = AQuery->FieldByName(FDisplayField)->AsString;//取得显示字段内容 % Y/ C! R1 [, E

# I2 c; E. j: S" P& YiID = AQuery->FieldByName(FPrimaryIDField)->AsInteger;//取得主标识字段内容
& w3 v5 p6 _/ x/ s  q8 n! H+ e$ V" T  Q; |+ s# I
iParentID = AQuery->FieldByName(FParentIDField)->AsInteger;//取得父标识字段内容 % d$ ~6 [. C+ t
2 R) {4 l6 n1 f: G
2 C; t0 G6 {  C8 ~/ o" P/ h
1 `3 ^; N2 Z. {4 J
TreeNode = this->Items->AddChild(Node, strText);//添加此子节点
3 T7 V1 m/ \6 `6 ^! X+ x! J2 i# Z0 A4 z, V2 U9 c
iImageIndex = iSelectedIndex = -1;//将节点位图与选中时位图设置为空（-1） $ `- P. \! u7 G$ T, Y4 u9 c* U5 \+ m
4 d1 _5 ?+ r% s; Z; C, Q2 M
if (FOnSetImageIndex) FOnSetImageIndex(this, iID, iParentID, TreeNode->Level, iImageIndex, iSelectedIndex);//如果位图设置发生变化，则触发相关事件
% y# B$ S0 S# P& J$ f! p  F) q6 c
7 M) ?% X. L& r1 u4 a: l; mTreeNode->ImageIndex = iImageIndex;//设置节点位图及选中时的位图
- @3 v- C3 _0 E) `& _  m2 }
2 Y- s9 @& T3 u. b7 O- G8 @TreeNode->SelectedIndex = iSelectedIndex; * \. k- N$ y* {' ^
" m! j) r+ Z/ H$ |! @8 L' u6 D
5 p, Y/ W( h- U; C

5 X& A+ |2 q" i( X/ jNodeData.ID = iID;//设置节点标识及父标识 ( R, }5 G: D# t( G% i: C% k4 o! n

" p0 {$ e/ o* L* I. T) ANodeData.ParentID = iParentID;
/ u! }; r( x: h$ @/ o- I
7 c! [& f5 t# rAddDataToNode(TreeNode, NodeData);//追加数据到指定节点 . D6 y9 Z/ @( W6 ]
* _7 r/ B; `0 R/ ~6 k
! I' u4 @/ d3 M" q- l9 }, Z

& c9 s1 M4 Z8 |# ZFillChildTreeNodes(iID, TreeNode, false);//填充子节点 4 A6 K2 K; o- @# z" i

  z! S4 s% T5 OAQuery->Next(); //移到下条记录 7 b0 ^5 A) V( i- I; m# G
3 v! b7 @+ F7 N" `( G" U- M
}
+ s9 B- U$ C' K: K9 c; D
2 O  A6 m6 n' H& \2 ^. ]* w
7 U3 N  L& u, {% b7 q  P, [1 W$ ^; H) [* H  ~
this->Items->EndUpdate(); //更新DBTreeView组件 & n# D( @) v4 f9 m9 u! ?
5 _7 ~, n0 z2 L; g

2 I& T. {: t2 j5 t; H, A; L: H' [* O0 q9 i3 f+ J/ p' b! [% C
AQuery->Close(); //关闭数据集 1 r' P- O# e' m8 O4 s

9 P* j7 N/ \# t. T( E8 X6 [; bdelete AQuery; //删除临时创建的数据集控件
2 q8 M, K# G0 ]( W
) X0 S& @; B0 G} 5 }- C8 {* H& @/ P" X% e$ N. g
5 |9 E/ t. |7 I) z! b5 q
（三）用BCB设计DBTreeView组件(续二） ! k( d0 O" _# j8 u, r
" f) l0 f- N; h* `6 e& f; Y2 l4 C( R
void __fastcall TDBTreeView::FillChildTreeNodes(int ParentID, TTreeNode* Node, bool Nest)
$ z9 Z8 y, L! _5 }! _; \' ?) m, k4 {9 q# q  a" S1 C3 t
{//用指定值填充子节点
+ Y* x+ }' P) [! r" q8 M7 k2 B( z1 s, v. x
TQuery* AQuery = new TQuery(this);//创建一个数据集控件
; a: T; I9 D( |2 r% b3 s
& N- m4 T) U2 zAnsiString strSql, strText; 7 {8 M9 l3 d1 W/ ~& Q; i
' T6 `7 h) {* A3 V, ]
int iID, iParentID;
3 C. o" D9 U) y# T' f4 V0 r- w+ |) Z  N6 J8 k* q
int iImageIndex, iSelectedIndex;
6 o" j# Z1 s+ F, l3 t# Q- J) N2 i0 h8 }
TTreeNode* TreeNode;
, I' O& W7 Q0 c3 D+ w  _  {2 Q" w) ?
TDBTreeNodeData NodeData;
# I2 y, ]6 ]( D* X8 l9 x2 ?- e0 ?9 f$ L. }: ]3 {
//设置数据集的各项参数 - i" Y0 ]6 }) `# [$ U$ L

" ^% w: L1 m+ j' x7 `, {AQuery->DatabaseName = ((TTable*)(FDataLink->DataSource->DataSet))->DatabaseName;//设置数据库名 2 ~; j* z1 z  S* y7 t
8 H, r4 Z9 r& A  g
AQuery->Close();//关闭数据集
" \* Z7 p( M( a& b
, f3 p6 P. \. S' C2 BAQuery->SQL->Clear();//清空原SQL语句
) f2 j( T4 I, w6 B% o* J7 z
& m1 D; d1 ~. |0 H
0 E: R7 C& u/ k) Q
- U% F" V/ V* mstrSql = "SELECT * FROM " + ((TTable*)(FDataLink->DataSource->DataSet))->TableName + " WHERE ";
& i0 O/ w" |. E# r# w8 d/ {1 p+ i0 ~6 @8 M, j
strSql += FParentIDField + "=ID";
% w( c; e; |6 ?3 ~& ~1 N  E
0 c2 s8 U. `2 m4 n3 N4 V
* r6 N: D  H6 l6 v. e" `2 J
- W( N3 i% E/ r4 z& qAQuery->SQL->Add(strSql);//指定新的SQL语句
. [( T1 m! ~1 {5 k6 e
! e8 y4 D% c% c& C7 {  j5 T2 SAQuery-&gtaramByName("ID")->AsInteger = ParentID;
  q+ P4 A/ ~4 M& N: j6 P9 q6 ?3 |4 \2 G# J
AQuery->Open();//打开数据集
6 @! w% \* t$ g/ T, w; t
9 W& i' q6 u6 V0 l. z4 M1 R& e! J' s: r' l" O& O
: q( P: W3 d; L8 j! F
this->Items->BeginUpdate();//开始更新DBTreeView组件显示 9 Y  f! a4 \2 z2 R

8 }& q. q- [! a' }2 b8 K+ H& k+ [8 }# C' v" x
. X" p, B7 c5 T; B6 l  S" G& x
while (!AQuery->Eof)//未到数据集尾部 ( k8 c) r2 J$ N& i" _  ]( i3 k

3 c$ J; A7 N; p{
/ _! o# Y) F* {
1 F( F$ O: P4 w+ r6 QstrText = AQuery->FieldByName(FDisplayField)->AsString;//取得显示字段内容 " x5 s4 Z1 o1 @
% ~6 o/ O( _; H. s2 P( I
iID = AQuery->FieldByName(FPrimaryIDField)->AsInteger;//取得主标识字段内容
9 }- G0 ^2 g* C- x: L8 N, ]/ e) I* H# s' _/ `0 R
iParentID = AQuery->FieldByName(FParentIDField)->AsInteger;//取得父标识字段内容
4 a1 s0 d2 s# l. S
' i4 C- k$ D8 Q5 N4 w! C% j+ Q6 C# l
2 O# b! i0 a: s* M1 p( C
( t2 Z# V4 A7 [TreeNode = this->Items->AddChild(Node, strText);//将上面取得的相关数据追加到新节点 ( C* ^/ P4 h& C6 `! ~- D

$ Z# f$ _$ Y8 W  H) {7 H- IiImageIndex = iSelectedIndex = -1;//设置节点位图与选中时位图 ! R% N- O" L/ z

  M. r6 H1 d, U( d" ?- {: k9 e5 _if (FOnSetImageIndex) FOnSetImageIndex(this, iID, iParentID, TreeNode->Level, iImageIndex, iSelectedIndex);//如果设置位图发生变化，则触发相关事件 ; |0 i/ y4 \9 S4 {$ T

$ z; E* G. h& Q/ K" @) kTreeNode->ImageIndex = iImageIndex;//设置节点位图及选中时位图
1 v( J4 B, p" a! U) Z) Q! o
: k# i6 C4 I1 P3 m5 j! O/ ?! iTreeNode->SelectedIndex = iSelectedIndex; " G* G- E7 `, h7 h6 W
5 @. p' G/ M2 {

& `" @% I. Y. ~) X3 y- T
# o' Y; U2 @7 kNodeData.ID = iID;//取得节点主标识，父标识，并按其追加一个新节点
8 Z) x: q/ P" P& ]/ ]& a, ^  h" E1 X  u. i9 W* g
NodeData.ParentID = iParentID;
* _9 }! b% u# a1 N' Q  s
3 I* [6 [; h3 c* F. L/ ^. @$ K& zAddDataToNode(TreeNode, NodeData); / O# X  E8 y' ]

" D0 O+ ^% T' X# Z' M; H7 ^' T! r5 z: R  z

% [, s, \& g+ Q2 I' ?5 vif (Nest) FillChildTreeNodes(iID, TreeNode);//如果指定参数Nest为true，则递归调用以填充所有子节点
8 ]6 E  y$ _3 R/ J" H) R  g3 ]
( S1 I+ j. p7 [6 l: v" wAQuery->Next();//移动到下一条记录 + g3 L* C- f7 W

+ N6 E3 Z, E, i" Z8 B: r} 0 e% u, C, C+ S
; X& X" i. P' f/ z9 O* M& [) U; g
9 O% e% g; X4 Y- D  J( F' G
6 f: P- E- F. f# W% X5 `! O' b
this->Items->EndUpdate();//结束DBTreeView组件更新 & f8 H' @5 B  B8 Z" M, K8 e

* F, H! q# Z1 W3 t- Y7 d8 n% C+ O! Y2 v* X3 P8 G1 n

1 y  Q9 ~% U# q! VAQuery->Close();//关闭数据集
5 H# O" n+ b5 t5 Y4 ~4 {, h- |; }- r$ n8 x1 D
delete AQuery;//删除临时创建的数据集控件 * Z: W/ }8 z$ z0 |& v3 Z9 Z

* r( r( e0 {5 O} ; e. ^( ]+ h* f

) D) q9 E- e1 V' F$ k8 ]void __fastcall TDBTreeView::AddDataToNode(TTreeNode* Node, TDBTreeNodeData& Data)   h3 g; X2 |( \6 f% R

1 m/ G0 T* N9 s# o, s3 v& j$ ]{//追加数据到节点 - f( m# ^9 p) w! Q

. a. r/ @3 F+ n8 T: nTDBTreeNodeData* pData = new TDBTreeNodeData; - Z3 W9 |: [: ]! g" g
6 \* f# G, a1 T
*pData = Data;
/ L$ D& I& K7 |. ~, B  a& A
; [) l8 K% J/ y2 t$ l, yNode->Data = pData;
5 D" ~$ `0 H, l) M! u( Y! L8 ]# o, Y. Y( E
}
( d2 b! e: W: }% N0 u1 c9 u$ L- B+ I) M, e5 m+ r- j' `# `0 ]; o
//---------------------------------------------------------------------------
+ x: @) t5 i4 a% p* v; t0 Q* b3 b  Y  a
TDBTreeNodeData __fastcall TDBTreeView::GetNodeData(TTreeNode* Node) . V! F+ x- K6 |8 x$ e* F0 Z' S

" C3 X% }# J6 h  w) T{//取得指定节点的数据
5 d% E" n1 \% J" m0 j, g
7 l: w3 _1 h# [, F0 H4 xreturn *(TDBTreeNodeData*)(Node->Data);
. }% n9 N2 a3 C+ W6 x' Q8 d' {& p- @6 a
} # o9 P- L4 Y! u" }9 m
1 b* ]! f6 }/ U
//---------------------------------------------------------------------------
; ~! Y! w5 i( d) w. r* |& O
' L% h: R& }# m7 ~# v9 |; z" xvoid __fastcall TDBTreeView:oaded(void)
7 R7 Z' Z, v# ]& D9 J$ r8 r
$ B& O  W1 ]* Z) `! V' h{//调用原Load方法 + E, E/ V1 ]8 f2 I+ Q  P5 G
  n$ n: T/ A6 U3 S1 i: J
TCustomTreeView:oaded();
$ m6 h  k, s& o# I9 b- O+ x
  d5 f* U7 u$ o% t# G2 I+ }$ ~% l. Y/* TODO : Loaded */ & r( Q6 B4 ~& C* ^
! B3 t& g, Q# i+ p1 `1 \( O
} 3 o! i8 M8 T1 B; `/ C3 h# |
0 U+ U1 i* N& l, K6 M9 o0 l
//--------------------------------------------------------------------------- ) b* ]7 r0 o2 i& w9 j
1 _7 @% r7 ~0 t( ?+ }5 u4 |
void __fastcall TDBTreeView::Notification(Classes::TComponent* AComponent, Classes::TOperation Operation) ( u# u: [- N# T1 e; U8 y' C8 `3 j( E8 {/ {

9 R5 d' o- N& s$ R6 i" i{   u  a4 @4 G" r# ~8 n$ E+ H3 v

& D2 c2 ]3 ~3 L* m3 Q; x//事件响应 . x( I) N6 Z, O5 |7 x! s+ E
9 T  a+ H2 g$ A2 V, w
TCustomTreeView::Notification(AComponent, Operation);//调用原方法
; X6 D7 e, Q$ U. E1 w
4 j4 }2 Z- i4 c( i. [if ((Operation == opRemove) && (FDataLink != NULL) && (AComponent == DataSource))//如果操作为opRemove以及数据连接不为空且指定组件为数据源，则
, y8 \% v' y5 P; z0 l1 h' K) \: Z6 d6 \- W1 C- b
DataSource = NULL;//使数据源为空
$ L* i( a8 g; s: ?0 Y+ M" @
+ h( M7 C' A, q7 U}
' }8 M- c6 u) s2 L/ D% r9 j" ]  K7 z1 |( A: O2 C+ N& e1 N& |
//---------------------------------------------------------------------------
+ f3 p4 d7 b/ G, X4 W# F+ l& _' Y2 W
void __fastcall TDBTreeView::Edit(const tagTVITEMA &Item)
" N4 a  a% i# C7 {: s' J# P/ S( I$ I* {& J
{//编辑节点 $ v8 _( @' }  k
4 [: d  N' Z, J5 D6 b/ H
TCustomTreeView::Edit(Item);//调用原方法 $ [; k) h1 P( ^0 p, c2 d0 a# ~6 _
  A0 F6 P5 }$ m5 i# r' S

: q4 T- S3 t% J( B- W0 V" e( i, p0 i& E7 F) g2 C6 w
if (FAllowModifyDB)//如果允许修改，则 $ x+ B3 i3 |1 C

! _2 ^, f7 U9 x: l+ R) V% c{ ! C  G1 l( m# l  x. v1 ^- k

+ \( ]( G! n  NTTreeNode* Node; * k( w( c& G. ^; X

: s* v% e4 b) O; m+ _; r+ KAnsiString DatabaseName = ((TTable*)(FDataLink->DataSource->DataSet))->DatabaseName; 0 a7 _$ Z9 q; |

4 B8 p" j4 h$ C/ e: lAnsiString TableName = ((TTable*)(FDataLink->DataSource->DataSet))->TableName;
  p/ w7 D$ @& B0 u  a& U
' y1 Y4 b- ?, {  W4 OTDBTreeNodeData NodeData; 6 Z& ]' q4 h9 i) {& N/ y

- \/ y" T( Y( {! zTQuery* AQuery = new TQuery(this);//新建一个数据集   h8 ]( x0 ]- a! U! r* e  F
, n8 n4 K  [: z( E9 D) o# f
AnsiString strSql; 0 r, _1 V2 E, I2 P2 h. O/ p

7 }. c8 r0 a5 r) c- l
3 T9 ~! a% r4 D% s  j: p) D, x8 l; |9 H
if ((Item.state & TVIF_PARAM) != 0) Node = (TTreeNode*)(Item.lParam);
3 q! p' r' P  w
2 m* J. z. S1 |9 ^: Celse Node = Items->GetNode(Item.hItem); 4 V: B; r& a9 L9 Q- Z

/ K+ u0 s6 e  J% ~# l. j8 |
5 P) a6 z- z" S. ]/ ]# x# C" f
8 L  M) s+ G, P8 h! GNodeData = GetNodeData(Node); . O) W. O1 Y" ~6 v* z& T9 |( O8 l# D

0 P4 M# T, d- q* l. h" `, v$ `- bstrSql = "UPDATE " + TableName + " SET " + FDisplayField + " =:NewDispText WHERE " + FPrimaryIDField + "=:ID";//用指定条件更新数据集 % K" H5 h) _0 r9 _
" S9 C- g. }- B6 s3 t4 C

" d6 ]5 c8 g" F5 Z. o! E4 u, r; j( d/ x
AQuery->Close();//关闭数据集 : B. U! E. N  \) H6 N
. R* o( J. p7 Y' A/ T
AQuery->DatabaseName = DatabaseName;//设置数据库连接
" }- S5 x3 S  [* m5 K/ k( s
  R* d* v& I- lAQuery->SQL->Clear();//清空原SQL语句
3 |! V: y2 X5 i. W; `
9 n1 O1 K6 R( Y0 T0 FAQuery->SQL->Add(strSql);//追加SQL语句 , i2 `2 s( S1 C. ~0 N) l9 L$ }
7 Q4 U- N& r9 l- s! C8 g. d' K
AQuery-&gtaramByName("NewDispText")->AsString = Node->Text;//对SQL中的参数进行赋值 6 {  B7 g' r' Z* J! ?
0 J9 ?) U9 Q0 q  n- K0 A/ D* o
AQuery-&gtaramByName("ID")->AsInteger = NodeData.ID;
6 H% C$ y) i: e' u/ p, f
. y/ p* f+ K3 iAQuery->ExecSQL();//打开数据集
/ Q8 H" v0 K" q3 \8 t  L9 \0 X- K6 ~! A+ C! R) |

* e3 t& n9 ]# `6 Z. Y
3 J7 I# o0 t3 e" Z9 Z4 t- S6 ndelete AQuery;//删除临时创建的数据集控件 3 O0 D1 K: v6 a4 Y

/ ?" g8 R! @* K. C2 U, ^} + G' B) S/ c$ y; D$ _+ F( p7 Q& K' o" {

5 h) L/ |; W. g$ R} " w" [+ n) Z3 B" _/ y
5 x3 K. Q8 v" D5 {4 l/ ]
//--------------------------------------------------------------------------- ; a) c, R: Q5 y: |3 q2 O' n$ i) X

3 n, O: Q; i0 o3 \& O/ S% Z6 {" Zvoid __fastcall TDBTreeView::Expand(TTreeNode* Node) 1 _; d+ C# t" D
8 m( n4 _7 ^! i, z8 B: Z
{//展开指定节点 / \) Q( e6 ?  _0 I! f

$ d$ m) i9 B1 P0 s6 x5 n" ?TCustomTreeView::Expand(Node);//调用原原方法 % l# b; ^1 R1 u( h8 X
: L) e2 h" M& u; c7 H9 [2 k

5 `" ~1 X; z1 ?3 ~4 L- H! ^0 R8 m2 e7 u7 ]6 J+ m1 T
TDBTreeNodeData NodeData;
2 o; W# w0 {, C
' D( C2 n) R" B9 O' PTTreeNode* ANode;
% W$ j& ^( {  V' B" t0 Y) S$ E: {" W5 q0 Y; `

( R  v5 P  d* l! A1 j
  ~& _+ G+ x2 f" rfor (ANode = Node->getFirstChild(); ANode; ANode = Node->GetNextChild(ANode))//遍历指定节点的子节点
0 n1 E+ J) K# i- G( y! g- J# L: d  i/ a# f8 @$ x" r
{
7 @3 }* v, Y2 w# @6 Z6 D
# g& D( X( ^/ T6 E; b4 f9 ONodeData = GetNodeData(ANode);//取得节点数据 : u3 ]/ v+ J" W+ ~* K

& w8 r) W+ e% [1 C1 |if (ANode->Count == 0)//如果节点数据为0，则填充其子节点 * L1 c. H0 H( V3 c/ d! n

) p; T, W. W% L+ Y1 n/ `  i- jFillChildTreeNodes(NodeData.ID, ANode); ' ~* N0 b9 T. J+ G

0 m/ F' Z, v1 p+ Y0 x' h, F}
. p) R! f% C. [2 Q* @1 p% S8 v3 E2 X1 u
} " h' c, x" e  r4 {0 H

0 p3 ^0 Y! G6 ?' b% ]/ R. k) w! q" Y//--------------------------------------------------------------------------- : o( v4 l+ s9 x% U

* y- ~, }- }$ Z# T$ ?" _+ _void __fastcall TDBTreeView::KeyDown(Word &Key, Classes::TShiftState Shift)
4 d8 y% ?2 J/ R1 ^  j5 ^/ N3 K# k& x6 ^* d( S+ O6 ]& k# ~) ^8 I: d& Z
{   {$ i1 o9 i- E9 {

  r2 G3 }% W' F( f0 ?% R//键盘处理 6 Q# U9 T6 K9 N# Y- L6 V" U

$ Q5 u" {5 @3 T0 C/ n; MTWinControl::KeyDown(Key, Shift);//调用原键盘处理方法 + [0 Q7 o- ]: V8 g8 ]' m2 L1 \

* h, c5 W9 L. n0 I
/ s$ K7 Y! y' W
5 g" R" S5 C* j& A' i4 ?; {4 g5 nif (Key == VK_F2 && Shift == TShiftState())//如果是Shift+F2则 ! C, O6 D2 G  ^4 R' a
: o5 V( B# C+ O
{
8 x. d/ `5 V8 H. m1 v3 U1 [( l# q! u* o; U+ A7 V$ P+ j; o- w
/* Handle 'F2' key */
3 o1 h$ K/ ~& i) P# Z( w/ k  r
8 N9 \8 I2 `1 ?) _3 ^& Xif (this->Selected != NULL)//编辑当前选中的节点 7 [/ P$ n. X! d- _, _

" d+ ]7 C7 [! h, t& x3 Uthis->Selected->EditText(); 8 j6 {+ l7 B4 b4 Z
0 m+ ^' G! a( C; m# A) c$ |
}
' U6 K* h  G* O$ S$ c' ^8 v
( e4 _& B  P* E$ w& W+ B, i} $ ^3 j$ E( h+ d( f
* M8 F& Y3 A6 @8 b
//---------------------------------------------------------------------------
; k& X' _2 {# E7 Z/ g$ U+ F9 i5 |
8 y( V" ]' C) e. o0 d6 _% @$ `2 k% Fvoid __fastcall TDBTreeView::Change(TTreeNode* Node)
# g3 h& Y9 g. @: ?9 s% r0 a9 J) D+ W8 _9 {, _: B
{//处理节点发生变化事件
9 N3 H7 G7 `. Y: }  o# A2 b; o, U, J2 G( p$ m4 |2 {
TCustomTreeView::Change(Node);//调用原方法 ( M) h4 Y& e3 p

5 _* H, Y' Y: U5 Mstatic TTreeNode* OldNode = NULL; 6 E' J' f5 T9 V9 r' x& L5 `5 ~/ F. Y

# S. H2 y+ M1 W1 U1 X. m7 |: U, DTTreeNode* SelectedNode = this->Selected;//取得已选节点指针
% Q/ c6 O) f( n3 @2 `
: O' ?* s3 W! Z! bTDBTreeNodeData NodeData;
7 l0 K* R2 @0 n( _6 K2 B2 Z. ?5 w
TTable *ATable = (TTable*)(FDataLink->DataSource->DataSet);//指定数据集 & [; V! Z/ C: g! I0 |
$ f. k8 I. B1 ?. \
3 H& B. y( X& Y! }

( s0 a; R5 b! m* S; X" y" gif (OldNode == SelectedNode) return;//如果旧节点等于选中的节点则直接返回 + g8 Y9 U' p$ }

" g* r0 z# _( s/ s' h+ C) w: M6 @if (ATable == NULL) return;//如果数据集为空则直接返回
/ i4 h' K4 O1 p: b
" k) _. n1 l0 `+ y2 Q3 Eif (SelectedNode == NULL) return;//如果没有已选节点则直接返回
" f% }% E6 H* }! z% X$ ^7 b1 ~0 s
NodeData = GetNodeData(SelectedNode);//取得指定节点数据
7 U* ?* ~1 j% f( n- i/ }+ o0 E, Y9 _
ATable->SetKey();//按指定条件查找数据记录
5 n  C: s0 o2 x4 `5 l  U
/ m# h2 G6 a  F7 b4 oATable->FieldByName(FPrimaryIDField)->AsInteger = NodeData.ID; / B0 `$ D3 F! g# W+ i% d

8 j0 S9 l3 r/ [5 kATable->GotoKey(); 0 G. d5 d, v- |+ N% I

% E! n. x  F8 g  G8 n+ ~- nOldNode = SelectedNode;//旧节点等于现在已选节点
  F% l/ j3 d2 I) g7 m6 D, i3 Y) r/ x' X4 o
} 0 K9 d& U2 w- ~/ r2 G
% H/ v; A$ q. b/ g6 D! S; O
//---------------------------------------------------------------------------
% |( E; f8 q! I& T3 @
& C: i9 l7 w/ q0 e; g7 ibool __fastcall TDBTreeView::CustomDrawItem(TTreeNode* Node, TCustomDrawState State, TCustomDrawStage Stage, bool &ampaintImages) 6 Q1 C8 U  P) G8 [7 d- a2 ?) _

- _0 M& U( g# x- P: S- y; t7 h{ ! j( H9 [$ J; Z4 h$ f4 G7 ^
5 z3 g" g  n3 e2 J$ }) ?
//自绘节点 " X1 e* T% n1 B' _0 k8 a
6 Y( k6 X/ Y3 M, U
bool Result;//调用原自绘方法 ' ?8 w+ L6 \- k' r1 X7 L" p6 b: C

6 i9 V' `  L# v9 J( i& h/ O) lResult = TCustomTreeView::CustomDrawItem(Node, State, Stage, PaintImages);
/ V" [" E  i* z( G) Y$ l$ {3 o; C5 W% F  }* i& G
; q+ w) K7 q/ P% S8 j

5 b1 K. U+ p8 J5 }/* TODO : ... */ 2 J% A% }/ R1 z' p: O5 l8 g
$ L( z0 X3 n# x" L
//TDBTreeNodeData NodeData = GetNodeData(Node); , ?) z, d- q3 z- ~* e) A
$ U/ u  Y$ V0 g7 r/ X0 R
return Result; 8 P& {9 W  K5 }: g" w

( V4 U) G- Z8 I! N5 C; |. S) U} 5 F$ \2 q. ^7 @5 `8 I7 S

" x/ [7 q8 L  v; ^1 F//--------------------------------------------------------------------------- 1 @9 E' J: F7 d; ^- g9 ~
" _! Y1 i0 f$ q' u
void __fastcall TDBTreeView::FullExpand(void)
+ J. W; K  h& P& n4 X
2 B- c& I9 I/ g. }{//展开所有节点 ' D9 q! i' L4 i2 V2 w
1 \/ S; ^3 K3 p8 u# H8 e7 @  x
if (!Active)//如果DBTreeView不是活动状态，则抛出一个异常 * H8 J; O/ V- v- q, d" |# \, U
6 L) ?! {! S4 d/ {4 S8 {
throw Exception("DBTreeView is Inactive."); % P3 j1 d1 H7 @4 K; ]  N% i
- w; R1 v, ~- R$ d& p0 A
this->Items->BeginUpdate();//开始更新DBTreeView 7 H1 e1 U/ _# R2 D: t
6 K4 i' ]5 H- a& J1 s8 a% o/ l, |' ]
ClearAllNodes();//清空所有节点
' P9 x' ?( u( L$ H* c9 o+ U6 V& W# s9 m) Y3 u
FillChildTreeNodes(0, NULL, true);//填充子节点 1 B0 ^# ]4 s" E: C' y

; d6 ?, @7 P0 \5 _this->Items->EndUpdate();//结束更新 . s5 G* P" u" Q& O
/ e( ], Z1 q$ ]
TCustomTreeView::FullExpand();//调用原方法实现展开所有节点 ( R- [$ z1 P4 l4 U$ W
: a+ a% e" _( p- h( i. u
}
: H4 P8 N% c2 r# m$ _- F
* M9 m( s5 k" V) o) @6 j" a- A/ M( e& z$ G* t$ Y% d

' o4 T% F& L7 t//--------------------------------------------------------------------------- % @+ u& m2 p, O7 n* B6 s' m/ a

' ~* `. p- v% l8 F" d# Cvoid __fastcall TFieldNameProperty::GetValues(Classes::TGetStrProc Proc) 1 c2 ~' F4 `0 r0 Y0 u5 ~& W* z3 A  \
- z# P  i# H; Q7 N* q$ K% ^( y
{//取得字段值
; ]( G0 r# Q/ ~: r5 {
2 X$ p& R. }" }int i; + |& s8 S! U9 v& }7 h$ R' s. w3 E, x" P

" L8 p3 ?9 _) V2 `. L% hTDBTreeView* ADBTreeView;
  Z" i% ^5 {4 ]8 J& ~0 I9 x8 w8 o8 ]
: h2 i6 q! o0 i  T/ T* L5 p
3 {( ?- Y1 t6 M9 I5 ?7 t5 Y* e6 E& @9 P
ADBTreeView = (TDBTreeView*)GetComponent(0); ! x1 P$ p0 b8 f# r; R5 V; x' r& @
* a6 Y6 R' t) J- j3 C) g
if (ADBTreeView->DataSource != NULL)//如果DBTreeView的数据源不为空，则
6 o. s; L& w+ \, U
* g# o' R& J! {{//遍历所有字段，并将其填充到相关字段属性中
  H' h; Z  R& a: u/ x
* u; B* E" Y, c6 d' C* wfor (i = 0; i < ADBTreeView->DataSource->DataSet->FieldCount; i ++) 4 u5 I- f2 ^& B( g
2 K0 T% n4 f4 \7 {; V
Proc(ADBTreeView->DataSource->DataSet->Fields->Fields->FieldName); # S+ @$ d$ Z! `0 b

" g, z) o8 U* [} 0 b3 |6 a+ f( e/ g0 d5 a0 c, @2 P

" |) g& _8 x# e* Y" Eelse 1 [9 W9 J1 p+ h1 Z/ Z- H: w

- d1 T7 C# u* l, _6 F) b* F8 h7 N{//否则抛出异常
/ ^7 V) _7 O' N/ x# g* B4 Y9 \; R: f' y6 G4 b: _4 |! W4 f
throw Exception("Missing DataSource property.");
+ ~5 O. S7 \- h2 D4 c( a, g9 H; E, N& S2 y/ k
} 9 {% y  n/ r7 }3 m8 U

4 j7 i7 d0 C& S. y) R" N} * c6 i5 k6 V! D

& l9 q/ o( r7 m0 ?. G/ tTTypeInfo* AnsiStringTypeInfo(void)
7 B7 s: \( Z) q+ D3 V. [
8 s' C( d9 d- Z{ ' W7 @; O9 D# o
* o& \. R# _$ [5 j. b1 M( A
//定义类型信息 - v/ d7 Y5 R- z/ Y

- S% [) v3 ?) l3 h0 fTTypeInfo* TypeInfo = new TTypeInfo;
5 A! L4 f0 G: B; {8 M
/ _! y$ s. z8 o; W& o$ q7 U( U& ~TypeInfo->Name = "AnsiString";
4 P& w9 x$ }" M% H, U2 q
1 g" k, V% ~) k" v* _+ n/ WTypeInfo->Kind = tkLString;
1 X$ n3 f' |/ s/ n
return TypeInfo; 3 e" {* O( t8 J* E" C0 G
$ ]2 n+ G  U0 f- }& B# o
}
% [/ `: f5 F8 v/ v  w9 |" _' g4 v' \; N& P: [- m) V, f

7 W( [! v- C6 Q4 k4 u2 q（三）用BCB设计DBTreeView组件（小结） $ n5 v' D; T7 S9 H
版权声明：CSDN是本Blog托管服务提供商。如本文牵涉版权问题，CSDN不承担相关责任，请版权拥有者直接与文章作者联系解决。
2 V2 a& e) [* |7 t
( Y0 U9 |) w! ?* m; j$ C7 d7 }! B* g8 G8 g1 f. z

! F, q  n$ x$ x用BCB设计DBTreeView组件小结 + W' Y. Y& w; ~  W: D! I/ V( _

0 ]6 S* A1 f" C# o# p: |续二的最后一个函数，你是不是感到很纳闷：这个函数到底是用来干什么的呢？下面听我慢慢道来：我使用这个函数主要是用来实现定制属性编辑器。细心的读者一定还记得，我设计的控件中有三个关键的数据成员：ParentID,PrimaryIDField,DisplayField，这三个成员的函义是什么？相信不用我多说。为了使它们的设置更人性化，我选择了用下拉框的方式显示它，而其具体内容则由数据表中的字段而来，那么很自然我便采用了TFieldNameProperty，通过对它的定制，我实现了属性编辑器的定制。
" G. S2 L! w4 w) H. O
7 O( v5 }7 v, ^! g) yTTypeInfo* AnsiStringTypeInfo(void) ! u  X2 a5 L' Q8 P) \) s1 t

3 F# J7 y0 q: o% r: A5 A, B+ y{ 9 l% K2 Z8 D4 u& @  ?8 q- r8 h
; V# u2 S, x, h7 }" I- C. F
//定义类型信息 / E- P" s" l4 q' ?
+ I! G/ v1 Q3 ~- U
TTypeInfo* TypeInfo = new TTypeInfo;
7 S$ m# g+ i  `! K3 K( O1 S) F' g, Q' z; [
TypeInfo->Name = "AnsiString"; 8 z7 z7 u  n6 f6 ]3 X) }: k

) g/ B. ]1 b$ l# k' G& E# pTypeInfo->Kind = tkLString; 9 R0 D+ ~: `! I

9 m2 U, z1 {/ j' v+ Y" H+ yreturn TypeInfo; & c4 k7 D. _0 X) t1 D* m5 e: m
' \* J5 p9 d! L  _
}
! N% w5 r6 y: O# x6 Z) L# e
) X$ F6 W$ L) tnamespace Dbtreeview
  N* J4 w4 ?. l$ J0 K" k
2 X' E: F: q$ }{ ! K% e: X* V, K) _3 Q  A( p
# r* L! M# O/ m' N* e0 {( e
//注册组件 $ }! b0 |; e, z0 e

) H1 ~" k& X% o! S: Mvoid __fastcall PACKAGE Register()
3 V- _3 F. j' j
" u1 f( I$ w5 G; [1 L{ " @6 _% i. |5 y7 V7 O
- l0 J4 c) W0 |" U; ?% Q( U
RegisterPropertyEditor(AnsiStringTypeInfo(), __classid(TDBTreeView), "arentIDField", __classid(TFieldNameProperty));//注册属性
4 ~  s" w8 V# ?+ h4 w5 G  W8 v6 \) \0 e$ u; _9 B
RegisterPropertyEditor(AnsiStringTypeInfo(), __classid(TDBTreeView), "rimaryIDField", __classid(TFieldNameProperty));//注册属性
5 C( t6 G, ]9 b% V8 r. V2 j: t3 I2 x# O: x
RegisterPropertyEditor(AnsiStringTypeInfo(), __classid(TDBTreeView), "DisplayField", __classid(TFieldNameProperty));//注册属性
0 P3 L: b$ I$ m$ }8 X& W; [! O( @& J
! k8 m8 D3 x% [! i: S, k# E: rTComponentClass classes[1] = {__classid(TDBTreeView)};
; T% q7 ?, d1 K8 f0 D
0 [1 t/ N3 p9 A  [3 sRegisterComponents("Data Controls", classes, 0);//注册组件 4 C$ h8 V" z; N. b

, `( B+ J: a. D: V}
2 }- g  P& v, [5 y& ]
2 O3 n  v$ o8 e  _} ( [8 ?7 a6 M3 D9 n! Z

( T7 M5 O1 h- v到此为止，我已给出了用BCB实现DBTreeView的所有思路及代码，不知您感觉如何？要是觉得好就给点鼓励；要是觉得差，您也可以直言（好像是江湖卖艺^），我希望大家共同进步！ 6 ]7 w+ j3 Q1 X4 e; E, }
; j) ^3 |0 X: k/ o' M8 v
通过对这个组件的编写实践，你应该会用BCB进行一些组件的开发了吧？这里我再总结一下该组件设计中的要点，并为您以后设计组件提供一点建议： - y: d: F. Q! _6 a

$ l+ c) b: A% ?7 Z1．编写一个新的组件，首先要考虑从哪派生。你需要熟悉一下VCL结构，大致各种可视组件、不可视组件、窗口组件等的继承关系。建议你看看《C++Builder 5开发人员指南》和《C++ Builder 深度历险》。 7 J- Z  h+ g7 {1 ~; A
# y2 V6 D+ o9 f
2．事件定义。事件其实就是某件事情发生时要做的处理，以DBTreeView中定制带参数的方法为例，我阐述一下定义的件的方法：
4 I$ ]% u. S6 r8 R1 d5 Q. P0 L& p2 K8 a1 Q) A$ v5 b
typedef void __fastcall (__closure *TDBTVSetImageIndexEvent)(System::TObject* Sender, int ID, int ParentID, int Level, int& ImageIndex, int& SelectedIndex);
( A6 s; \0 g) i' ^! G% N% m4 H# z5 [7 `# h+ q2 z/ B; P$ e& c! u! V
TDBTVSetImageIndexEvent是自定义的事件类型，ID,ParentID等是事件所需的参数。那么就可以这样定义事件： 0 q7 H7 b: E0 ?" w2 C  w( a! a9 x) G

! V& {+ K0 u- T3 l6 Y' ], C0 IPrivate:
% ?& R% b* G; o3 X7 S
: n( l# J' t! {+ A8 T; `0 w1 ITDBTVSetImageIndexEvent FonSetImageIndex;
2 E; `5 o; m* R
7 J% C# K$ y% I__published: 1 \/ Z  ^! [2 L5 {" w& Y9 n9 {% R
3 H, `2 S( g. u+ h
__property TDBTVSetImageIndexEvent OnSetImageIndex = {read=FOnSetImageIndex, write=FOnSetImageIndex}; + [; ^7 [2 E) ?0 }0 o

: X5 S6 N+ i$ k( V( N3．定义消息。虽然我的DBTreeView中没使用消息，但消息的作用绝不容忽视。在BCB中定义消息的方法如下：
- x" e$ M# X* Q' t: k: y: r  v1 b' A
private:
+ y7 M9 N9 P# a7 e7 x! h, b/ w% n5 N7 y
void __fastcall OnMyMessage(Tmessage &Msg);//定义消息函数
3 j; ?6 b4 T. R2 M6 |8 L* {; {0 b4 i6 t: {( `9 @
BEGIN_MESSAGE_MAP
) h0 M$ T# K$ C+ L. c6 _! K
$ w( m0 a5 q( M; q! T( @8 jMESSAGE_HANDLE(消息，消息类型，消息函数) 7 m% _# r3 h: j$ j$ ]: K5 i

9 ~; Q% ]0 ?- N& p' Q4 u, ^0 iEND_MESSAGE_MAP(父类)
. {2 q( G8 Y* @% J9 f' L, A- m7 G
4 ?5 {: z- }0 p! w  S5 i
（四）动态显示任务栏图标
+ H# U1 a+ K3 l3 @4 K% h6 j2 V" R; c! S+ h  N7 q2 c- C
<a href="mailtnxyc_twz@163.com" target="_blank" >nxyc_twz@163.com</A> " i6 B, j: Q3 d& J5 V
. ^$ i2 H9 v! C! `! d2 \
在应用程序运行时，有时可能会因为要处理的数据量很大而暂时失去反应，这样给用户的感觉极其不好，影响了软件的更广泛应用。利用多线程技术固然可以解决这个问题，可这里我并想使用多线程，我想示范一下如何编制动态任务栏图标。 5 _9 g: u5 i7 r
0 q$ ~4 D' [0 h
　　我的编程思路是：通过设置Timer时钟控件使应用程序在规定的时间间隔内发送特定的消息，使任务栏图标不断更改，从而形成动画效果。实现方法为在应用程序的窗体中拖放几个Image控件，使他们装载相应的图画，几幅图画按顺序连续的被显示，就形成了动画。 & g: j6 V  ]# b8 I4 V
! B* P1 U& S+ A
　　应用程序必须用发送消息的办法通知任务栏增加，删除,和修改图标。发送消息必须调用Shell_NotifyIcon。它的原形为： + e5 H& |' X* }7 c

( A7 r- _) j( H, ], j　　WINSHELLAPI BOLL WINAPI Shell_NotifyIcon(
$ O3 _) M, z$ H( O. N　　DWORD dwMessage, POINTIFYCONDATA pnid);   L% j" d3 j" ~) u: l' {
* h! Z- i: h+ V; _! P
　　第一个参数 dwMessage是发送消息的标志，可以选 ; m0 d9 c" R! L1 j2 L9 i
　　NIM_ADD // 往任务栏通知区添加图标 4 g! c+ ~1 J( K& Y! ]( H
　　NIM_DELETE //往任务栏通知区删除图标
8 m/ Q0 k9 x$ ]) j) c% q　　NIM_MODIFY //通知任务栏通知区修改图标
% j+ A& H' b1 i9 O2 E/ w4 ^" U+ b/ q8 R; {: ^. I: Y' a
编制消息发送函数TrayMessage
" F9 ]$ p! I' K7 v) Ybool __fastcall TForm1::TrayMessage(DWORD dwMessage) ) t% }+ P: \2 G0 O: B) Y
{
3 e! g" j" b" hNOTIFYICONDATA tnd; 0 \7 j5 [6 R* Y- N7 i; e9 F+ l$ H$ z+ Z
PSTR pszTip;
/ s- d) u& p$ Z8 zpszTip = TipText();
, o3 F2 ?1 j* {1 O  g3 Dtnd.cbSize= sizeof(NOTIFYICONDATA);
& V6 n9 x. ~0 }- r3 w//结构的大小 - }: A( }- }9 A4 j8 q
tnd.uCallbackMessage = MYWM_NOTIFY; 3 F; t( a% d$ I. @3 ?2 Y# `
//自定义回调消息，在头文件中声明
1 g1 \! K$ v4 U0 etnd.hWnd= Handle; 0 @7 }8 r& ?- l$ A- V$ g3 E2 n
//接受回调消息的窗口句柄
/ p9 a& u- o6 W5 G5 R( [tnd.uID = IDC_MYICON;
& x9 w8 ~* P% _* `+ @//图标标志号
) W  ~2 b: A) K% [tnd.uFlags= NIF_MESSAGE | NIF_ICON | NIF_TIP；
8 _2 S) r; C: [2 t2 \1 z/ Q$ Z//指定以下三个参数哪个包含有效数据 3 _* e1 o  Q- g$ v
if (dwMessage == NIM_MODIFY) : p; R9 L5 o6 L! W1 Y% G
{
8 L6 d2 N2 g; _5 [, H8 wtnd.hIcon = $ {$ e) N: X% N  m3 Z5 s
(HICON)IconHandle(); //取得图标句柄 ' m" w$ _/ s1 G6 x4 Q/ u
if (pszTip) 6 \. t3 M8 J! K5 ]
lstrcpyn(tnd.szTip, pszTip,
( M& u4 |3 m5 t# s( B% S* msizeof(tnd.szTip)); % V( M: a$ i1 l% D( _
else , G+ @/ u5 _( s6 g
tnd.szTip[0] = '\0';
3 ]8 g$ g; O, N: C" r8 m* N}
% y. u& o4 x* K( j: Y7 Celse
2 P* n& ^1 Z& [  t6 t3 Z5 J. r, {{
/ C4 h0 ]; D4 N# j3 Dtnd.hIcon = NULL;
1 Y- \  \7 j3 ]' b+ N; {- e+ H8 Atnd.szTip[0] = '\0';
0 {2 m$ j$ |. D$ |! E5 S1 y} / G, \2 g1 R) h" D; h
return (Shell_NotifyIcon(dwMessage, &tnd)); / t2 }" I$ Z8 W6 B  M  ]* D
}
% M1 ]* {2 J8 c编制取得图标句柄的函数
- y! ~, @9 j6 u) F. WHICON __fastcall TForm1::IconHandle(void) ; v4 i, K7 G2 D  b
{
0 }1 j6 @) b- I9 l) u$ }8 Yif (n==1)
: Y0 G9 k  }5 |% I{ return (Image1- &gticture->Icon- >Handle);
6 s. i0 k2 ]' U0 B" E) o//n是全局变量，1为显示Image1,0为Image2
' F$ O4 Q7 Z  z}
3 X6 j9 O( M5 A4 o" `else - P* \/ n+ m# B% O$ j0 H' ^
{ return (Image2- &gticture- >Icon- >Handle);
' u  ~3 W! S  W9 M% K; J2 V0 ]} - A5 G# I9 [* N8 N( n  }
}
) t7 A- e/ u; S/ G; u: B+ Z编制图标状态转换函数 7 S7 N- }* D" F2 M2 j

, Q/ v- `4 S% C' ivoid __fastcall TForm1::ToggleState(void)
! t' y; x6 r5 H& e2 P{
8 ]; j0 C8 `" e0 B9 C: h9 Kif (n==1) //n为图标句柄锁，是全局变量， + p8 p7 O# K! P% r8 ^, {2 `
1为显示Image1,0为Image2
# D; D" l+ z: r4 i, L{
- b! B) O3 k& }  U6 o8 a! Fn=n-1;
+ ^1 p9 `+ B: w0 `+ [' W# X" t: n- D} 8 y; i" O% L9 |, o/ L0 Q9 ~- i6 P( O
else
9 Y+ ~. Y/ N$ X- G" a5 S# p{
2 W* U' e% v4 ~2 S6 Z) N9 P$ bn=n+1;
8 j* L7 @% T* h! \! p" B1 M4 @9 w} ! H5 j6 Y$ b& w4 m' i. l7 n
TrayMessage(NIM_MODIFY);
9 N  \% @6 H# z+ m; G! M7 V% k//发送图标变换消息
0 M, `. o  [4 l: [5 ~+ @  O* q}
) P$ f( H* `7 d5 {+ v' F; i
- y$ z# [5 T+ _; r( N) x# S
　　对Timer控件编制代码，设它的Interval属性为1000，即定时器每一秒响应一次。为 Ontimer事件键入代码：   N) v# ~. W/ ?! i
' P3 B. u9 ~) V# L5 o2 b6 ?
void __fastcall TForm1::Timer1Timer(TObject *Sender) 6 i* o( Q6 g, ~- @" Z- a: j
{ ToggleState( );
9 w- {4 d2 x6 j& U% p" a+ k}
( R6 d$ W/ H) C/ g) I$ ~, G+ _
3 Q: V, @9 W+ S; y* j8 a0 V% H: @% _$ u5 p% u# S6 E3 ^  c- ]* d
（五）用BCB编写多线程应用程序 : n: ?. n. V5 }( Z& g
$ D4 Y! f4 \3 Z$ q) s" V
<a href="mailtnxyc_twz@163.com" target="_blank" >nxyc_twz@163.com</A> : }  L: b5 O  d; M  {; @3 X

2 U) [% K# m9 j9 ^+ E6 c8 d7 [; Q# d4 G+ h6 Z) |$ c
　 + q9 C/ `& M! X5 x! g3 \4 N9 O
　　随着Windows系统的全球性普及，多线程技术已越来越多地运用到许多软件设计中。使用多线程技术可全面提高应用程序的执行效率。以前为了实现多线程编程，基本上都是调用一系列的API函数，如CreateThread、ResumeThread等，不容易控制，还容易出错。在使用BCB以后，我才发现原来编写多线程程序也可以如此简单！BCB为我们提供了强大的TThread类，从而使得多线程编程变得非常简便易用。下面请跟我一起开始我们的BCB多线程编程之旅。
; {) y3 U  ]  M2 g. V　　1. 创建多线程程序：
5 g% P, {2 f" z3 \　　首先，我介绍一下BCB中编写多线程程序的具体步骤。
& V: L; B% |, O; u5 K' u; x+ i9 z- U　　在C＋＋Builder IDE环境下选择菜单File|New，在New栏中选中Thread Object，按OK，接下来弹出输入框，输入TThread对象子类的名字NewThread，这样C＋＋Builder自动为你创建了一个名为TNewThread的TThread子类。下面是TNewThread的部分源码： ( C* Y* A8 z5 o4 b: m: G$ |% Z
　__fastcall NewThread::MyThread(bool CreateSuspended)
0 ^7 |* u. m. J6 v& z) Z　　 : TThread(CreateSuspended) , b2 ~  a1 |+ R9 w# C
　　{//构造函数，可用来初始化一些信息
　　} 3 M6 \( }6 o; v% z# M% S0 ^
　　void __fastcall NewThread::Execute()
% _& c, K( |2 u1 F# k　　{ & B9 t% Y$ l- P  ?% g- t
　　 //多线程程序的核心，用来执行相关多线程操作 : n: T% p- q. ]# G' ?
　　} 2 [/ @$ n8 N4 W

6 T0 G# I  [2 U# `BCB中的Execute（）函数是我们要在线程中实现的任务代码所在地。使用多线程时，动态创建一个TNewThread 对象，在构造函数中使用Resume（）方法，具体执行的代码使用Execute（）方法重载的代码。如果想创建更多的线程，只需要创建需要数量的TNewThread 而已。 & ?0 p% s6 B; P" V8 |+ |8 t- P6 @& T2 a
　　通过以上步骤我们基本实现了在程序中如何创建一个线程，并使程序实现了多线程应用。但是，多线程应用的实现，并不是一件简单的工作，还需要考虑很多使多个线程能在系统中共存、互不影响的因素。比如，程序中公共变量的访问、资源的分配，如果处理不当，不仅线程会死锁陷入混乱，甚至可能会造成系统崩溃。总的来讲，在多线程编程中要注意共享对象和数据的处理，不能忽视。因此，下面我们要讲的就是多线程中常见问题:
% c5 L8 d/ F: E* l: i% q5 t　　2. 多线程中VCL对象的使用 2 @. O; ^' m9 ?- f# B3 k6 O4 G
　　我们都知道，C＋＋Builder编程是建立在VCL类库的基础上的。在程序中经常需要访问VCL对象的属性和方法。不幸的是，VCL类库并不保证其中对象的属性和方法是线程访问安全的（Thread_safe），访问VCL对象的属性或调用其方法可能会访问到不被别的线程所保护的内存区域而产生错误。因此，TThread对象提供了一个Synchronize方法，当需要在线程中访问VCL对象属性或调用方法时，通过Synchronize方法来访问属性或调用方法就能避免冲突，使各个线程之间协调而不会产生意外的错误。如下所示：
4 {6 S/ s4 |" I　　void __fastcall TNewThread:ushTheButton(void)
2 O" H8 k2 K9 D* x: k, F6 c　　
; F- W. q* ]0 I/ S1 X# n! z　　{
+ s0 }4 O2 o- q5 ?3 \* g　　 Button1－>Click();
" \+ L; |8 d7 T3 `# g: g　　}
! r6 n1 i8 |9 W. ^8 R　　
' Q% |+ h/ }# ]+ R7 g　　void __fastcall TNewThread::Execute() 6 s" ]. E$ R2 f9 c$ z/ i3 F, H
　　{ ; `: z, e, r# @6 _' G* p3 U
　　 ... 1 O1 A: l  E2 T& o  `
　　 Synchronize((TThreadMethod)PushTheButton); ! L' S  l+ b) K! {; y9 E* e4 K0 `
　　 ... & h' ^, |9 N7 |5 N3 ^
　　}
$ B; x; P2 V7 N% n3 C% _　　对Button1－〉Click（）方法的调用就是通过Synchronize（）方法来实现的，它可以自动避免发生多线程访问冲突。在C＋＋Builder中，虽然有一些VCL对象也是线程访问安全的（如TFont、TPen、TBrush等），可以不用Sychronize（）方法对它们的属性方法进行访问调用以提高程序性能，但是，对于更多的无法确定的VCL对象，还是强烈建议使用Synchronize（）方法确保程序的可靠性。
: x! l8 V+ T- ?  d1 u5 A1 s! ?8 z　　3. 多线程中公共数据的使用 " Y% V9 i$ v. ?6 [. j
　　程序设计中难免要在多个线程中共享数据或者对象。为了避免在多线程中因为同时访问了公共数据块而造成灾难性的后果，我们需要对公共数据块进行保护，直到一个线程对它的访问结束为止。这可以通过临界区域（Critical Section）的使用来实现，所幸的是在C＋＋Builder中，给我们提供了一个TCriticalSection对象来进行临界区域的划定。该对象有两个方法，Acquire（）和Release（）。它设定的临界区域可以保证一次只有一个线程对该区域进行访问。如下例所示：
0 I; [9 A; n8 R　　class TNewThread : public TThread
& x$ F4 y$ ~  Z9 n　　{
0 ?* l" h; |, s/ T% ?& m　　 ...
7 e* L( Z) d3 n# W0 G' ?　　private:
( x5 s0 s$ M. i　　TCriticalSection pLockX；
! O0 I6 ?6 O- X7 m8 V) G　　int x;
! U% D( \1 o, s; A4 O% K; n　　float y; 3 \6 I$ H$ U: s( x8 w
　　...
! ^# S  i" `# A$ m　　}; 7 I. S, B8 o) P0 u
　　void __fastcall TNewThread::Execute() 9 F5 Z7 `4 Y' w( w( D- o
　　{
4 _0 D- q; L1 i" g# b　　...
4 e! f( @) b+ K6 d" X8 r　　pLockX－>Acquire(); 6 Z5 o7 i4 f. N$ O5 ]; e
　　x＋＋;
3 Q: F: n% [1 A　　y=sin(x); ! |( L1 W, o9 |6 c9 r
　　pLockX－>Release();
' |  M; y% A' T! W; `% }# _　　...
5 n) ]# @" s( W3 k2 n& M+ l& v7 x　　}
5 r* J! f7 m- k+ T7 E  |4 H: O　　这样，对公共变量x，y的访问就通过全局TCriticalSection 对象保护起来，避免了多个线程同时访问的冲突。 + p  _3 ~( t/ D9 q' R) t
　　4. 多线程间的同步 / Y# i1 O/ T5 V# x& j" ]
　　当程序中多个线程同时运行，难免要遇到使用同一系统资源，或者一个线程的运行要依赖另一个线程的完成等等，这样需要在线程间进行同步的问题。由于线程同时运行，无法从程序本身来决定运行的先后快慢，使得线程的同步看起来很难实现。所幸的是Windows系统是多任务操作系统，系统内核为我们提供了事件（Event）、Mutex、信号灯(semaphore)和计时器4种对象来控制线程间的同步。在C＋＋Builder中，为我们提供了用于创建Event的TEvent 对象供我们使用。
! W0 n! g6 h/ R8 K% T　　当程序中一个线程的运行要等待一项特定的操作的完成而不是等待一个特定的线程完成时，我们就可以很方便地用TEvent对象来实现这个目标。首先创建一个全局的TEvent对象作为所有线程可监测的标志。当一个线程完成某项特定的操作时，调用TEvent对象的SetEvent（）方法，这样将设置这个标志，其他的线程可以通过监测这个标志获知操作的完成。相反，要取消这个标志，可以调用ResetEvent（）方法。在需要等待操作完成的线程中使用WaitFor（）方法，将一直等待这个标志被设置为止。注意WaitFor（）方法的参数是等待标志设置的时间，一般用INFINITE表示无限等待事件的发生，如果其它线程运行有误，很容易使这个线程死住（等待一个永不发生的事件）。 . x& a& q  w: g; P& E2 |
　　其实直接用Windows API函数也可以很方便地实现事件（Event）、信号（semaphore）控制技术。尤其是C＋＋Builder，在调用Windows API方面有着其它语言无可比拟的优势。所用的函数主要有：CreateSemaphore（）、CreateEvent（）、WaitForSingleObject（）、ReleaseSemaphore（）、SetEvent（）等等。 8 _6 \. G: S: P  G

4 Y/ t3 Z6 c- ^1 Z（六）在IE工具栏中添加按钮 ! l- ?  N- O* a$ T1 y$ @

, g8 u8 E, k- k: }6 f$ U# I2 z, @) O8 t5 `! J/ H
* s& M1 P- O+ U/ Z* E! {0 z
浏览器IE是我们使用频率最高的软件之一，如果能将应用程序集成到IE中，必将极大地方便用户的操作以及提高软件的附加值。幸好Microsoft已为我们提供了相应的接口，这使得我们的工作变得简单而有趣。   z6 x) J& b4 o0 N. {& R

) ^: |- p( z) x; ~9 `9 o一、系统分析 3 t5 l1 d) f. j. M! j

2 {  ]# C: _+ @# {" Q$ `) y$ F通过对注册表的分析、对比，可以发现，IE工具栏按钮的设置在注册表的位置： ( {( @5 _+ i3 f; x. v0 k2 {, B

( \1 W( \1 J' QHKEY_LOCAL_MACHINE\SOFTWARE\MICROSOFT\INTERNET EXPLORER\EXTENSIONS\ ( O) F; D; o0 `+ X) E

8 C, \7 C. S) V  ~4 c9 A8 l这样我们就可以通过以下的步骤来实现我们的目标：向IE工具栏中添加按钮 , V7 Z/ s) M% u2 l: R* @

5 Y# T" S  Q" t; Z9 I1．在上述路径下添加一个主键，键名任意，比如设置为：5D13E8D2-850A-101B-ARC0-4210102A8DA7； - g! o0 u& }1 ~& O0 s& H) L- K
  r% {0 n' Q. _0 P8 Y
2．在上述主键下添加以下几个字符串： 3 B  y. n( ~+ `: g' H! ]
% s$ G" N3 ?6 G' M4 T4 M! K
n BUTTONTEXT：按钮显示文本 2 Q. m9 X2 P; G8 p6 }( @

( a/ w; S; ~: g" D6 ^8 Wn CLSID：标识符，必须设置为：{1FBA04EE-3024-11D2-8F1F-0000F87ABD16} - c' m1 a4 \0 M$ \' `

/ R4 R! |2 ?4 P+ s( D, Gn DEFAULT VISIBLE：设置按钮是否被显示出来 ' U. S3 V1 L$ R0 r
+ X: P/ P' b+ b. g2 H% @
n EXEC：单击按钮后要调用应用程序 2 l8 L. B" i4 d, @
5 D. ]. d& y& l4 g
n ICON：按钮图标 % E; j/ R; R0 h6 L) c  h" c

3 f. s- H1 Z! |n HOTICON：按钮的浮动图标 " {( d# Z, Y# }, C1 h8 V' O& ^7 K
: y2 J; |/ q+ W: p$ P8 z
二、设计流程
* b: s" @0 j3 J  C9 n) q+ D7 g! B$ x9 ?! Z, Y: i1 J
TRegistry rg = new TRegistry;
* e; Z2 {3 W4 R1 V6 y
4 j+ M' Y, V2 q2 u) T' brg->RootKey = HKEY_LOCAL_MACHINE; 9 V& P9 `' I- w/ C1 y& Y4 @  |
  p: s2 x. `7 v) F5 `. q
rg->OpenKey(“SOFTWARE\MICROSOFT\INTERNET EXPLORER\EXTENSIONS\{5D13E8D2-850A-101B-ARC0-4210102A8DA7}”,true);
' J6 A. a( |# v4 l& z* ^  B( H! ^$ o( e' h5 e- \  Z; S
rg->WriteString(“BUTTONTEXT”,”按钮名称”);
$ ?6 q: d& p1 w- I3 E
3 S0 J1 T5 p: D. h; ^  irg->WriteString(“CLSID”,”{1FBA04EE-3024-11D2-8F1F-0000F87ABD16}”);
' G4 D2 \6 q( o: q0 q8 T) a: Z4 |3 U
rg->WriteString(“DEFAULT VISIBLE”,”YES”);
: v% C& t( p- I$ E7 a. u
1 k' {$ h3 n  a( x# _rg->WriteString(“EXEC”,”应用程序路径”); ; C7 V9 H0 X5 G( A4 c" r0 N/ ^% G( z
7 _, `- g+ o$ q- c0 O
rg->WriteString('”ICON”,”图标路径”);
; r( Y9 p; U+ G1 _# ^7 M0 r
1 L7 }' Y0 c  s8 q. Q9 h+ M! _rg->WriteString(“HOTICON”,”浮动图标路径”);
5 x  C* t: j! x/ S8 D6 j
2 x$ q! g3 ~5 M- Org->CloseKey();
* @8 B4 H/ A  [' l) b& T3 y9 [% ~2 C+ O% l* L0 W5 b
delete rg;
% `6 A) W. N$ c/ Y. I5 l# `（七）如何设计系统环境监控程序 / B6 x5 k3 I/ X% M  J6 I

4 ~! x4 B9 e% m# a- z' Z你想实时掌握系统资源吗？比如，当前窗口、磁盘及内存使用情况、设备及环境变量设置情况、正在运行的程序及开机启动程序等。通过我的系列介绍，相信你一定可以深入地了解这些信息，并可随意地通过编程来控制它。
: f  k# }" K2 J) I8 k7 o8 X. Y: J: q7 d9 J9 V  V/ H
一、如何获取当前窗口 . Q7 D# [4 Z/ t
) p9 M6 r) D7 R  M! E, N
这里需要一个API函数：EnumWindows。 4 G% b7 Y+ v$ K7 V& h+ B1 |, a
: ^9 U- M9 |8 x" x! P
函数功能：该函数枚举所有屏幕上的顶层窗口，办法是先将句柄传给每一个窗口，然后再传送给应用程序定义的回调函数。EnumThreadWindows函数继续到所有顶层窗口枚举完为止或回调函数返回FALSE为止函数原型：BOOL EnumWindows（WNDENUMPROC lpEnumFunc，LPARAM lParam）； 6 `0 F2 u7 T9 k
0 D: T$ v# N( {0 n$ R6 o, f- T
参数：
6 d! H9 r: T  S3 j( p4 v" U$ \, x( ]4 ]9 ^' q
lpEnumFunc：指向一个应用程序定义的回调函数指针，请参看EnumWindowsProc。 2 q# ^9 z2 d/ S: `
' |5 c3 G+ n0 o& H
lPararm：指定一个传递给回调函数的应用程序定义值。 9 X) l3 N' j; x6 ?/ X
& s& K: C; ]# p( e1 l& T
返回值：如果函数成功，返回值为非零；如果函数失败，返回值为零。若想获得更多错误信息，请调用GetLastError函数。 5 x. q" }! W+ B- ~3 H/ F: U

4 \  S3 m+ v1 r7 V  I4 r8 p备注：EnumWindows函数不列举子窗口。 * b. T6 K( g& Y/ S: ^% v1 l; P* H2 K

, \8 B  g; E& A, z, u/ B在循环体中调用这个函数比调用GetWindow函数更可靠。调用GetWindow函数中执行这个任务的应用程序可能会陷入死循环或指向一个已被销毁的窗口的句柄。 / `; F8 ]8 `% p* M) Q* M) ?

2 ~+ X" z/ X0 Q' C7 Y: \) g$ q( {; I
我编写的回调函数：bool __stdcall EnumProc(HWND hWnd,long lp);//详细定义如下：
5 K1 q/ x4 B; X9 T
& J" X$ n! i6 R7 dbool __stdcall EnumProc(HWND hWnd,long lp)
+ r/ p4 q; W; p; J, A
7 v8 [! m( c  x; F( R5 H{
" E: @5 B6 O" P# M# A4 O$ ]
: H; a2 l1 [  @" P  Bif(hWnd==NULL) return false;//如果指定的窗口句柄为空，则退出
! M+ M$ G: d+ M$ K- r4 l$ [char title[60]; //保存窗口标题 " r* N2 h8 c  a" x# ?% y
char hwndStr[10]; //保存窗口句柄 . W! A4 s/ b  j. b0 U2 q- i, U
char className[60];//保存类名
6 L% K4 l6 B/ c0 t1 p+ HTListItem *mItem;//用来存储窗口信息：窗口标题、句柄及类名 / Y: |! b. B0 j% J0 {
GetWindowText(hWnd,title,60);//取得指定窗口句柄的窗口标题
" C3 q' ?4 h( V! T) Yif (AnsiString(title)!= "" && AnsiString(title)!= "Default IME")
! d& `5 g  U* }6 t/ g$ [
. O) I5 ?! {1 a& J/ S{//如果窗口标题不为空且不是输入法标题，则
/ G5 S6 M( V! n# JmItem=MainForm->ListView1->Items->Add();//添加该窗口信息到列表中 - Y7 ?) ^+ Q+ y4 I5 a$ T0 Z3 F; h
sprintf(hwndStr,"%08x",hWnd);//将窗口句柄转化为16进制 ! P( U; [$ ~& Z
mItem->Caption=AnsiString(title);
9 w1 Y7 y7 v' D. h' d/ A! mmItem->SubItems->Add(AnsiString(hwndStr));//添加窗口句柄
  `9 }$ y3 E5 o$ p, k5 MGetClassName(hWnd,className,60);//取得类名
$ h* s4 f2 Q3 Y3 \: |2 F/ HmItem->SubItems->Add(AnsiString(className));//添加类名 : P/ i* w5 a* q( \4 [! ]2 }% P( ]
}
1 v0 M* q$ g" C4 ?5 x1 {return true;
  ]" j) [$ S" X}
9 y) C7 U+ Y/ ?; |7 t' i# p- }3 t2 ^* S& |2 ~! g3 ^
获取当前窗口：EnumWindows((WNDENUMPROC)EnumProc,0);
3 h2 |5 Y& R( o9 X; J' M3 |  M( e5 e
《未完待续》 . i- ]# |9 G: @% E+ O% h
& @) U# j% L4 `( k" a6 W' v
( n/ M3 z9 T& o0 T0 ]8 t
（八）TServerSocket和TClientSocket应用技巧 7 _( m; g) u0 B4 W- M2 z, n0 E

" m% |/ t6 d2 }. ^( ~:nxyc_twz@163.com + [/ m5 g4 O3 @6 [( H6 f$ D" L
  P) E. m8 L7 u2 h1 v
在网络编程中，WinSocket API编程是最基本，也是最繁锁的部分。但是，如果你是采用C++Builder 5 作为编程平台，事情就变得简单的多了！通过我的介绍，相信你一定能快速掌握设计基于C/S体系的方法与技巧。 4 l" g4 }; K  d3 ]/ m7 U8 `
在BCB中，TServerSocket和TClientSocket涵盖了基本的WinSocket编程，其中TServerSocket作为服务器方使用，TClientSocket作为客户端使用，这两个组件本身并不提供Socket连接，但是他们都有一个Socket属性，这个属性才提供了Socket连接。下面就先向大家介绍一下这两个组件常用的方法属性，然后在通过一个例子来看看这两个组件的使用。
" \5 S' a+ |0 n# ~! j+ w8 w! A1 r1)TServerSocket 4 u+ n3 \2 X" b
名称类型说明 2 ~8 G3 v' o9 K: H4 G6 E. f
Socket TServerWinSocket 最重要的属性,提供Socket连接,事实上发送/接收数据都要靠这个属性.
6 K# x  j6 X* Z: e, bPort int 要监听的端口,如果在Service属性中指定了服务类型,此属性将被忽略. : U7 [. l8 `" n
Service AnsiString 提供的服务，如HTTP、FTP等，如果在这里指定了服务类型，
. k6 E' Z% g- G, F% i6 ?Port将被忽略，因为各种服务都有特定的端口，如FTP:21、HTTP:80
* A+ ]' l5 j6 Y0 h, \3 R8 FServerType TServerType 设置与客户连接的方式，取值为两个枚举常量stNonBlocking和
+ J3 T( x  f1 U$ i1 EstThreadBlocking，stNonBlocking表示用非阻塞方式连接每一个客户
+ C9 N6 Q$ O' o4 v' g) r) r1 d每个连接都在一个单独的线程中处理。并用OnClientRead()和
1 I. H) \! T/ K  F: O0 XOnClientWrite()通知服务器端的Socker进行读写。stThreadBlocking
% ]) P# S2 x8 c* O% [! Z表示以阻塞方式连接客户，即以主动查询的方式可客户连接。 ) s4 K. x' j4 S9 e7 ~
Active bool 激活服务，相当于调用Open()方法。 & T$ h: n8 t& @$ V
" ]: j' b6 u& N
OnAccept事件当有客户请求连接时触发
8 k* ^& [& E" \9 Q# T' POnClientRead事件通知服务器去读取有关信息。OnClientWrite与此类似。 & \3 D. g7 N! I1 ]& M& \8 R/ X+ h

7 b8 f, p& ^: ^) ]- [, O2)TClientSocket
  J# |/ u  T9 a" H9 P, s名称类型说明 . t+ Q) c; C; c' h: t5 T8 K# @
Socket TClientWinSocket 同TServerSocket
6 R  n% [5 ^7 ]2 `5 |- M# l% s* n! aActive bool 同TServerSocket
0 {! x5 W, T2 R5 s6 U) ]Address AnsiString 服务器的IP地址，如202.98.35.14 " L6 r* [( n6 y9 Y2 |
ClientType TClientType 与服务器连接方式，取值为两个枚举常量ctNonBlocking，tBlocking。 0 D- \8 n/ L4 x3 ]0 o! }! i. b
ctNonBlocking表示非阻塞方式，ctBlocking表示阻塞方式，详见上例。
% w- `* m1 J! I6 X1 Q  JHost AnsiString 要连接的主机名，如www.cpcw.com
, D- b/ U& `- DPort int 同TServerSocket
) H+ l  w) J7 q9 |/ w) H& TService AnsiString 同TServerSocket
& h' s8 }  o9 Q. \. N. {" K) I4 c* a# o+ R5 h
OnConnect事件当连接时发生，OnConnecting、OnDisConnect与此类似 * c9 _; D  Q) t: p
OnRead事件通知客户机去读取有关信息。OnWrite与此类似。 3 m$ _$ j) ^' `. v: G
; c% I" Y* @6 ~; x# g3 _) M
TServerSocket和TClientSocket只提供基本的服务器/客户机的连接，真正提供数据传输的是它们都有的属性Socket，它的类型分别是TServerWinSocket和TClientWinSocket，而TServerWinSocket和TClientWinSocket的父类都是TCustomWinSocket，下面我们就来看看TServerWinSocket和TClientWinSocket常用的属性和方法。 ! ]2 d0 Z5 D( H' L( o1 T9 Y8 p
& O( J8 h+ C# S7 G( a4 \. X6 ^
共同的属性方法（来源于TCustomWinSocket）
! H9 }$ `( g. _名称类型说明 ( }$ F* A* _# U0 P
Connected bool 检查是否连接成功 2 t# f$ b8 E4 b) y2 Y1 @" P
LocalAddress AnsiString 本地IP地址，与此类似LocalHost：本机域名，LocalPort：本机端口
, u! g7 |3 J" D4 L  D4 E9 w% ORemoteAddress AnsiString 另一端的IP地址，与此类似RemoteHost：另一端域名，
8 e) N8 T* U9 ^1 Z& t6 xRemotePort：另一端端口 # D2 }- S/ J& z; w& S
SocketHandle int 只读，返回Socket对象的Windows句柄,调用WinSocket API函数会用到它。 - p% |4 d5 o8 o  B
Handle HWND Socket能够接受到的异步事件都是以Windows消息的形式发送给此句柄的。 : `; H& l$ p- I5 D

" R  R7 a9 G8 J' HClose()方法作为服务器，关闭所有连接；作为客户机，关闭自己与服务器的连接
" S; P( D- Y; dSendText(AnsiString)方法发送一个字符串， 3 b7 ~; b- W4 ^4 ^  r9 `
SendBuf(void* buff,int count)发送缓冲区buff中的count个字节，返回实际发送的字节数 $ E0 u! X2 {/ _) e3 O8 P
SendStream(TStream* AStream)发送一个流到Socket中。
$ ~& j1 h- n/ T2 h0 g  yReceiveText()从Socket中读取并返回一个字符串。 ' U4 B9 P7 G+ \
ReceiveLength()从Socket读取数据需多少字节的缓冲区。 , a1 t# U$ a. D
ReceiveBuf(void* buff,int count)从Socket中读取count字节的数据到buff。 + u" P7 I4 {% w% [; C( [
# K) D5 }( \7 c4 A# D3 @+ b
TClientWinSocket
4 M9 h+ Z) s  T  {" b! ETClientWinSocket只增加了一个ClientType属性， + r4 `( b- x7 Q. ^# H# ]5 O! z, q
用于决定与服务器的连接类型(参见TClientSocket->ClientType)。
* l2 i. O2 l- f* \
5 M$ p: y+ U' j. cTServerWinSocket
! z- ~2 {+ C4 Y6 U0 b# d- `7 {9 T
4 x1 g6 o1 \/ W. X% [6 @$ l5 X名称类型说明
1 _; Z) w3 g- kServerType 　服务类型，参见TServerSocket->ServerType。 , s8 h# [. A- C6 O( m
ActiveConnection int只读，返回当前活动的连接数。
. S# h# w" ~; o% T1 s( @Connection TCustomWinSocket数组，索引n表示第n+1个连接，如Connection[0]表示第一个连接。 8 j* F) L: P& x9 }$ }5 {5 Y

! I1 N/ {2 v) _有了这些知识，我们就可以完成一些基本的WinSocket编程了，下面就结合一个简单的闲聊程序来看看具体的应用。 ; a  w6 H) X, A+ U2 j5 |" @
首先在窗体上放置以下VCL组件，并修改相应属性：
7 S8 u( @+ u$ {; B' W类型 Name 属性 Caption/Text 说明 1 F6 s( n0 E& {- w3 Q1 \
TCheckBox ckListen 监听当选取时，本程序作为服务器 3 A% w$ Y- \! Q, \. A7 [7 `
TCheckBox ckConnect 连接当选取时，本程序作为客户机
) i7 a* @0 {- W0 j. y* k' a# STEdit edName 无名氏闲聊时所用的名字。 9 Z0 b' F  q2 W4 r  L
TBitBtn bbtSave&S 保存单击时保存谈话内容 9 U5 K* R# R/ |2 Q- L
TBitBtn bbtClose&C 关闭单击时关闭此窗口(设置Kind=bkClose)
( V- D' N6 N% E% _TEdit edTalk 　在此输入谈话内容
: C$ P9 E- ~$ n1 j5 F- oTMemo mmTalk 　在此显示谈话内容
( u  F$ f4 \# O* G8 QTServerSocket ServerSocket1　作服务器时使用(设置Port=2222) ; p1 U9 A! p9 A4 L" k2 ?
TClientSocket ClientSocket1　作为客户时使用(设置Port=2222)
+ c8 S6 d& Y! T, ]+ s' R. oTSaveDialog sdTalk　保存文件时的选项(设置DefaultExt="*.txt",Filter=文本文件(*.TXT)
3 v; C$ m8 S) a1 D|*.txt|所有文件(*.*)|*.*)。 # k4 f! Y1 }* i0 s4 ]2 }* x; b
TStatusBar StatusBar1 　用于显示一些提示信息，只要在属性"annels"中加一栏即可
0 \" |- Q  K+ e( R$ m1 A) x9 O. T$ }0 O8 ]; f
程序作为服务器的设置：
7 T5 e, c6 e* b7 s当单击"监听"时，如果没有监听则开始监听，在提示栏中显示"监听"，并把"连接"这个复选框无效。如果已经监听，则取消监听，并使"连接"这个复选框有效。所以，在ckListen的OnClick事件中加入以下代码： ) K7 B7 O" B& y1 F* i

, U5 K$ C2 m7 z. N; e1 p: [; f
3 x) G) H7 M' u( B8 _. \if(ServerSocket1->Active) " p, h# G' ^" N. \$ `! G7 u
{ ) m  P- Y/ H; W# h1 D
ServerSocket1->Active=false;
$ U1 ~1 w8 W1 P; h8 B$ {ckListen->Checked=false; ! B, W/ P5 [9 B' a: E9 f* d& T" X
StatusBar1-&gtanels->Items[0]->Text="";
* e/ |& t, [( \4 j}
/ ], @; d9 k3 relse
/ t# E- v5 a; [. B  M{
5 [7 ?1 A% ^+ y" }8 JServerSocket1->Active=true;
. D( v& m  t' V0 k( mckListen->Checked=true; 8 T, W0 b. D& N/ n
ClientSocket1->Active=false;
4 Q( u( J' v) K; e& |StatusBar1-&gtanels->Items[0]->Text="监听..." ; % V; J+ w# Y% g" ]
} ( |5 D' Y; L# I# g# [! R1 ?
ckConnect->Enabled=!(ckListen->Checked);
, g0 a6 x! V% r) n0 q/ l) A! _4 z  I" [( T) F
当有客户加入时，向所有的客户发出通知：并在自已的mmTalk加入此消息：所以在ServerSocket1的OnAccept事件中加入如下代码： 0 d5 Q) {) m9 ?' o1 E

' h* A! T8 E: F! M+ mint i;
, `1 q- J. \( J+ dAnsiString str1="服务器消息："+Socket->RemoteHost+"加入";
( \( X) |6 [& q, M. @& Cfor(i=0;i<ServerSocket1->Socket->ActiveConnections;i++)
1 H$ ~* {  v+ ^ServerSocket1->Socket->Connections->SendText("服务器消息："+Socket->RemoteHost+"加入");
3 {3 w( K6 n% U# o/ [. yStatusBar1-&gtanels->Items[0]->Text=str1;
" E  ~' n3 X* `mmTalk->Lines->Add(str1);   B, [9 y- P" y: G1 a
5 H1 Q2 J1 W8 _
当客户机通知服务器读信息时，首先读出字符串，然后把读到的字符串发送到每一台连接的客户，并在自已的mmTalk中加入客户发送来的字符串。所以，在TServerSocket的OnClientRead事件中加入以下代码：
: v) \9 l! _. o, Q+ m3 F9 i+ b
+ S0 T' @8 N4 Y- PAnsiString str1=Socket->ReceiveText();
# d+ O( A1 ]8 Z8 k. m7 J1 x) `8 V; vmmTalk->Lines->Add(str1);
9 h/ g+ X, z: T, gint i; 8 X4 h7 ]) {8 i  e5 ^4 ]
for(i=0;i<ServerSocket1->Socket->ActiveConnections;i++) 0 C4 T' U$ G: R, H" s6 w
ServerSocket1->Socket->Connections->SendText(str1); + b* [! e( _' s5 T9 b. ]& Y4 k

! T3 [* C2 Q3 q& Z程序作为客户机的设置： ( F8 c5 `9 ^3 a! g
当单击"连接"时，如果还未连接，则询问要连接的主机，然后连接之，屏蔽"监听"；如果已经连接，则断开连接。"监听"使能。所以，在ckConnect的OnClick事件中加入以下代码： ( k& J8 B# d/ T. @" J1 f: X

6 |1 z; z; I1 Lif(ClientSocket1->Active)
) X2 K8 i- ]  \. A{ 8 N2 L& R: v+ m# v9 s& c. _1 L
ClientSocket1->Active=false;
( s9 d( b  |  E! }4 k5 K: w/ jckConnect->Checked =false;
* g* [2 }. ?4 X4 p- K1 ^+ k}
3 K% E: f) W; A9 c5 e+ uelse
3 F6 s2 t- o% a9 r{
" y" a' A- \) v' cAnsiString Server="localhost"; / o# T1 |6 g- y. z( G
if(InputQuery("连接","请输入要连接的主机地址：",Server))
0 Z: U% Y- `$ t* u9 L2 O. Q% A& B  N{
; h3 e* y4 i) q- Z# Y, ZClientSocket1->Host=Server; " G$ W3 k, g9 o! d( Y* u3 R& l
ClientSocket1->Active=true; % c2 R- ~: N& R2 h9 W
ckConnect->Checked =true;
$ J4 N0 B! x) n5 U6 W7 z8 n8 t* Q}
+ s, k1 f; R0 R# [/ A}
1 m! V3 m. m" H3 ^7 o5 z2 JckListen->Enabled= !(ckConnect->Checked);
# F! K+ S$ W) u3 P* u) |+ G. Y+ a+ P* Y/ H4 i
当连接服务器成功时，在状态栏中显示此信息，所以，在ClientSocket1的ClientSocket1Connect中加入：
8 |6 R0 B: g$ g1 E2 f2 j
) J0 l  E( w6 V% F% mStatusBar1-&gtanels->Items[0]->Text ="连接到主机："+Socket->RemoteHost;
3 w" ~- r- Y: K  y当服务器发送字符串来时，把它加入mmTalk中，但如果本字符串就是自已发送的(因为服务器会把收到的消息发给每一客户)，为条信息就是重复的，所以，要比较mmTalk中最后两条信息是否相同，如果相同，则删除重复信息。代码如下：
' f% p: T1 S5 j( Y+ r& I  x+ f3 O' r  y* \$ I" z6 b. {  [% N
mmTalk->Lines->Add(Socket->ReceiveText()); # a- E, T" w2 J  S) o. \
int i=mmTalk->Lines->Count-1;
2 V1 A6 m6 `9 _2 Mif(mmTalk->Lines->Strings==mmTalk->Lines->Strings[i-1])
( q7 t1 u; L& v+ d- SmmTalk->Lines->Delete(i);
/ L7 I/ p5 G3 u
- y- a* |' `9 o0 i2 n% O, S公用部分
% I1 v1 G" W( b; U- Z" a+ u当在edTalk输入交谈内容，按回车键表示输入完成，此时把交谈内容发送出去并清除edTalk的内容。在发送信息时，要看本程序是作为服务器还是客户机，如果是服务器则把信息发送到每一个客户；如果是作为客户则把信息发送到服务器。代码如下： 1 t! M- M4 P1 w+ C: z2 D/ L

& o1 u, ?1 W9 S6 B. z" yif(Key==13)
9 l& B( I$ u, S! a{ . o# H" o, r/ O- _" y4 ~7 n" \
mmTalk->Lines->Add(edName->Text+"："+edTalk->Text);
3 N. A, q7 U- w' Y2 T* x! \" sif(ckListen->Enabled&&ckConnect->Enabled==false) - C  I9 v3 Y) U8 L: ]% {  j
//"监听"有效，"连接"无效。表示是服务器 5 K" v4 U  b- }& q
{
9 p$ g, ?" C; A3 g7 W. q. wint i; & M( r  u$ J9 n* W3 ~2 o
for(i=0;i<ServerSocket1->Socket->ActiveConnections;i++)
( V! ?5 ]3 `2 {4 T8 N- ZServerSocket1->Socket->Connections->SendText(edName->Text+"："+edTalk->Text);
- E- R* Z2 e5 O2 p7 z+ m" m+ a2 h}
" f* O3 v1 I) T5 ]4 Helse + a$ o9 h6 _* F7 b7 Q% s
{ & E! a( C3 a. B: b
ClientSocket1->Socket->SendText(edName->Text+"："+edTalk->Text);
9 v% Q" A+ F5 E} " Y/ h; J6 T) K* x6 \( G" O
edTalk->Text=""; . u* ?6 y. y3 n, n: s6 ^
}
/ Q2 L6 y9 F0 T# x: Z5 m
0 @) |$ O& U+ C" f4 C9 pmmTalk的内容不可能永远增加，所以当它有100行时就清空它，在mmTalk的OnChange事件中检查：
- ^" w+ t9 q* M7 C( p; P
  i- d- {  Q/ G: j4 R( l) Lif(mmTalk->Lines->Count>=100)mmTalk->Lines->Clear(); 1 G5 S3 i! m- y1 W! A0 `7 @/ o3 @, T

' X, C# Q; R" r当然你也可以双击mmTalk来清空它，在mmTalk的OnDblClick事件中加入： ; A. E2 E$ X# N) {
$ K& E! s5 G' U+ m" z
mmTalk->Lines->Clear();   O, o9 i- v. Z5 y! O$ P0 n
当你觉得谈话的内容很有意思，你可以单击bbtSave打开保存对话框设置保存特性，所以在bbtSave的onClick中加入代码：
5 [* M* d6 [7 g
, o3 }' l% V" oif(sdTalk->Execute()) ! Q5 U  j6 M; V* q- Q, X
mmTalk->Lines->SaveToFile(sdTalk->FileName); 0 s* q4 z9 }! J: H) a' v- x# n! q
* X4 A! D. ?2 c8 r4 K1 i# T
我们的闲聊程序完成了，在局域网中试试吧？如果你只有一台机器，客户程序在连接时服务器时输入localhost或你机器的名字就可以了。
! x  r6 }$ x& F& Y5 d+ U& y. z
* l, ]  [: }. W$ K' Y（九）读写端口的两种技巧
4 @, U5 s' _3 i" D4 d3 a9 v0 @/ i+ w
<a href="mailtnxyc_twz@163.com" target="_blank" >nxyc_twz@163.com</A> ' X. Z8 \) _. m  S

; p# d3 I* p- B! r. I9 q在C++Builder中，不能够使用Turbo C中的outputb和inputb端口读写函数。但我们可以有另外两种办法实现这个功能。一种为内嵌汇编语言，另一种为使用__emit__函数。 4 E; U7 [# w: \$ t& V
& {. k( Z: J2 j* C/ P
1 通过内嵌汇编语言实现端口的读写
4 N/ H3 N, d" n- O4 Y' x
1 X; L# W5 B  D/ \1 R/ Z9 ~. }) _在C++Builder中，汇编语句必须被包含在以关键字asm为起始的一对大括号中：
& J  m6 O9 m  Z) Q2 B- u" G0 e& Y7 y7 G0 n; r( M, y/ o
asm { % \: g/ l+ _& Z

& _8 D, b$ E7 J  V, N汇编语句1 % m  ?$ |+ D. ^2 c8 e
; I3 s3 g( U) h9 D6 \8 m$ F: p- u
……
8 W" F. k" E2 @' ]. V% {- t: ~. N7 k  x$ c5 N; E" B
} $ H$ D8 ?9 w9 G2 A* P

6 b1 l( J1 `0 N利用内嵌汇编语言编制端口输出函数如下：
8 f% J7 V  a  e5 c7 e; D# p: G6 _
* P5 K5 t, d' R) g8 S( g" ^void OutPort(unsigned short port,unsigned char value)//port参数为输出端口地址，value参数为输出值 * @/ l) t. \# P, s; X
{
8 D6 M  D% V, w) Z1 }8 H' |asm{ 3 X6 x# _4 s. H3 d' P6 U7 F, V
mov dx , port //把端口地址送到处理器DX寄存器中 : q' n5 u# K! v
mov al , value // 把value 送到处理器AL寄存器中 5 w+ v% |7 @& @& K# M
out dx , al // 把AL寄存器中的值送到端口
* T4 J# s0 \) K9 X- L};
  R* C2 Z2 \2 o9 F& v. P( E. k7 D; |
* E  i* {$ m+ h" P  |) Y$ x}
% U% A/ p+ O2 H9 L1 r6 w/ P5 h, L1 q" h8 |! ~* S) T2 _* U
该函数将无符号字符型8位的数据value写入地址为port的端口上，port的数据类型是unsigned short ，16位无符号短整形。 1 ?. Q3 T" R) v: c. M9 |
利用内嵌汇编语言编制端口输入函数如下： 2 X# i- E2 g8 ~! L! _0 }* ~

9 b- F5 P: V( G4 k& Q* Tunsigned char InPort(unsigned short port)//port参数为输入端口地址，返回为输入值 & d* l- s  K8 K3 a6 m6 |. R7 h1 p4 k
{
: S0 _# K( f3 s5 E) S1 J9 C# \unsigned char value ;
9 @1 b4 u- q- ?　asm{
! a" h: ~; l# ~; `4 }mov dx , port // 把端口地址送到处理器DX寄存器中 5 C6 Q8 H( I# l) n9 `* x2 [
in al, dx // 从DX指定端口中将一数据送到AL寄存器中 7 v, p2 r* J, V+ k1 n% N
mov ind , value // 把AL寄存器中的值赋给value
4 c- M& t* I! ]! I) q6 r}; 7 `" i" ~* s3 R9 M
return value; //返回端口数据   J4 f4 c5 T2 ^: S7 h# ]
} 5 R1 Z7 I% p+ d1 N- R% S
3 c' X! L4 @; C3 I; y" x
函数InPort从地址为port的端口读入一个无符号8位的字符型数据，其其参数只一个，即端口号。返回的数据为unsigned char类型的，为从端口读取的值。
0 b, M+ h2 V& ~2 E' c  w0 Y/ @' X9 ?9 w

+ ]" ~1 z- D! b, S2 通过__emit__函数实现端口的读写
" `6 c* M0 ^2 P7 Q4 a2 [: T
4 h( R5 I0 A: P* h6 O0 l__emit__ 函数一般极少用到。其用法如下：
/ m: ]) [& M, f& m0 @1 E4 o: v5 Y: _. Y* |( ^/ c( E
void _ _emit_ _(argument, . . .);
2 r( G; b( h: y' B9 }1 L
) H) U  W  \% n4 @8 v7 f该函数为C＋＋Builder 的一个内部函数，调用的参数为机器语言指令。它在编译的时侯，将机器语言指令直接嵌入目标码中，不必借助于汇编语言和汇编编译程序。 - y+ P* y) j# V
如果想使用__emit__ 函数，必须熟悉80x86处理器的机器语言指令。如果调用的参数是错误机器语言指令，则程序将非正常运行,并很容易导致死机。 0 `6 }: x5 y3 I$ _2 ^: a* U
% f/ N3 U% r* H# Q) Q# g% u
利用__emit__函数编制端口输出函数如下： 9 E& l% [, C+ j& r" G
& s% G) p3 }5 Q6 b+ F
void OutPort(unsigned short port,unsigned char value)//port参数为输出端口地址，value参数为输出值
7 X1 b8 h/ X3 f. \- M( t- ^3 R{ * {& c& t" g1 x/ r
__emit__(0x8b,0x95,&port); // 把端口地址送到处理器EDX寄存器中
  e4 S- h  I8 E( b( [) y　__emit__(0x8a,0x85,&value); // 把value 送到处理器AL寄存器中
2 [# \/ N2 `' o　__emit__(0x66,0xee); // 把AL寄存器中的值送到端口 * x2 r' @; N5 F2 {; C  j! Z6 G
8 x/ d5 Q. Z! R9 I# z
}
: O& r  {8 i' I6 k, y& Q) d& T/ K3 y
利用__emit__函数编制端口输入函数如下：
. g( E2 S* @8 v$ {- [( F
. M' C( q; X: M' |5 junsigned char InPort(unsigned short port)//port参数为输入端口地址，返回为输入值
6 \6 t* [4 N6 f: _4 ?{ 5 B2 {3 ^6 ^- Q
unsigned char value ; ( Y: c- {4 T) P1 B
　__emit__(0x8b,0x95,&port) ; // 把端口地址送到处理器DX寄存器中 8 Y5 B( l8 M1 E5 I" _' N, H! U! Y
　__emit__(0x66,0xec); // 从DX指定端口中将一数据送到AL寄存器中 / T1 }1 ^% X3 n+ z) M) N3 z% g
　__emit__(0x88,0x85,&value); // 把AL寄存器中的值赋给value
  `" F% e5 f/ f* `# W8 ereturn value; //返回端口数据
' E1 ~3 M1 O6 W7 F* i5 J% {}
) B% o$ O& `. Z; S7 }
9 u% }9 k& ]1 a: u6 z& E由这两种方法所编制的函数注释可以看出，它们每一句的功能都是一样的，只是一个是嵌入了汇编语言，另一个是直接使用机器语言。
1 Z- _3 _* v2 Y4 F. |6 \. |5 w$ a# A9 y# [2 r9 k

! k/ l$ y$ I+ X+ J7 v( W( s3 应用举例 : b0 {3 w/ B8 m. V/ g
$ e1 d1 x. v+ t2 i8 H) X; g
在C++Builder中，通过File/New Application菜单新建一工程。 ! r) V: k6 T7 _! Y
6 ?/ y' `7 m! \, W
在表单中加两个Button控件，Caption分别为“写端口”和“读端口”。 " {. R& M4 U. y

2 w) m9 ?/ E: o3 |  V; |" _8 x9 S将第一种方法所编制的OutPort和InPort函数拷贝到表单的头文件中，并把这两个函数作为表单类的在表单类的公有成员函数。
9 K( ^0 C% O* ~
& b; k7 \; l( [  T  m) |$ y分别双击两个Button控件，产生OnClick事件函数。在单元文件的.cpp文件添加如下代码：
/ F" K2 K) L) X7 o! B7 C( W( P" L: c8 e
//---------------------------------------------------------------------------
' w9 ^' _' P# y. t8 q: u0 n
0 Y% O  X0 o, mvoid __fastcall TForm1::Button1Click(TObject *Sender) ! [0 I1 S% j! o& O1 v6 c2 e

5 z1 b4 P) z3 W! o6 T0 b! t7 d{
8 k8 c- P* R0 m8 w+ Y/ D$ DOutPort(0x378,0x00);//向地址为378H的端口输出数据
/ l. A' [9 y, f0 fOutPort(0x379,0x00);//向地址为379H的端口输出数据
3 U& {. B* c. V% L} 2 y& i( o1 k, D
& e5 A$ F4 g- m4 Q) ]+ v
//---------------------------------------------------------------------------
0 u0 J/ ~5 ?' O6 V6 C$ B. m4 s! b3 I, @) `1 S4 h  u
void __fastcall TForm1::Button2Click(TObject *Sender)
  v/ f9 K+ P& }3 l8 _; A
( W/ b* _' `8 }" z( X{
0 V2 |* t# i% b5 C+ p. Dint value;
1 n: S. D. p- @value=InPort(0x37a);//从地址为37aH的端口读入数据
3 W9 R! L" }) o}
( v' W8 t9 m! l4 F" h
( c+ v9 O9 j9 H- u//---------------------------------------------------------------------------
. _! L$ f$ z0 v; T2 j
& A$ Q2 c/ H" O) G3 T( p  d" O- e4 f# c1 I0 q; c( k7 d
（十）如何实现控件数组 9 y. F4 k  {/ k& P
* W. C' R* |: F+ o! w. o* C
+ \8 i* Y7 E8 [* Q% Z. s! H

% K' X1 @' y, L& Z$ ?+ \
: I& q% l! p' E3 e8 U5 W6 |2 f在C++ Builder中，没有提供像VB中控件数组的功能,很令遗憾。经过一番琢摸，终于解决了这个问题。技巧不敢独享，奉献出来供大家交流。 % H% k# r7 _: }6 r; r  k2 q2 u/ w7 l

) n$ p$ o- g. l+ \( u/ g& s1 ^- x2 C% e" a7 m, O
在VB中，控件数组可以： ) {+ a* P4 x% \+ B* W
% k  J) Y, [8 l# j) c

( f8 `% E/ p1 ?( F允许多个控件共享同一个事件句柄 1 q9 w4 ~. c# X, X8 @: C3 X- S
提供了运行期间增加一个控件的机制 0 h& k/ ]0 k5 O, X: Z, q
提供了一种方便的组合控件的方法。 * E1 t/ R% ?+ J' }1 {5 y
前两项在C++ Builder中早已实现,而且CB更有一个优点。即不同类型的控件可以使用相同的句柄(只需在相关控件的Object Inspector窗口中的EVENT事件设置即可)。
. W/ H# l4 d( |& l( Z7 |$ V　　 C++ Builder中使用了Tlist类对象来组合控件数组,与VB控件数组元素必须为同一类型控件相比较,C++ Builder中的Tlist类对象可以组合任意类型的控件而不必强求同一种类,这样就大大地方便了程序开发者。例如可以把在不同Panel面板控件上的所有控件组合为一个控件数组。
2 q! Z5 g) p: s0 n0 ]& ^/ |　　在具体的开发实践中，我采用Tlist类对象创建、维护了多类型的控件数组。其实现原理与方法详见以下的原程序代码。实例程序实现了动态创建一个包含8个TEdit类型控件和4个TImage类型控件的控件数组,在程序运行中对所创建的控件进行修改、维护的功能。 5 b6 U& `0 l& _7 H1 _2 Y
　　 1、创建一个新的工程文件(New Application),在Form1上放置两个TPanel类型的Panel1和Panel2,调整大小合适,再在窗体下方放置四个TButton类型Button1,Button2,Button3,Button4,设置控件属性如下：Button1->Caption="新建控件数组",Button2->Caption="改变控件位置", Button3->Caption="还原到原位置", Button4->Caption="退出"；Button2->Enabled=false,Button3->Enabled=false。
1 f$ _9 |1 C8 a) }! `) R) B　　2、在文件Unit1.H中加入以下声明： ! Y1 z' M. M9 y
　　class TForm1 : public TForm
$ y. t- |/ d/ s　　 {
) ]! F4 ^: b. a1 q: G, v5 ~　　 published: // IDE-managed Components
( o3 F% n  ^- X3 M; x　　 TPanel *Panel1; ; ^9 W/ f$ W" a0 o
　　 TPanel *Panel2;
" ?) V$ l7 U0 V0 t  Q" q　　 TButton *Button1;
9 m! B. B! O  e( x) W& {　　 TButton *Button2;
  H) E  L+ K0 I' I/ i# E7 ?. t# Y　　 TButton *Button3;
. K' P: S7 I" i$ ^. r　　 TButton *Button4;
2 B" b/ w  @, p& l/ G$ M; f　　 private: // User declarations 6 z, m* q: q% c& A+ Q8 P
　　 TList *MyVCL; 3 x, p9 G' E+ ]8 W; h, F' L3 t& ~
　　 public: // User declarations
  X) L( H1 D2 ?1 [1 _0 u+ i　　 __fastcall TForm1(TComponent* Owner); 1 M( _. c# @$ n/ k( m5 Q
　　 virtual __fastcall ~TForm1( ); . e( B, E4 M* C8 h  ^
　　};
, A* S" v, `& y6 d7 A) ?　　3、切换到工程的Form界面,双击工程的主界面Form,创建一个OnCreate事件句柄,在文件Unit1.CPP中加入以下代码：
( g7 }0 j4 g* J# a: a" f　　void __fastcall TForm1::FormCreate(TObject *Sender) 1 u; T. l7 ~; q) d- w
　　{
: b/ L  y7 G" O" w8 v　　 MyVCL = new TList;//创建TList对象
  ?" a, x1 m1 [% A　　} 2 a! U' A$ m% C. X
　　将TForm1析构函数加入到文件Unit1.CPP中：   k6 v) a' K5 I; M7 Q
　　__fastcall TForm1::~TForm1() 5 G" {8 N$ O" g; C
　　{   z: D- c/ q2 @& R
　　 delete MyVCL; //删除TList对象
9 i: O7 Z0 c3 z. I8 e! ^5 t　　} # l4 J; W# C& [" _( [# O# s
　　 4、双击标签(Caption)为"创建控件数组"的按钮,创建一个OnClick事件句柄,添加以下代码到OnClick事件句柄中：
2 `1 _7 V- G* @2 o! R& ?: w% d　　void __fastcall TForm1::Button1Click(TObject *Sender) . X* ?: c) F4 e
　　{ 7 V  e4 h' E- y6 Z  O. B
　　 //创建新的控件,调整其位置,并加入到MyVcl(TList 类)之中
" B, Z" |! t9 {# R* p　　 int temptop=5;
) w* h  h' {8 O* x4 l　　 for (int i=0;i<4;i++)
4 Q9 k2 M' h+ N3 s& M5 |8 Y# A. @$ N8 P" f$ L
{ 0 m" H2 S6 ~7 d
　　 TEdit *EditNow = new TEdit(this); : Z- V+ y' y" A' p0 v
　　 EditNow-&gtarent=Panel1;
1 f* B0 U# c$ ~- z- G, H0 Y- k　　 EditNow->Text= IntToStr(i); 2 @8 j  @9 E+ f  S
　　 EditNow->ReadOnly=true;
' `; |0 L% i/ x% k; Q8 ]" \9 ~　　 EditNow->Top=temptop; & M% y& n8 D% U9 L3 b# p- o$ h$ R
　　 EditNow->Height=24; 5 I1 k% k' y& @0 Q/ P- z% ?
　　 EditNow->Width=24;
& Z+ y+ s* [+ M. F" |" h& m, Q　　 EditNow->Left=10;
0 I' \' z" u  h　　 MyVCL->Add(EditNow); //加入到控件数组中
- G1 O- |& ]6 O　　 TImage *ImageOff= new TImage(this);
1 P  [2 O% v* m' j, c　　 ImageOff-&gtarent=Panel1;
/ J" S" q" Z; j1 T　　 ImageOff-&gticture->LoadFromFile("None.BMP");   W# b+ Y# I3 O, {9 I
　　 ImageOff->Top=temptop;
1 f! t- Q* [6 T/ r! Y: y5 v　　 ImageOff->Height=24;
$ [8 \1 X$ h  S  l8 t　　 ImageOff->Width=24;
# |+ n6 b# h9 c" t; `* q　　 ImageOff->Left=EditNow->Left+EditNow->Width;
! L; g4 n( F( P- X　　 MyVCL->Add(ImageOff); //加入到控件数组中
; ?9 P) u/ a0 M7 K" {; f　　 TEdit *EditStatus = new TEdit(this);
" c) u: e2 b2 J5 i2 h　　 EditStatus-&gtarent=Panel1; 8 n  X  q* [6 t7 Y& J9 |
　　 EditStatus->Font->Name = "Arial";
2 I) V) E& v( s) O* l　　 EditStatus->Font->Size = 12;
, u: _! \* Y6 i7 V# \% F$ t5 |　　 EditStatus->Text="禁止访问";
! B- A8 R! N) h/ b! S+ K　　 EditStatus->ReadOnly=true; ' G/ R$ a# s% ^" ?$ ]' ~
　　 EditStatus->Top=temptop;
  r8 j; ?0 S( _# C) w2 d　　 EditStatus->Height=24;
9 M$ X3 S; I  }$ F$ C　　 EditStatus->Width=80;
4 ~2 r2 R8 a: U　　 EditStatus->Left= ImageOff->Left+ImageOff->Width;
! m( W# A8 C: \- {. g1 L　　 MyVCL->Add(EditStatus); //加入到控件数组中
7 `- V; R; i7 B; |" \% D0 Z" \# ?' y　　 temptop=temptop+24+5;
0 Q3 s& C6 N% S. u7 {* I& e　　 }
& Y/ _8 a% n- v  _+ L2 q  O　　 Button1->Enabled=false;
2 E2 ]7 g* e: `$ b　　 Button2->Enabled=true; 4 U% |( k* }/ m" O2 {' V
　　 } 7 g- L% k- j* d% \  k& `/ H
　　5、同4所示方法,依次双击标签的标题(Caption)为"改变控件位置"、 "还原到原位置"、 "退出"的按钮,创建对应的OnClick事件句柄,添加以下代码到对应的OnClick事件句柄中： + E; i& G3 \: R: r
　　void __fastcall TForm1::Button2Click(TObject *Sender)
7 Y& ~+ {% w9 F2 J# |　　{
$ ]7 y! b  L" q0 r# g) X. R. `1 Y　　 for (int i=0;i<4;i++) 1 ^! t2 k/ t0 u' k; j
　　 ((TImage*)MyVCL->Items[i*3+1])-&gtarent=Panel2; & H, x, |' P6 ~. _0 k
　　 Button2->Enabled=false;
# F5 h( n: C/ b6 [8 k' l0 \　　 Button3->Enabled=true;
/ ^; W- ]+ D. n8 T8 k1 _7 ?# Q8 m　　} ; Z# E4 G% W9 ]
　　void __fastcall TForm1::Button3Click(TObject *Sender) ( `/ b' R, {! l# a
　　{ " `  G& n: E" d
　　 for (int i=0;i<4;i++)
, N; k' N; K3 s. }　　 ((TImage*)MyVCL->Items[i*3+1])-&gtarent=Panel1; # E4 R# q7 x9 y* W: u8 z# I
　　 Button3->Enabled=false; ; w( R& e7 C5 d* a( T& B
　　 Button2->Enabled=true;
& P- k9 V3 r  d! P. W4 g　　} # v  ]& `4 ^( a. E, d' W
　　void __fastcall TForm1::Button4Click(TObject *Sender)
; n" V6 m& D5 q% m; t7 o: ]/ i- D　　{ 2 m; S! e$ y" r
　　 Close(); //关闭窗体 8 _* ~) O; M  e
　　}   |5 M! V, ]  m0 E, r
　　由上所述,实际的代码大多只是用于设定控件位置和基本属性,真正实现控件数组功能的代码并不太多,也不复杂,而且十分的灵活；需要注意的是使用TList类对象组合中的各项控件之前,必须先将其强制转换为一个对象指针以指明其类型,才能对其属性进行修改/赋值操作。 0 f- G5 N9 Z# D  F- F, o8 N

; Y6 w8 L+ J9 b- p6 {0 s- K5 o（十）用Sender参数实现代码重用
! d' ~$ h7 W, R' m9 X; o# A: t- M" F4 w' }; A3 T  r
<a href="mailtnxyc_twz@163.com" target="_blank" >nxyc_twz@163.com</A> 8 h) X5 B4 k* ~8 M, C; y
2 |) y( E" P" n" \  @0 ]
面向对象的编程工具的特点之一就是要提高代码重用性（Reuse），BCB当然可以实现这一功能。我们都知道，在BCB中，大部分程序代码都直接或间接的对应着一个事件，此程序称为事件处理句柄，它实际上就是一个过程。从应用程序的工程到窗口、组件和程序，BCB强调的是其开发过程中每一层次的重用性，可以充分利用已编写过的代码来减少工作量，更会使你的程序变得优美。代码段间的共享都跟发生该事件的控件有关，需要根据控件类型做出相应的处理，这时就要用到Sender参数。 3 W7 w% v9 T5 N$ t+ M

  I0 x" a( e7 F2 Z7 ~- Z. w- ~每个函数的开头都有形如： 2 ~/ w* |* a2 Z( t
void _fastcall Tform1::Button1Click(TObject *Sender) ) k% D, H) q$ R# b9 k

" h$ o/ ?$ O4 Q7 A2 i% x3 V  A' w其中的Sender是一个Tobject类型的参数，它告诉BCB哪个控件接收到这个事件并调用相应的处理过程。我们可以编写一个单一的事件处理句柄，通过Sender参数和if语句或者case语句配合，来处理多个组件。在Delphi中可以用IS来测试Sender类型，或者用AS进行类型转换，BCB我们只在用dynamic_cast来进行上面两个工作，下面把dynamic_cast的用法说明一下。
# B4 S+ K% U7 w: `+ Q: s3 H
, z3 [) H- M  B; H+ tdynamic_cast 可以把某种对象强制转成另一个类，类型转换成功则返回一个值是0的指针，失败则丢出一个异常处理信息：Bad_cast，但你放心不会导致系统死机，所以可以放心使用。其程式：
9 Q9 u9 d- t# z: wdynamic_cast <T> (ptr) 2 t/ T2 r8 {3 z3 w/ v8 W
T参数一定要是一个指针、void 、或是已经定义过的类，而ptr参数则必须是一个指针（pointer）或是一个引用（reference）。如果T的类型是void，那么ptr则是一个可以访问最下面类里的任何成员，当然这样的类将不可以是基础类。 ) B& l! _: q2 U' |4 h/ Z
) V; a& |6 M1 p6 p8 a) f2 C! F
1．进行判断 ; Y! F% T( c9 _
我们用dynamic_case来测试Sender，以便找到调用这个事件的处理句柄或组件的类型。如，并窗口编辑框和标签的Click事件的处理句柄都指向窗口的xxx函数，编辑框和标签对Click事件有不同的反应： 3 N4 ^& a1 n* `
void _fastcall TForm1::xxx(Tobject *Sender)
2 P8 j5 _8 G* u3 \! `8 k3 F% Y* F{ 3 q7 F8 O+ q! L& q1 F5 d! @1 L
if(dynamic_cast<TEdit *>(Sender) % X8 E; x* j- u- v: q
showmessage(“This is a editbox”);
  U/ F! J5 u, x2 _6 w5 ]" mif(dynamic_cast<TLabel *>(Sender)
4 ~8 D* h- R" ishowmessage(“This is a label”);
+ V( M( D# I1 C  q0 f; p' i} 9 q" N- q# d6 ^  |& Y

( E9 p6 k/ q) v2．强制进行类型转换 $ D& n3 T9 ]. ?7 ~! v
将若干继承同一父类的子类强制转换成该父类。如窗口中有一个TEdit类控件和一个TMemo控件，它们实际上都继承于TCustomEdit类，如果你要为二者的某一事件提供同样的处理，可以将二者事件句柄都指向自定义的函数yyy:
1 V3 G0 d4 g! Avoid _fastcall TForm1::yyy(Tobject *Sender)
1 ?* f( t) Y* P( a5 T$ f3 d4 B{
: e9 Z4 a! Y3 V3 t" m+ c0 rdynamic_cast<TCustomEdit *>(Sender).text=”This is some demo text”; 7 b+ A9 e& R- h. m! }1 p
} 6 w/ M) I. W- z  O1 ^. z7 C
在这里，先把TEdit类和TMemo类均强制转换成TCustomEdit类，再对其父类的属性进行赋值。
/ k0 ^" K0 v- H5 X  R6 U使用Sender参数可以通过单一函数段处理多类组件，真正体现了BCB的面向对象的重用性。</DIV>