I
import
Unregistered / Unconfirmed
GUEST, unregistred user!
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;
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;