C++Builder5编程实例与技巧联系实例S3OC.docxVIP

//--------------------------------------------------------------------------- #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::FormCreate(TObject *Sender) { String AppPath; AppPath=ExtractFileDir(Application-ExeName);// Application-ExeName语句为自动获取本软件所在的目录 Image1-Picture-LoadFromFile(AppPath+\\MyPicture.bmp);//保证软件所在目录下有MyPicture.bmp这个照片 ScrollBar1-Max=Image1-Picture-Width-Image1-Width; // 设置滚动条的最大值 Image1-Width=Image1-Picture-Width; //将Image1组件的宽度等同于图片的宽度。 Button1-Enabled=false; //将“应用”按钮失效。 } //--------------------------------------------------------------------------- void __fastcall TForm1::ScrollBar1Change(TObject *Sender) { Image1-Left = -ScrollBar1-Position; //改变图片的左边界位置，让图片滚动显示。 } //--------------------------------------------------------------------------- void __fastcall TForm1::Edit1Change(TObject *Sender) { Button1-Enabled=true; //将“应用”按钮有效。 } //--------------------------------------------------------------------------- void __fastcall TForm1::Button1Click(TObject *Sender) { Label3-Caption =Edit2-Text ; //更新图片下方显示的文字 ScrollBar1-LargeChange =StrToInt(Edit1-Text); //更新滚动条翻页时的步长 Button1-Enabled =false; //将“应用”按钮失效 } //--------------------------------------------------------------------------- void __fastcall TForm1::FormShow(TObject *Sender) { Button1-Enabled=false; //在最开始先将“应用”按钮失效。 } //--------------------------------------------------------------------------- void __fastcall TForm1::N3Click(TObject *Sender) { Close(); } //--------------------------------------------------------------------------- void __fastcall TForm1::N2Cl