1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

procedure TNutDef.savetoJPEG(fname: TFilename);
var
ARect : TRect;
jpg:TJPEGImage;
begin
 fname := changeFileExt(fname,'.jpg');
 screen_dump.Width := width;
 screen_dump.Height := height;
 screen_dump.Canvas.CopyRect(rect(0, 0, width, height), Canvas,  rect(0, 0, width, height));
 jpg:=TJPEGImage.Create;
 jpg.Assign(screen_dump);
 jpg.CompressionQuality:=90;
 jpg.SaveToFile(fname);
 jpg.Free;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

procedure ScreenShot(Panel:TPanel;Bild: TBitMap);
var
  c: TCanvas;
  r: TRect;
begin
  c := TCanvas.Create;
  c.Handle := GetWindowDC(Panel.handle);
  try
    r := Rect(0, 0, Panel.Width, Panel.Height);
    Bild.Width := Panel.Width;
    Bild.Height := Panel.Height;
    Bild.Canvas.CopyRect(r, c, r);
  finally
    ReleaseDC(0, c.Handle);
    c.Free;
  end;
end;					

1:

ScreenShot(Panel1,Image1.Picture.BitMap);					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls;

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    procedure FormCreate(Sender: TObject);
  private
    FUNCTION ScreenshotControl(aControl : TControl; aFileName : String) : Boolean;
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
FUNCTION TForm1.ScreenshotControl(aControl : TControl; aFileName : String) : Boolean;
VAR 
  bmp: TBitmap;
BEGIN 
  Result := FALSE;
  IF Assigned(aControl) THEN 
  TRY
    Bmp        := TBitmap.Create;
    Bmp.Width  := aControl.Width;
    Bmp.Height := aControl.Height; 
    Bmp.Canvas.CopyRect(Rect(0,0,Bmp.Width,Bmp.Height),
                        Canvas,aControl.BoundsRect); // "Canvas" = Self.Canvas 
    Bmp.SaveToFile(aFileName);
    Result := TRUE; 
  FINALLY
    FreeAndNil(Bmp); 
  END;
END; 

procedure TForm1.FormCreate(Sender: TObject);
begin
 IF ScreenShotControl(Panel1,'C:\Test.bmp') Then ShowMessage('Hat geklappt!');
end;

end.