Помещаем ProgressBar в StatusBar
Добавляем на форму компоненты ProgressBar и StatusBar. В обработчике событий формы OnCreate запишем следующее:
1 2 3 4 5 6 7 8 9 10 11 12 |
procedure TForm1.FormCreate(Sender: TObject); begin with progressbar1 do begin parent:= statusbar1; height:= 14; top:= 3; left:= 2; end; end; |