Description: procedure TForm1.BtnStartClick(Sender:TObject); begin ScreenCapture1.start; //开始截图 end; //当截取屏幕成功时,此事件发生 procedure TForm1.ScreenCapture1Capture(Sender:TObject;Bitmap:TBitmap); begin //调整滚动窗口的大小以适应截获图像的大小 Scrollbox1.
Platform: |
Size: 602039 |
Author: hwbcs@163.com |
Hits: