delphi设置label鼠标移动变色

菜鸟编程 十五楼的鸟儿 1152浏览 0评论
主要的效果就是针对程序上有链接的label,其他的也可以,只要在其onmousemove事件上加入如下代码即可事先类似网页链接的hover变色的属性:
[code=delphi]
var
OldColor:tcolor;
procedure TForm1.Label2MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if setcap= false then
begin
oldcolor:=label2.font.Color;
label2.Font.Color:=clActiveCaption;
SetCapturecontrol(label2);
setcap:=true;

end
else
begin
label2.Font.Color:=oldcolor;
SetCapturecontrol(nil);
setcap:=false;
end;
end;
[/code]

转载请注明:鸟儿博客 » delphi设置label鼠标移动变色

游客
发表我的评论 换个身份
取消评论

Hi,您需要填写昵称和邮箱!

  • 昵称 (必填)
  • 邮箱 (必填)
  • 网址

等待大佬打赏中~