Question

delphi怎么显示QQ截图的图片到image控件上

通过QQ截图来的图片 在delphi做的程序中按一下按钮把图片显示在image控件上

Answer 1

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;

Answer 2

image1.Picture.LoadFromFile(PicturePath);就可以了