首先看一看窗口的MouseDown事件的声明

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

                                      TShiftState Shift,int X,int Y)

其中的Shift参数被说明为TShiftState类型：

enum Classes_1{ssShift,ssAlt,ssCtrl,ssRight,ssMiddle,ssDouble};

typedef Set<Classes_1,ssShift,ssDouble>TShiftSTate;

TShiftSTate是一个集合(Set)，也就是说，TShiftState是Sysdefs.h中Set模板类的

一个实例。如果想要知道某个元素是不是集合中的一个成员，可以使用Contains方法：

                   ShiftKey->Checked=Shift.Contains(ssShift);

                   ControlKey->Checked=Shift.Contains(ssCtrl);

                    LeftButton->Checked=Shift.Contains(ssLeft);

                    RightButton->Checked=Shift.Contains(ssRight);

这段代码询问元素ssRight是不是属于Shift集合。如果是的话，那么代码就设置为TCheckBox

组件的状态。

    下面是在运行状态下说明一个集合的方法：

        TShiftState LeftShift;

        LeftShift<<ssLeft<<ssShift;

    对于上面这个集合，如果询问集合中是否包含ssLeft或ssShift, 那么Contains运算符

将返回True值。

    除了Contains方法外，还可以在Set类中使用下面三个运算符：

    +    并集

    -    差集

    *    交集

    上面这三个运算符都返回一个集合，而Contains返回一个布尔值。



SETEXP程序

    如下面程序清单所示，SETEXP程序说明了如何使用Set模板类中的关键元素。

///////////////////////////////////////

//    File: Main.cpp

// Project: SetExp

// Creator: Copyright 1998 by Charlie Calvert

//

#include <vcl.h>

#pragma hdrstop

#include "Main.h"

#pragma resource "*.dfm"

TForm1 *Form1;





__fastcall TForm1::TForm1(TComponent* Owner)

  : TForm(Owner)

{

}



void TForm1::CheckState(TShiftState Shift)

{

  ShiftKey->Checked = Shift.Contains(ssShift);

  ControlKey->Checked = Shift.Contains(ssCtrl);

  LeftButton->Checked = Shift.Contains(ssLeft);

  RightButton->Checked = Shift.Contains(ssRight);

}



void __fastcall TForm1::UnionClick(TObject *Sender)

{

  AnsiString Operators[3] = {"+", "*", "-"};



  TShiftState FinalSet;

  TShiftState LeftShift;

  TShiftState LeftCtrl;



  LeftShift << ssLeft << ssShift;

  LeftCtrl << ssLeft << ssCtrl;

  

  switch (TOptType(dynamic_cast <TBitBtn*>(Sender)->Tag))

  {

    case otUnion:

      FinalSet = LeftShift + LeftCtrl;

      break;



    case otIntersection:

      FinalSet = LeftShift * LeftCtrl;

      break;



    case otDifference:

      FinalSet = LeftShift - LeftCtrl;

      break;

  }

  CheckState(FinalSet);

  Label2->Caption = Operators[dynamic_cast<TBitBtn *>(Sender)->Tag];

}



void __fastcall TForm1::Label4MouseDown(TObject *Sender, TMouseButton Button,

  TShiftState Shift, int X, int Y)

{

  CheckState(Shift);

}     

     SetExp程序说明了如何对集合进行访问和操作。尤其是程序中使用了TShiftState类

型的集合。通过这个示例程序可以学习使用C++Builder集合所需的内容。

    如下图所示，SETEXP程序的主窗口包含了4个TCheckBox、2个TPanel、4个TLabel和3个TBitBtn对象。4个TCheckBox对象放置在第一个TPanel对象的上面，第4个TLabel对象放置在第二个TPanel对象的上面。



  SETEXP程序可以显示在单击鼠标时，是否按下了Shift键或Ctrl键，还可以显示用户按下  的是鼠标左键还是右键。代码中说明了如何使用交集、并集和差集运算符。