ビットマップをコピーして貼り付ける

ここではImage1にあるビットマップをクリップボードを経由してImage2に貼り付けます。



■uses節にClipbrdを追加

■ビットマップをコピーして貼り付ける処理
procedure TForm1.Button1Click(Sender: TObject);
begin

　//Image1のBMPをクリップボードに
　Clipboard.Assign(Image1.Picture);

end;

procedure TForm1.Button2Click(Sender: TObject);
begin

　//クリップボードのBMPをImage2に貼り付け
　Image2.Picture.Assign(Clipboard);

　//クリップボードを空にする
　Clipboard.Clear;

end;





Delphi　Tipsのページへ



ホーム