LoadFromClipBoard (Delphi)

Description

The following code draws a bitmap image from the Clipboard when a button is pressed. To place the icon on the clipboard, the SaveToClipboard button must be selected before the LoadFromClipboard button.

Code

procedure TForm1.Button1Click(Sender: TObject);
var
  Bitmap : TBitmap;
  s : string;
  Icon: TIcon;
begin
 Bitmap := TBitMap.Create;
 try
   Image1.Picture.RegisterClipboardFormat(cf_BitMap,TIcon);
   Bitmap.LoadFromClipBoardFormat(
     cf_BitMap,ClipBoard.GetAsHandle(cf_Bitmap),0);
   Canvas.draw(0,0,Bitmap);
 finally
   Bitmap.free;
   Clipboard.Clear;
 end;
end;

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

Uses

• Vcl.Graphics.TBitmap.LoadFromClipboardFormat ( fr | de | ja )
• Vcl.Graphics.TBitmap.SaveToClipboardFormat ( fr | de | ja )
• Vcl.Graphics.TPicture.RegisterClipboardFormat ( fr | de | ja )
• Vcl.Clipbrd.Clipboard ( fr | de | ja )
• Vcl.Clipbrd.TClipboard.GetAsHandle ( fr | de | ja )
• Vcl.Clipbrd.TClipboard.SetAsHandle ( fr | de | ja )
• Vcl.Clipbrd.TClipboard.Clear ( fr | de | ja )