MensajePublicado: Vie 12 Ene, 2001 12:52 am    Asunto: Poner una barra de progreso en la StatusBar Responder citando
Crea una StatusBar con algunos paneles (unos 3 iran bien). Dale al segundo panel un tamaño de 200 pixels.

Pon un botón en el formulario, y asigna este código en el OnClick:

code:
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  TProgressBar *ProgressBar1 = new TProgressBar(this);
  ProgressBar1->Parent=StatusBar1;
  ProgressBar1->Width=StatusBar1->Panels->Items[1]->Width-2;
  ProgressBar1->Left=StatusBar1->Panels->Items[0]->Width+2;
  ProgressBar1->Top=2;
  ProgressBar1->Height=StatusBar1->Height-2;
  for (int i=0;i<100;i++) {
      Sleep(10);
      ProgressBar1->Position=i;
      Application->ProcessMessages();
   }
  delete ProgressBar1;
}