label的颜色控制

  • 主题发起人 主题发起人 import
  • 开始时间 开始时间
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;
 
后退
顶部