Wie kann ich ein Formular als Bitmap in die Zwischenablage kopieren?

uses ClipBrd;

procedure Screenshot;
var Bitmap: TBitmap;
begin
  Bitmap := TBitmap.Create;
  Bitmap.Width := ClientWidth;
  Bitmap.Height := ClientHeight;
  try
    with Bitmap.Canvas do
      CopyRect(ClientRect,Canvas,ClientRect);
    Clipboard.Assign(Bitmap);
  finally
    Bitmap.free;
  end;
end;

Delphi 1

Delphi 2

Delphi 3

Delphi 4

nicht getestet

Version nicht betroffen

getestet

siehe auch:

Delphi FAQ