procedure TForm1.BtnStartClick(Sender：TObject)； begin 　ScreenCapture1.start； //开始截图 end； 　//当截取屏幕成功时，此事件发生 　procedure TForm1.ScreenCapture1Capture(Sender：TObject；Bitmap：TBitmap)； begin 　//调整滚动窗口的大小以适应截获图像的大小