急!当鼠标移动到label上时,怎样让字体高亮度显示?

Question

设置label的onMouseMove等事件代码就可以了。

Answer 1

如果仅仅是实现鼠标移动到上面字体变化的话，用Label的onMouseMove事件中写改变字体设置
就可以了，如果要实现简单的鼠标移开后恢复原先的字体设置，也可以用其它部件（多数是
Form、Panel）的OnMOuseMove实现。
根本解决方法是：用消息映射实现 MouseHover、MouseLeave功能。

Answer 2

在label1中的onMouseMove中添加
label1.font.Size:=16;
label1.font.Color:=clyellow;
在form1中的onMouseMove中恢复以上的设置.
或者你通过一个系统的变量来控制以上的设置

Answer 3

在label的onmousemove加入
代码
label1.font.color:=1002;
看看有何变化

Answer 4

不好意思我忘记在你的鼠标离开是恢复label1的颜色
这样
在label1的onmousemove加入
label1.font.color:=blue;
然后在你的from1的onmousemove加入
label1.Font.Color:=clWindowText;
就可以了
但你不知道你的label1是不是直接放在了窗体上如果不是就在你放置的控健的onmousemove加入
label1.Font.Color:=clWindowText;
但是要考虑到资源的占用问题
可以在后者的加入
if label1.font.color<>clwindowtext then
label1.Font.Color:=clWindowText;

Answer 5

//The Label1 become blue When mouse enter
//and become black when mouse leave  procedure cmMouseEnter(var msg: TMessage); message CM_MOUSEENTER;
  procedure cmMouseLeave(var msg: TMessage); message CM_MOUSELEAVE;procedure TForm1.cmMouseEnter(var msg: TMessage);
begin
  if (msg.LParam=integer(Label1)) and (Label1.Font.Color<>clBlue) then
    Label1.Font.Color:=clBlue;
end;procedure TForm1.cmMouseLeave(var msg: TMessage);
begin
  if (msg.LParam=integer(Label1)) and (Label1.Font.Color=clBlue) then
    Label1.Font.Color:=clBlack;
end;

Answer 6

我有一个很笨的方法,不过很实用的.
你可以用两个Tlabel,吧他们重合放在一起(稍微有点偏).设置他们的color的属性,其他的属性一样.

Answer 7

使用WM_mousemove 和WM_MouseLeave消息procedure wmmousemove(msg:message); message wm_mousemove;
procedure wmmouseleave(msg:message); message wm_mouseleave;

Answer 8

如果要字体有立体感，有阴影，用PHOTOSHOP做一个文字图片，我就是这样做的。