Ver Mensaje Individual
  #2  
Antiguo 04-11-2022
Avatar de Casimiro Notevi
Casimiro Notevi Casimiro Notevi is offline
Moderador
 
Registrado: sep 2004
Ubicación: En algún lugar.
Posts: 32.043
Reputación: 10
Casimiro Notevi Tiene un aura espectacularCasimiro Notevi Tiene un aura espectacular
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;
Responder Con Cita