5,388
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
chenybin 2002-11-15
- 打赏
- 举报
用sample页上的tguage！
高手，我也学了一招
高手，我也学了一招
stanely 2002-11-14
- 打赏
- 举报
用sample页上的tguage！
findcsdn 2002-11-14
- 打赏
- 举报
刚好做过，效果还不错。
将一个tlabel设置成透明的就行了。
prog_In: TProgressBar
//初始化数字标示
Lab_num.Parent:=prog_In;
Lab_Num.Transparent:=true;
Lab_Num.AutoSize:=true;
lab_num.Top:=round((prog_In.Height-lab_num.Height)/2);
lab_num.Left:=-lab_num.Width;
lab_num.Font.Color:=clwhite;
//循环的时候
Lab.Left:=round((progress.Position/progress.Max)*progress.Width)-lab.Width-5;
将一个tlabel设置成透明的就行了。
prog_In: TProgressBar
//初始化数字标示
Lab_num.Parent:=prog_In;
Lab_Num.Transparent:=true;
Lab_Num.AutoSize:=true;
lab_num.Top:=round((prog_In.Height-lab_num.Height)/2);
lab_num.Left:=-lab_num.Width;
lab_num.Font.Color:=clwhite;
//循环的时候
Lab.Left:=round((progress.Position/progress.Max)*progress.Width)-lab.Width-5;
