]、。·ˉˇ¨〃々—～‖…’”〕〉》」』〗】∶！＂＇），．：；？］｀ 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;