How i can use the native progressbar when the vcl styles are enabled?

Question

I need use a progress bar with the pbstMarquee style, I read this question and the accepted answer works fine, but now i need draw the native progress bar

How i can use the native progressbar when the vcl styles are enabled?

Answer 1

Just assign the default vcl style hook TStyleHook to the TProgressBar component and in that way the progress bar will be draw with the Windows look and feel.

 TStyleManager.Engine.RegisterStyleHook(TProgressBar, TStyleHook);

Answer 2

Delphi: Form1.ProgressBar1.StyleElements := [seClient, seBorder, seFont];

C++: Form1->ProgressBar1->StyleElements = TStyleElements();