TStatusBar

← →
Gayrus © (2001-12-17 03:52) [0]

Как в Statusbar"e вставить что-то вроде ProgressBar, как у IE
внизу?

← →
Builder © (2001-12-17 03:55) [1]

Нужно создать прогрессбар динамически, обязательно присвоить ему парента statusbar, указать положение и пользоваться.

← →
Gayrus © (2001-12-17 03:58) [2]

НЕ понял(динамически?), я пробовал положить ProgressBar сверху но если форма меняет размеры...

← →
KSergey © (2001-12-17 08:29) [3]

Это нельзя сделать в дизайнере форм. Только создавая динамически, т.е. во время выполенения программы.
Как? А как и любой другой компонент. Читайте статью на "Королевстве" "Жизнь и смерть в ржиме run-time"
Или, если нужен результат, возьмите готовую компоненту. Их горы таких! (см. архив новостей компонент. правда именно таких давно не попадалось, но в архиве найти можно запросто. ну или сразу на торри идти и выбирать статусбар по вкусу)

← →
Dmitriy(new) (2001-12-17 09:37) [4]

procedure TForm1.FormCreate(Sender: TObject);
begin
Gauge2:=TGauge.Create(StatusBar1);
with Gauge2 do begin
Parent := StatusBar1;
Progress:=0;
Top := 7;
Left := 15;
Height := StatusBar1.Height - Top-3;
Width := StatusBar1.Panels[0].Width - 20;
end;
end;

TStatusBar Найти похожие ветки