delphi 获取剪贴板图像

unit Unit8;

interface

uses

Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,

Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls, Vcl.StdCtrls;

type

TForm8 = class(TForm)

Button1: TButton;

CheckBox1: TCheckBox;

ScrollBox1: TScrollBox;

Image1: TImage;

procedure Button1Click(Sender: TObject);

procedure CheckBox1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form8: TForm8;

implementation

{$R *.dfm}

uses Clipbrd,jpeg;

procedure TForm8.Button1Click(Sender: TObject);

var

i:integer;

FIsBitmap:boolean;

begin

FIsBitmap:=false;

for   i:=0   to   clipboard.FormatCount   -1   do   //检测ClipBoard中是否有位图

if   Clipboard.Formats[i]=2   then

begin

FIsBitmap:=true;

break;

end;

if  FIsBitmap then

begin

if checkbox1.Checked then

begin

image1.AutoSize:= false;

image1.Width:= scrollbox1.ClientWidth-4;

end else image1.AutoSize:= true;

Image1.Picture.LoadFromClipBoardFormat(cf_BitMap,ClipBoard.GetAsHandle(cf_Bitmap),0);

if checkbox1.Checked then

image1.Height:= round(image1.Picture.Bitmap.Height * (image1.Width / image1.Picture.Bitmap.Width)); //自动设定高度

Image1.Top:= 2;

Image1.Left:= 2;

end else begin

Showmessage('剪贴板中没有图片!');

end;

end;

procedure TForm8.CheckBox1Click(Sender: TObject);

var k: integer;

begin

Image1.Top:= 2;

Image1.Left:= 2;

if checkbox1.Checked then

begin

image1.AutoSize:= false;

image1.Stretch:= false;

image1.Width:= scrollbox1.ClientWidth-4;

k:= image1.Picture.Bitmap.Width;

if k=0 then

k:= image1.Picture.Graphic.Width;

image1.Height:= round(image1.Height * (image1.Width / k)); //自动设定高度

image1.Stretch:= true;

end else image1.AutoSize:= true;

end;

end.