delphi - 如何生成 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);