unit1.cpp

<<C++Builder 6实用编程100例>>随书光盘

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm1::FormKeyDown(TObject *Sender, WORD &Key,
      TShiftState Shift)
{
        if(Shift.Contains(ssShift))     //Shift键
                StatusBar1->Panels->Items[0]->Text="S h i f t";
        if(Shift.Contains(ssCtrl))      //Ctrl键
                StatusBar1->Panels->Items[1]->Text="C t r l";
        if(Shift.Contains(ssAlt))       //Alt键
                StatusBar1->Panels->Items[2]->Text="A l t";
}
//---------------------------------------------------------------------------

void __fastcall TForm1::FormKeyUp(TObject *Sender, WORD &Key,
      TShiftState Shift)
{
        if(!Shift.Contains(ssShift))
                StatusBar1->Panels->Items[0]->Text="";
        if(!Shift.Contains(ssCtrl))
                StatusBar1->Panels->Items[1]->Text="";
        if(!Shift.Contains(ssAlt))
                StatusBar1->Panels->Items[2]->Text="";
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormMouseDown(TObject *Sender, TMouseButton Button,
      TShiftState Shift, int X, int Y)
{
        if(Shift.Contains(ssLeft))      //鼠标左键
                StatusBar1->Panels->Items[3]->Text="L e f t";
        if(Shift.Contains(ssMiddle))    //鼠标中键
                StatusBar1->Panels->Items[4]->Text="M i d d l e";
        if(Shift.Contains(ssRight))     //鼠标右键
                StatusBar1->Panels->Items[5]->Text="R i g h t";
        if(Shift.Contains(ssDouble))     //双击鼠标
                StatusBar1->Panels->Items[6]->Text="D o u b l e";
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormMouseUp(TObject *Sender, TMouseButton Button,
      TShiftState Shift, int X, int Y)
{
        if(!Shift.Contains(ssLeft))
                StatusBar1->Panels->Items[3]->Text="";
        if(!Shift.Contains(ssMiddle))
                StatusBar1->Panels->Items[4]->Text="";
        if(!Shift.Contains(ssRight))
                StatusBar1->Panels->Items[5]->Text="";
        if(!Shift.Contains(ssDouble))
                StatusBar1->Panels->Items[6]->Text="";
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormKeyPress(TObject *Sender, char &Key)
{
        Label1->Caption="您按下的是 "+String(Key)+" 键";
}
//---------------------------------------------------------------------------