首先看一看窗口的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 SetClasses_1,ssShift,ssDoubleTShiftSTate;
TShiftSTate是一个集合(Set),也就是说,TShiftState是Sysdefs.h中Set模板类的
一个实例。如果想要知道某个元素是不是集合中的一个成员,可以使用Contains方法:
ShiftKey-Checked=Shift.Contains(ssShift);
ControlKey-Checked=Shift.Contains(ssCtrl);
LeftButton-Checke...[ 查看全文 ]