Konnte nicht funktionieren, habe ein wenig mist gebaut:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var bitmap:TBitmap;
begin
bitmap := TBitmap.Create;
bitmap.width := clientrect.Right;
bitmap.height := clientrect.Bottom;
bitmap.canvas.copyrect(clientrect,Canvas, clientrect);
bitmap.savetofile('c:\test.bmp');
bitmap.free;
end;
So geht es!
Das einzige Problem ist, das alle Schaltflächen usw. mit gespeichert werden. Um dies zu vermeiden musst du bei bitmap.canvas.copyrect(clientrect,canvas, rect(hier, muss, dein, quell-rechteck rein)).