正在阅读：C++ Builder 初学问与答(五)C++ Builder 初学问与答(五)

__fastcall TForm1::TForm1(TComponent* Owner)

        : TForm(Owner)

{

}

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

void __fastcall TForm1::ScrollBar1Scroll(TObject *Sender,

      TScrollCode ScrollCode, int &ScrollPos)

{

         AnsiString temp;

if(Sender==ScrollBar2)

temp="垂直滚动条的";

else

temp="水平滚动条的";

switch(ScrollCode)

{

       case scLineUp:temp+="scLineUp";break;

       case scLineDown:temp+="scLineDown";break;

       case scPageUp:temp+="scPageUp";break;

       case scPageDown:temp+="scPageDown";break;

       case scPosition:temp+="scPosition";break;

       case scTrack:temp+="scTrack";break;

       case scTop:temp+="scTop";break;

       case scBottom:temp+="scBottom";break;

       case scEndScroll:temp+="scEndScroll";break;

     default:

temp+="未知";break;

}

Memo1->Lines->Append(temp+"事件");

}