如何将动态 gif 文件复制到剪贴板 ( 积分: 100 )

我在使用TGifImage控件的SaveToClipBoardFormat方法，将gif图象保存到剪贴板时，只能复制动画的第一帧到剪贴板，不知是什么问题。请大家指教。

这是我的代码
procedure TForm1.BitBtn3Click(Sender: TObject);
var
MyFormat : Word;
GIF : TGIFImage;
AData : THandle;
APalette:HPALETTE ;
begin
GIF := TGIFImage.Create;
try
GIF.LoadFromFile('test.gif');
ClipBoard.Open;
GIF.SaveToClipBoardFormat(MyFormat,AData,APalette);
ClipBoard.SetAsHandle(MyFormat,AData);
ClipBoard.Close;
finally
GIF.Free;
end;
end;

没人知道么，先自己顶一下

不是保存问题是取出时显示的问题

不是保存问题是取出时显示的问题
agree with 网

你将Gif 插入到 RichViewEdit 里面，可以显示。在里面copy, paste都可以。

是显示问题。

To xuxiao
我粘贴到 TRichView_v1911 中的 TRichViewEdit控件进行显示，仍然只显示动画第一帧，这是什么问题

use Timer repaint RichView