delphi怎麽顯示QQ截圖的圖片到image控件上

procedure TForm1.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

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

else

Showmessage('剪貼板中沒有圖片!');

end;