Los eventos MouseEnter y MouseLeave, te envio un ejemplo.
procedure TForm1.Label1MouseEnter(Sender: TObject);
begin
TLabel(sender).Color:= clBlue;
end;
procedure TForm1.Label1MouseLeave(Sender: TObject);
begin
TLabel(sender).Color:= clBtnFace;
end;
Suerte...
|