在progressbar中怎么显示百分比

Question

怎么在在progressbar中怎么显示百分比
???????
怎么实现???

Answer 1

RzProgressBar1 可以显示百分比

Answer 2

放一个Label在progressbar上,在计算出值给Label.Caption这样行不

Answer 3

2楼的方法还是蛮不错。procedure TForm1.btnStepItClick(Sender: TObject);
var
  rect: TRect;
  tmp: string;
  dc: HDC;
begin
  ProgressBar1.StepIt;
  dc := GetDC(ProgressBar1.Handle);
  rect.Left := ProgressBar1.Width div 2-20;
  rect.Top := 2;
  rect.Bottom := ProgressBar1.Height;
  rect.Right := ProgressBar1.Width div 2+20;
  tmp:= IntToStr(ProgressBar1.Position)+'/'+IntToStr(ProgressBar1.Max);
  DrawText(dc,PChar(tmp),10,rect,DT_EDITCONTROL);
  ReleaseDC(ProgressBar1.Handle,dc);
end;

Answer 4

Delphi不是带有现成的百分比控件吗?
在Samples面板下面的TGauge

Answer 5

我都是用的LABEL来显示百分比 

Answer 6

Samples面板上有一个Gauge的控件，可以实现你要的效果呀