Как поместить ProgressBar в панель StatusBar?

Корректнее было бы самому канву рисовать, но можно и просто вставить - держи функцию для этого - применять вместо стандартного метода Create.

Function
 CreateProgressBar(StatusBar:TStatusBar; index:integer):TProgressBar;
  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
;

Автор ответа:
Vit



Интерьерная лепнина: Лепнина. Лепнина для интерьеров и фасадов. игры для детей дизайн квартир санкт петербург .