クリップボードにBMPをコピーする

Windowsのクリップボードをカプセル化した TClipboardを使用します。このクラスは Clipbrdユニットに宣言されているので uses節に Clipbrdを追加しないといけません。クリップボードに BMPをコピーする場合は、TClipboardの Assignメソッドを使えば簡単に実現できます。

■ クリップボードにイメージをコピーする例 
  procedure TForm1.Button1Click(Sender: TObject);
  var
    bmpBack : TPicture;
  begin
    bmpBack :=  TPicture.Create;
    bmpBack.LoadFromFile('d:\borland\delphi 3\images\splash\16color\athena.bmp');
    Clipboard.Assign(bmpBack);
    bmpBack.Free;
  end;

■ クリップボードからイメージをペーストする例 
  procedure TForm1.Button1Click(Sender: TObject);
  begin
    if  Clipboard.HasFormat(CF_BITMAP)  then
    begin
      Image1.Picture.Assign(Clipboard);
    end;
  end;