当鼠标放到一个Label上时，让它上面的字显示为蓝色，离开是恢复？怎么做？

Question

onmousemove事件,lable1.font.color:=clblue;
至于恢复,可以在lable的上级容器组件(如form,panel)的onmousemove事件
lable1.font.color:=clblack;

Answer 1

  procedure CMMouseEnter(var Message: TMessage); message CM_MouseEnter
  procedure CMMouseLeave(var Message: TMessage); message CM_MouseLeaveprocedure TForm1.CMMouseEnter(var Message: TMessage); 
begin
  if TObject(Message.LParam) = Label1 then
    Label1.Font.Color := clBlue;
end;procedure TForm1.CMMouseLeave(var Message: TMessage); 
begin
  if TObject(Message.LParam) = Label1 then
    Label1.Font.Color := clBlack;
end;

Answer 2

faint
这么简单的问题也值得一问
金口不值钱了

Answer 3

把楼上兄弟的 procedure CMMouseEnter(var Message: TMessage); message CM_MouseEnter
 procedure CMMouseLeave(var Message: TMessage); message CM_MouseLeave两句话后面加上分号(或复制这两句:) 把它加到声明中 procedure CMMouseEnter(var Message: TMessage); message CM_MouseEnter;
 procedure CMMouseLeave(var Message: TMessage); message CM_MouseLeave; 

Answer 4

//for Delphi6
procedure TForm1.Label1MouseEnter(Sender: TObject);
begin
  TLabel(Sender).Color := clHighlight;
  TLabel(Sender).Font.Color := clWindow;
end;procedure TForm1.Label1MouseLeave(Sender: TObject);
begin
  TLabel(Sender).ParentColor := True;
  TLabel(Sender).Font.Color := clWindowText;
end;