请问怎样实现鼠标指向一个label时变颜色，而移走时又恢复默认的颜色呢？就象网页中的超级链接一样！

Question

 在delphi6中，label有OnmouseMove和OnMouseleave两个事件，调用这两个事件设置label字体的颜色就行了。

Answer 1

我是说在DELPHI5中！DELPHI中好像没有onmouseleave这个事件

Answer 2

响应CM_MOUSELEAVE。procedure CMMouseLeave(var msg: TMessage); message CM_MOUSELEAVE;

Answer 3

在label的OnmouseMove中设成兰色,再加个下划线,然后在form的OnmouseMove中改回来

Answer 4

liuly(东方不败),我没学api的时候就这样做的,还行

Answer 5

procedure CMMouseLeave(var Message: TMessage); message CM_MOUSELEAVE;
procedure TCustomLabel.CMMouseLeave(var Message: TMessage);
begin
  inherited;
  ///put your code here!!end;

Answer 6

有一个函数的，可以指向某个连接的，我忘了，你查查书，是API

Answer 7

给你个BCB的,DELPHI也类似:
void __fastcall TAboutBox::Label5MouseMove(TObject *Sender,
      TShiftState Shift, int X, int Y)
{
  Label5->Font->Color = clRed;
}void __fastcall TAboutBox::Label5Click(TObject *Sender)
{
  ShellExecute(Handle,NULL,Label5->Caption.c_str(),NULL,NULL,SW_SHOWNORMAL);
}

Answer 8

label的鼠标离开事件可以在form上写～～
procedure TFrmMain.Label5MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  Label5.Font.Color := clRed;
end;procedure TFrmMain.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  Label5.Font.Color := clBlue;
end;试试～