if (cdsSelected in State) then
begin
Sender.Canvas.Brush.Color := clBlack; 改变背景颜色
Sender.Canvas.Font.Color := clGradientActiveCaption; 改变字体颜色
end;那如何把文字的虚线边框去了呢?
begin
Sender.Canvas.Brush.Color := clBlack; 改变背景颜色
Sender.Canvas.Font.Color := clGradientActiveCaption; 改变字体颜色
end;那如何把文字的虚线边框去了呢?
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货