Текущий архив: 2006.06.18;
Скачать: CL | DM;

Вниз

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

← →
DillerXX ©   (2005-10-09 16:12) [0]

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

---

← →
MTsv DN   (2005-10-09 17:15) [1]

Для начала опредились "СтатусБар" или "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

---

← →
MTsv DN   (2005-10-09 17:18) [2]

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

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

---

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

Текущий архив: 2006.06.18;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.048 c