Здравствуйте KBH, Вы писали:

KBH>Как поместить ProgressBar в StatusBar?
Очень просто.
Бросаешь ProgressBar на форму в любое место. Для StatusBar создаешь TStatusPanel и для этой панели в Style указываешь psOwnerDraw
В конструкторе формы
ProgressBar->Parent = StatusBar;
Определяешь событие StatusBar OnDrawPanel
void __fastcall TMyForm::StatusBarDrawPanel(TStatusBar *StatusBar,
TStatusPanel *Panel, const TRect &Rect)
{
if (Panel->Index == 0) // это для первой левой панели
{
ProgressBar->SetBounds(Rect.Left — 1, Rect.Top — 1, Rect.Right — Rect.Left + 2,
Rect.Bottom — Rect.Top + 2 );
}
}
В рантайме ProgressBar будет показываться в StatusBar.