怎样将粘贴板的图导入TBitmap中？

Question

bmp:= TBitmap.Create;
 bmp.LoadFromClipboardFormat(CF_BITMAP,cardinal,Plette);
     总说错？说unsupport Clipboard format

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
  i:integer;
  FIsBitmap:boolean;
  FBmp:TBitmap;
begin
  FBmp:= TBitmap.Create;
  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
    FBmp.LoadFromClipBoardFormat(cf_BitMap,ClipBoard.GetAsHandle(cf_Bitmap),0);
    FBmp.PixelFormat:=pf1bit ;
    FBmp.SaveToFile('D:\abc.bmp');
  end;
  FBmp.free;
end;win2000,delphi5上编译通过！
RQ:2003-06-02