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:

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


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