為什么80%的碼農都做不了架構師？>>> ??

準備工作:
在窗體上放置一個 TPanel; 在 TPanel 上放一個 TImage; 另外需要三個按鈕.

---

本例效果圖:

---

第一版代碼:

---

unit Unit1;interfaceusesWindows, 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:\temp\test.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 函數判斷一下剪切板中是不是圖片就行了.

第二版代碼:

---

unit Unit1;interfaceusesWindows, 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:\temp\test.bmp');TButton(Sender).Caption := '導入'; end;procedure TForm1.Button2Click(Sender: TObject); begin{如果 Image1 還沒有圖片, 就別復制了, 退出吧}if Image1.Picture = nil then Exit;Clipboard.Assign(Image1.Picture);TButton(Sender).Caption := '復制'; end;procedure TForm1.Button3Click(Sender: TObject); varbit: TBitmap;x,y: Integer; begin{如果當前剪切板中的東西不是圖片, 就退出}if not Clipboard.HasFormat(CF_BITMAP) then Exit;bit := TBitmap.Create;bit.Assign(Clipboard);x := Panel1.Width + Panel1.Left * 2;y := Panel1.Top;Canvas.Draw(x, y, bit);bit.Free;TButton(Sender).Caption := '粘貼'; end;end. 現在有出了新的問題: CF_BITMAP 常量表示圖片, 其他格式怎么表示? 有多少格式可以用于剪切板?

---

轉載于:https://my.oschina.net/hermer/blog/319275

總結

以上是生活随笔為你收集整理的使用剪切板[2]: Assign、HasFormat的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。