procedure TTSGauge.SetTransparent(Value:Boolean);
begin
if Value <> FTransparent then
begin
FTransparent := Value;
if Value then
ControlStyle := ControlStyle - [csOpaque] else
ControlStyle := ControlStyle + [csOpaque];
Invalidate;
end;
end;
但是还有一个问题是你在Paint方法中有一些添充语句（如：FillRect，Rectangle也会添充
背景），如果要实现透明部件必须调整其中的代码，你在SetTransparent的代码按上述实现
后，你暂时将Paint中代码先注释上就可以看到部件也实现了Transparent。
