TBitmap in die Zwischenablage kopieren

[Luckie]

In der Hilfe ist auch ein Beispiel:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);

var
  MyFormat : Word;
  Bitmap : TBitMap;
  AData,APalette : THandle;
begin
  Bitmap := TBitmap.Create;
  try
    Bitmap.LoadFromFile('c:\Program Files\Common Files\Borland Shared\Images\Splash\256color\factory.bmp');
    Bitmap.SaveToClipBoardFormat(MyFormat,AData,APalette);
    ClipBoard.SetAsHandle(MyFormat,AData);
  finally
    Bitmap.Free;
  end;
end;