有没办法使得插入Richedit等控件中的Gif动起来？

Question

在Richedit或Memo中贴入图片当然正常显示，但是，贴入Gif后，图标没动起来，什么原因？是不是Richedit和Memo本身就无法支持动画的显示？
另外，在Timage中调入Gif也没法动起来，郁闷，难道一定用Webbrowser才行？

Answer 1

试试看用第三方的 Gif 控件，可能会有用

Answer 2

除了第三方的控件之外，有没有改写Delhpi控件可以做到？或者其他办法.....

Answer 3

DELPHI 好像没有现成的能支持 GIF 的控件吧？等楼下的人顺便回答

Answer 4

delphi中没有现成的支持GIF的控件，可以找第三方的代码支持，网上有源码可找

Answer 5

RichIdit ,怎么贴入图片呀？
如果贴入后，如果吧RichEdit 中内容 保存到数据库后， 那么图片是不是夜保存了雅？
把代码贴出来好吗？

Answer 6

To myy(): 你才知道动不了啊？我比你先郁闷的呢，哈........To FlyDayDream(悠幽白书):贴入图片最常用的方法就是把图片读入剪贴板，然后贴到Richedit或Memo之类的东西上就行，你可以从这个地方下个demo看看
http://delphi.ur-solution.com/delphi_download/upload/30994_Delphi-RichEdit.rar
不过，想把richedit的内容保存到数据库，并不是你所想像的那样连图片也保存进去的，它本身毕竟不是一个文件或进行流处理，所以，图片保存是两回事。

Answer 7

RichEdit插入图片肯定能动起来的。。呵呵。。没做过，先关注。
RICHEDIT文档插入的图片应该是OLE插入方式，楼主先慢慢想想。。

Answer 8

第三方控件吧，不过没有见过插入RichEdit会动

Answer 9

除了用流来传递Gif外，还有什么办法？procedure TFormDemo.ButtonLoadClick(Sender: TObject);
var
  Stream : TStream;
  GIF : TGIFImage;
begin
  // Do not use buffering.
  // This is safe since we have complete control over the TImage's canvas
  include(GIFImageDefaultDrawOptions, goDirectDraw);  // Create a stream to load the GIF resource from
  Stream := TResourceStream.Create(hInstance, 'download', 'GIF');
  try
    GIF := TGIFImage.Create;
    try
      // Load the GIF from the resource stream
      GIF.LoadFromStream(Stream);
      // Display the GIF in the TImage
      ImageGIF.Picture.Assign(GIF);
    finally
      GIF.Free;
    end;
  finally
    Stream.Free;
  end;
end;

Answer 10

唉，不过，到底是借用了第三方的东西Gifimage