Detectar cuando el cursor pasa por encima de un componente

[chinchan]

Hola. Estoy diseñando un aplicación y me gustaría cambiar el color de un componente TPanel cuando pasa el cursor del ratón por encima de este componente. Podríais indicarme cómo hacerlo?. Muchas gracias.

[Casimiro Noteví]

Primero pones la propiedad ParentBackground a false y luego algo parecido a esto:

Código Delphi [-]
procedure TForm1.Panel1MouseLeave(Sender: TObject);
begin
  panel1.Color := clBtnFace;
end;

procedure TForm1.Panel1MouseMove(Sender: TObject; Shift: TShiftState; X,  Y: Integer);
begin
  panel1.Color := clGreen;
end;

[chinchan]

Muchas Gracias, Casimiro. Funciona perfectamente y más sencillo de lo que creía.

[Casimiro Noteví]