//---------------------------------------------------------------------------
TProgressBar *prbr;
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
prbr = new TProgressBar(Form1);
prbr->Parent=StatusBar1;
prbr->Left=0;
prbr->Top=0;
prbr->Height=StatusBar1->Height;
prbr->Width=StatusBar1->Width/2;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormDestroy(TObject *Sender)
{
delete prbr;
}
//---------------------------------------------------------------------------
Подскажите, как затащить ProgressBar на StatusBar?
Подскажите, как затащить ProgressBar на StatusBar?
Цитата:
Originally posted by L0phtStar
Подскажите, как затащить ProgressBar на StatusBar?
Подскажите, как затащить ProgressBar на StatusBar?
...
private:
TProgressBar* ProgressBar1;
...
//в конструкторе
ProgressBar1 = new TProgressBar(StatusBar1);
ProgressBar1->Parent = StatusBar1;
ProgressBar1->Visible = false;
...
Цитата:
Originally posted by L0phtStar
Подскажите, как затащить ProgressBar на StatusBar?
Подскажите, как затащить ProgressBar на StatusBar?
Код:
P.S. Gizmo, опередил.=)
P.P.S. А вообще можно просто разместить ProgressBar в низу формы...=)
Thanks->A.Lot ;)
Цитата:
Originally posted by L0phtStar
Thanks->A.Lot ;)
Thanks->A.Lot ;)
Посмотри еще здесь :)