TStatusBar

Code:

Function CreateProgressBar(StatusBar:TStatusBar; index:integer):TProgressBar;

{©Drkb v.3: www.drkb.ru,

®Vit (Vitaly Nevzorov) - Этот адрес электронной почты защищён от спам-ботов. У вас должен быть включен JavaScript для просмотра.}

var findleft:integer;

       i:integer;

begin

result:=TProgressBar.create(Statusbar);

result.parent:=Statusbar;

result.visible:=true;

result.top:=2;

findleft:=0;

for i:=0 to index-1 do

   findleft:=findleft+Statusbar.Panels[i].width+1;

result.left:=findleft;

result.width:=Statusbar.Panels[index].width-4;

result.height:=Statusbar.height-2;

end;

Code:

var pb: TProgressBar;

{©Drkb v.3: www.drkb.ru}

begin

....

pb:= TProgressBar.Create(self);

with pb do begin

   Parent:= StatusBar1;

   Position:= 30;

   Top:= 2;

   Left:= 0;

   Height:= StatusBar1.Height - Top;

   Width:= StatusBar1.Panels[0].Width - Left;

end;  //with;

pb.Visible:= True;

....

end;