在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;