Ver Mensaje Individual
  #5  
Antiguo 14-12-2003
Avatar de marcoszorrilla
marcoszorrilla marcoszorrilla is offline
Capo
 
Registrado: may 2003
Ubicación: Cantabria - España
Posts: 11.221
Reputación: 10
marcoszorrilla Va por buen camino
Lo que apunta madriles, no funcionará porque para ello se debe de pulsar el botón del ratón y soltarlo y según creo la pregunta versa sobre el cambio de color de una etiqueta al pasar sobre ella con el ratón, el código que propongo no me gusta del todo, pero es que el Tlabel, no dispone de eventos para cuando se abandona su superficie con el ratón:

En resumen es una simpleza con evento OnMouseMove del Tlabel aprovechamos para cambiar el color de la etiqueta y con el mismo evento del formulario hacemos lo contrario.

Código:
procedure TForm1.Label1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
label1.Font.Color:=ClBlue;
end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
label1.font.color:=clRed;
end;
Un Saludo.
__________________
Guía de Estilo de los Foros
Cita:
- Ça c'est la caisse. Le mouton que tu veux est dedans.
Responder Con Cita