在TStatusBar内嵌入TProgressBar

    ProgressBar1.Parent := StatusBar1;

    ProgressBar1.Top := 2;  //为了显示嵌入Panel的效果
    ProgressBar1.Height := StatusBAr1.Height - 2;
    ProgressBar1.Left := 0; //如果要设置为Panels[2]内，则Left := StatusBar1.Panels[0].Width + 2;
    ProgressBar1.Width := StatusBar1.Panels[0].Width;
    ProgressBar1.Visible := True;
    ProgressBAr1.StepIt;