本文整理自网络,侵删。
描述下面的代码在按下按钮时从剪贴板绘制位图图像。要将图标放置在剪贴板上,必须在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;
相关阅读 >>
Delphi 如何确定access数据库中存在某一个已知名的表
更多相关阅读请进入《Delphi》频道 >>