Screenshot de un TPanel

[delphi.com.ar]

Código Delphi [-]
var
  DC : HDC;
  bmp: TBitmap;
begin
  dc := GetWindowDC(Panel1.Handle);
  bmp := TBitmap.Create;
  try
    bmp.Width := Panel1.Width;
    bmp.Height := Panel1.Height;
    BitBlt(bmp.Canvas.Handle, 0, 0, bmp.Width, bmp.Height, DC, 0, 0, SRCCOPY);
    bmp.SaveToFile('c:\temp.bmp');
  finally
    bmp.Free;
    ReleaseDC(Panel1.Handle, DC);
  end;
end;

Saludos!

[javier7ar]

Tambien podes usar la funcion PaintTo que tienen todos los TWinControl. Si te fijas en la ayuda de PaintTo explica incluso como pintar el control directamente sobre la impresora para imprimirlo.

Código Delphi [-]
var
  bmp: TBitmap;
begin
  bmp := TBitmap.Create;
  try
    bmp.Width := Panel1.Width;
    bmp.Height := Panel1.Height;
    Panel1.PaintTo(bmp.Canvas.Handle,0,0);
    bmp.SaveToFile('c:\temp.bmp');
  finally
    bmp.Free;
  end;
end;

Saludos

[hgiacobone]

Gracias muchachos por sus amables respuestas.