如何生成TScrollBox全部内容的镜像？

Question

我想生成TScrollBox的全部内容的图像。像截图一样。即使所有内容都不在可见屏幕区域内。

Answer 1

每个TControl子体都有一个Perform方法，您可以使用它来使它像处理windows消息一样执行，所以这应该是有效的：

var
  b:TBitmap;
begin
  b:=Image1.Picture.Bitmap;//or b:=TBitmap.Create;
  b.Width:=ScrollBox1.HorzScrollBar.Range;
  b.Height:=ScrollBox1.VertScrollBar.Range;
  SetWindowOrgEx(b.Canvas.Handle,-ScrollBox1.HorzScrollBar.Position,-ScrollBox1.VertScrollBar.Position,nil);
  ScrollBox1.Perform(WM_ERASEBKGND,b.Canvas.Handle,0);
  ScrollBox1.Perform(WM_PAINT,b.Canvas.Handle,0);