Delphi中剪切板的使用[2]: Assign、HasFormat

Delphi中剪切板的使用[2]: Assign、HasFormat2012-12-14 博客园万一准备工作:

在窗体上放置一个 TPanel; 在 TPanel 上放一个 TImage; 另外需要三个按钮.

本例效果图:

第一版代码:

unit Unit1; interface usesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls, ExtCtrls; typeTForm1 = class（TForm）Button1: TButton;Button2: TButton;Button3: TButton;Panel1: TPanel;Image1: TImage;procedure Button1Click（Sender: TObject）;procedure Button2Click（Sender: TObject）;procedure Button3Click（Sender: TObject）;end; varForm1: TForm1; implementation {$R *.dfm} uses Clipbrd; procedure TForm1.Button1Click（Sender: TObject）;beginImage1.Left := 0;Image1.Top := 0;Panel1.AutoSize := True;Image1.AutoSize := True;Image1.Picture.LoadFromFile（"c:	emp	est.bmp"）; TButton（Sender）.Caption := "导入";end; procedure TForm1.Button2Click（Sender: TObject）;beginClipboard.Assign（Image1.Picture）; {把 Image1 中的图片放入剪切板}{现在在图像软件中都可以粘贴了, 可以用 Windows 画图板试试} TButton（Sender）.Caption := "复制";end; procedure TForm1.Button3Click（Sender: TObject）;varbit: TBitmap; {准备用一个 TBitmap 从剪切板中结束图片}x,y: Integer;beginbit := TBitmap.Create;bit.Assign（Clipboard）; {从剪切板获取}x := Panel1.Width + Panel1.Left * 2; {x,y 是准备在窗体上的粘贴位置}y := Panel1.Top;Canvas.Draw（x, y, bit）;{粘贴就是画出来呗}bit.Free; TButton（Sender）.Caption := "粘贴";end; end.

不过现在程序还有漏洞: 假如剪切板中没有东西, 粘贴什么？如果剪切板中不是图片, 怎么粘贴？

其实我们只用 TClipboard.HasFormat 函数判断一下剪切板中是不是图片就行了.