| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

ProgressBar [Delphi, Windows]

DillerXX ©   (2005-10-09 16:12:00) 

Как можно написать процент завершения на самом СтатусБаре? Поместил на него Label, но прогресс доходя до лэйбла затирает его. Что посоветуете?

---

MTsv DN   (2005-10-09 17:18:00) [1]

У ПрогрессБара Transperent := true; у Лэбела Caption := ' ';

С Уважением MTsv DN

---

MTsv DN   (2005-10-09 17:15:00) [2]

Для начала опредились "СтатусБар" или "ProgressBar"
Используй KOLColorProgressBar или KOLRbControls...
Или вот:

procedure TfrmMain.KOLForm1FormCreate(Sender: PObj);
begin
lbl.Parent := pb;
lbl.Top := 0;
lbl.Left := 0;
end;

procedure TfrmMain.btnClick(Sender: PObj);
begin
repeat
 pb.Progress := pb.Progress + 1;
 pb.ProcessMessages;
 Sleep(100);
until false;
end;

function TfrmMain.pbMessage(var Msg: tagMSG; var Rslt: Integer): Boolean;
begin
Result := false;
if Msg.message = PBM_SETPOS then
 begin
  lbl.Text := 'Âûïîëíåíî: ' + int2str(Msg.wParam) + '%';
  lbl.ProcessMessages;
 end;
end;


С Уважением MTsv DN

---

Наверх