怎样把Image中的图像存入剪切板？在线等！

Question

如题！
我试了Delphi的帮助例子，可是出如下错误：
var
  MyFormat : Word;
  Bitmap : TBitMap;
  AData,APalette : THandle;
begin
  Bitmap := TBitmap.Create;
  try
    Bitmap.LoadFromFile('c:\Program Files\Common Files\Borland Shared\Images\Splash\256color\factory.bmp');
    Bitmap.SaveToClipBoardFormat(MyFormat,AData,APalette);
    ClipBoard.SetAsHandle(MyFormat,AData);
  finally
    Bitmap.Free;
  end;
end;
Error:types of Actual and format var parameters must be identical

Answer 1

给你一个删除,复制,粘贴的例子:
procedure TForm1.FormCreate(Sender: TObject);
begin
image1.Picture.LoadFromFile('1.bmp');
end;procedure TForm1.Button1Click(Sender: TObject);
var
  ARect: TRect;
begin
  Clipboard.Assign(Image1.Picture);
  with Image1.Canvas do
  begin
  CopyMode := cmWhiteness;
  ARect := Rect(0, 0, Image1.Width, Image1.Height);
  CopyRect(ARect, Image1.Canvas,ARect);
  CopyMode := cmSrcCopy;
  end;
end;
procedure TForm1.Button2Click(Sender: TObject);
var
Bitmap: TBitmap;
begin
if Clipboard.HasFormat(CF_BITMAP) then
    begin
    Bitmap := TBitmap.Create;
      try
      Bitmap.Assign(Clipboard);
      Image2.Canvas.Draw(0, 0, Bitmap);
      finally
      Bitmap.Free;
      end;
    end;
end;procedure TForm1.Button3Click(Sender: TObject);
begin
Clipboard.Assign(Image1.Picture); 
end;
button1为剪切,2为复制,3为粘贴!这个程序肯定可以运行,给分把!