delphi - 在delphi 2009中创建ProgressRing

Question

我正在尝试在Delphi 2009中创建progressring(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;