Cambio al hacer foco con el mouse

[Osorio]

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...