Как я могу использовать встроенную панель прогресса при включении стилей vcl?

Question

мне нужно использовать индикатор с pbstMarquee стилем, я прочитал это question и принятый ответ работает отлично, но теперь мне нужно сделать нативный прогресс бар

Как я могу использовать родной progressbar, когда стили vcl включены?

Answer 1

Просто назначьте крючок стиля vcl по умолчанию TStyleHook компоненту TProgressBar, и таким образом индикатор выполнения будет рисовать с использованием внешнего вида Windows.

TStyleManager.Engine.RegisterStyleHook(TProgressBar, TStyleHook); 

Answer 2

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

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