label的颜色控制

字体大小: 中小 标准 ->行高大小: 标准 中 大 
var

SetCap:boolean=false;

OldColor:tcolor;

//在label的onMouserMove中

if setcap= false then

begin

oldcolor:=label1.font.Color;

label1.Font.Color:=clred;

SetCapturecontrol(label1);

setcap:=true;

end

else

begin

label1.Font.Color:=oldcolor;

SetCapturecontrol(nil);

setcap:=false;

end;

此文章由 http://www.ositren.com 收集整理 ,地址为: http://www.ositren.com/htmls/67997.html