5,388
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
bulip 2002-11-13
- 打赏
- 举报
我改用了Gauge
谢谢！
谢谢！
ehom 2002-11-13
- 打赏
- 举报
当然是用GDI画,那TCanvas是GDI的封装
var Cav:TCanvas;
Cav:=TCanvas.Create;
Cav.Handle:=GetDC(ProgressBar.Handle);
Cav.Brush.Style:=bsClear;
Cav.TextOut(0,0,'90%');
使用Gauge控件不好吗?
或者在上面放个Label
var Cav:TCanvas;
Cav:=TCanvas.Create;
Cav.Handle:=GetDC(ProgressBar.Handle);
Cav.Brush.Style:=bsClear;
Cav.TextOut(0,0,'90%');
使用Gauge控件不好吗?
或者在上面放个Label
oracle_lover 2002-11-13
- 打赏
- 举报
用Samples\Gauge控件
