如何将粘贴板中的图片复制到定义的Tbitmap中？在线等，谢谢
在抓屏（PRINT SCREEN）后，想要将粘贴板中的图片复制到定义的Tbitmap中，在DELPHI中如何实现？


另外，我现有一个图片尺寸为：800*600，我如何从中截取某一部分图片？如从：X：100；Y：100 开始取，尺寸为：30*30的图片？

谢谢
[解决办法]

procedure AssignToBitmap(Dest: TBitmap);
var
  Data: THandle;
  Palette: HPALETTE;
begin
  Clipboard.Open;
  try
    Data := GetClipboardData(CF_BITMAP);
    Palette := GetClipboardData(CF_PALETTE);
    Dest.LoadFromClipboardFormat(CF_BITMAP, Data, Palette);
  finally
    Clipboard.Close;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  AssignToBitmap(image1.Picture.Bitmap);
end;