Скачать: CL | DM;

Как 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]

---

← →
Джо ©   (2007-01-13 18:51) [6]

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

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

---

← →
Kolan ©   (2007-01-13 19:05) [7]

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

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

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

---

← →
AlexanderMS ©   (2007-01-13 19:18) [8]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.029 c