Cambiar Color de Tlabel con el Mouse

[c748a]

Hola

Me interesaria cambiar el color de un label al generar el OnMouseMove sobre ella. Estoy Trabajando con Delphi 3.
Gracias.

[marcoszorrilla]

No sé si es algo como esto lo que pides:

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

Un Saludo.

[[Crandel]]

Lo que te respondió Marcos es lo que preguntas.

Pero también te puede interesar, realizar un efecto al estilo pagina web, de remarcar un label al pasar el mouse sobre él y al salir vuelva al color normal

Código Delphi [-]
procedure TFormAcercaDe.LabelMailMouseEnter(Sender: TObject);
begin
  with Sender as TLabel do
  begin
   Cursor := crHandPoint;
   Font.Style := [fsUnderline, fsBold];
   Font.Color := clBlue;
  end;
end;

procedure TFormAcercaDe.LabelMailMouseLeave(Sender: TObject);
begin
  with Sender as TLabel do
  begin
    Cursor := crDefault;
    Font.Style := [fsBold];
    Font.Color := clSilver;
  end;
end;

[c748a]

Perdon por la demora
Crandel, seguramente tu codigo funciona, pero estoy trabajando con la version 3 y tambien la 5 y no tengo los eventos que mencionas. Igualmente gracias