Inhalt des Forms als Bild speichern

[Martin K]

Müsste so gehen:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var BMP: TBitmap;
begin
  BMP := TBitmap.Create;
  try
    BMP.Width := ClientWidth;
    BMP.Height := ClientHeight;
    BMP.Canvas.CopyRect(Rect(0, 0, BMP.Width, BMP.Height), Canvas, Rect(0, 0, ClientWidth, ClientHeight));
    BMP.SaveToFile('C:\test.bmp');
  finally
    BMP.Free;
  end;
end;

Habs aber nich getestet...