The following VCL code shows how to paste a picture from the clipboard into an image control in response to a click on an Edit|Paste menu item:procedure TForm1.PasteButtonClick(Sender: TObject); var Bitmap: TBitmap; begin if Clipboard.HasFormat(CF_BITMAP) then { is there a bitmap on the Windows clipboard? ) begin Image1.Picture.Bitmap.Assign(Clipboard); end; end;
var
Bitmap: TBitmap;
begin
if Clipboard.HasFormat(CF_BITMAP) then { is there a bitmap on the Windows clipboard? )
begin
Image1.Picture.Bitmap.Assign(Clipboard);
end;
end;