怎样使鼠标放在Label上时,字体变色?我是低手,请赐教.谢谢

Question

妳在OnMouseMove的事件中加上一些修改字体顏色的語句就得了.
procedure TForm1.Label1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  Label1.Font.Color := clRed;
end;

Answer 1

呵呵，这样颜色改不回来！用如下的方法吧，我已经测试通过了：
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;
鼠标移入时颜色变化，移出时恢复！

Answer 2

谢谢朋友们的慷慨帮助：）
ePing不好意思啊，你的方法我早就试过了，但效果很不满意。
所以把分给了kingron
如果大家可以做个朋友的话，我的email：[email protected]