delphi 图像文件加载到剪切板，再从剪切板绘制图像

本文整理自网络，侵删。

 
描述
下面的代码在按下按钮时从剪贴板绘制位图图像。要将图标放置在剪贴板上，必须在LoadFromClipboard按钮之前选择SaveToClipboard按钮。

uses Clipbrd;

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;
 

相关阅读 >>

tidtcpclient控件中文指南

Delphi 从文件中读取图像类型

Delphi tstringlist indexof find 查找字符串

Delphi 用cxgrid显示联合查询数据和更改数据

Delphi 双进程监控保护

Delphi 取得开机时间 开机时间总长度（可精确到秒，分钟等）

Delphi让form先于控件响应按键

Delphi urldownloadtofile 实现文件下载

Delphi 利用createservice写与桌面交互的win32服务

Delphi xe中 exit 的新用法

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi 图像文件加载到剪切板，再从剪切板绘制图像