MouseEnter etc.

[code lang=”delphi”]procedure WndProc(var Message : TMessage); override;

procedure TForm1.WndProc(var Message : TMessage);
begin
if Message.LParam = Longint(Label1) then
begin
if (Message.Msg = CM_MOUSELEAVE) then
Label1.Color := clSilver;
if (Message.Msg = CM_MOUSEENTER) then
Label1.Color := clRed;
end;
inherited WndProc(Message);
end;[/code]

[tags]Delphi, Components[/tags]