Skip to content




TTMSFNCWidgetMarqueeContinousProgress displays a revolving animation to indicate that a process is going on. The animation consists of 3 highlighted sections that revolve around the circle as shown in the screenshot above. This widget does not show any value of the progress. To make it revolve, you need to set its MarqueeAnimation property active.


  • Eye-catching animation to show the status text of a running process with a set of revolving highlighted sections
  • Properties to customize the number of sections, thickness and gap.
  • Properties to customize the all the colors in the sections
  • Option to display a Caption text at the top or bottom

When you set a caption, the size of the widget is reduced to make space for the caption.



A Demo is included in the source in a subfolder “Demo\WidgetMarqueeProgress.” In this Demo, two types of Widgets are demonstrated as shown above. The one on the left is the WidgetMarquee Continuous Progress control. The demo runs by itself showing a working and finished state of the process via this widget’s animation.

Code Snippets

Set a center text to show

 TMSFNCWidgetMarqueeContinuousProgress1.CenterText := 'Working...';
Or, later:
 TMSFNCWidgetMarqueeContinuousProgress1.CenterText := 'Finished'; 

Start the animation

 TMSFNCWidgetMarqueeContinuousProgress1.MarqueeAnimation.Active := true;

Stop the animation

 TMSFNCWidgetMarqueeContinuousProgress1.MarqueeAnimation.Active := false;