在delphi 2009中创建ProgressRing

Question

我正在尝试在Delphi 2009中创建进度（Windows8组件） 我们在XAML和C＃中有很多样本，但在“旧版本”的Delphi版本中没有。

无论如何，没有开发公司有这个组件可以出售......

任何人都知道这件事吗？

Answer 1

最简单的解决方案是使用动画GIF。有很多可用于创建此GIF的在线生成器（例如here）。您可以轻松地从TImage继承自定义组件以显示该GIF。将GIF文件包含为资源并加载它：

ResStream := TResourceStream.Create (HInstance, 'CIRCULAR_PROGRESS', 'GIFIMG');
Img := TGIFImage.Create;
try
  Img.LoadFromStream (ResStream);
  Picture.Assign (Img);
finally
  FreeAndNil (ResStream);
  FreeAndNil (Img);
end;

if not (csDesigning in ComponentState) then
  (Picture.Graphic as TGIFImage).Animate := True;