Как ProgressBar поместить на одну из панелей StatusBar?

← →
AlexanderMS © (2007-01-13 15:11) [0]

Видел в одной программе, а самому сделать слабо" :).

← →
TUser © (2007-01-13 15:51) [1]

> Видел в одной программе

internet explorer ?

Можно на OnDrawPanel повесить отрисовку прогресса на Canvas"е, благо он у статусбара есть.

← →
Плохиш © (2007-01-13 15:57) [2]

> Как ProgressBar поместить на одну из панелей StatusBar?

Разве он на статусбар в дизайнере не бросается?

← →
begin...end © (2007-01-13 16:44) [3]

with ProgressBar do
begin
Parent := StatusBar;
SetBounds(...);
end

← →
AlexanderMS © (2007-01-13 17:28) [4]

Спасибо, сейчас попробую.

← →
Kolan © (2007-01-13 18:48) [5]

function TMainForm.CreateProgresBar: TProgressBar; begin Result := TProgressBar.Create(Self); with Result do begin Parent:= StatusBar; Position:= 0; Top:= 2; Left:= StatusBar.Panels[0].Width + StatusBar.Panels[1].Width + 50; Height:= StatusBar.Height - Top; Width:= StatusBar.Panels[2].Width - 51; end; Result.Visible:= True; end;

Аналог [3]

> [5] Kolan © (13.01.07 18:48)
> Аналог [3]

Какой же это «аналого»? Это, собственно, то же самое :) Разве что с SetBounds лучше будет.

«[6] Джо © (13.01.07 18:51)
> [5] Kolan © (13.01.07 18:48)
> Аналог [3]

Какой же это «аналого»? Это, собственно, то же самое :)
Разве что с SetBounds лучше будет.»

Дык я думал что слово «Аналог» и означает тожесамое&#133

Конечно, получилось.
А теперь как можно поверх этого ProgressBar"a вывести текст в этой же панели StatusBar"a?

Как ProgressBar поместить на одну из панелей StatusBar? Найти похожие ветки