Ver la Versión Completa : Detectar cuando el cursor pasa por encima de un componente
chinchan
04-11-2022, 19:58:49
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 Notevi
04-11-2022, 20:36:24
Primero pones la propiedad ParentBackground a false y luego algo parecido a esto:
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
07-11-2022, 13:56:37
Muchas Gracias, Casimiro. Funciona perfectamente y más sencillo de lo que creía.
Casimiro Notevi
07-11-2022, 14:09:43
^\||/^\||/^\||/
vBulletin v3.6.8, Derechos ©2000-2024, Jelsoft Enterprises Ltd.