[Lazarus-es] cambiar color de un edit

[Iván Mesa]

Saludos Héctor y compañía.

Otra implementeación es:

procedure Tfrom1.TextEditEnter (Sender : object);
begin
    (sender as Tedit).Color := clBlue;
end;

procedure TForm1.TextEditExit(Sender : object);
begin
    (sender as TEdit).Color := clWindow;
end;

Entonces asocias el evento Enter y Exit de todos los TEdit del 
formulario a cada uno de los procedimientos de arriba.

OnEnter a TForm1.TextEditEnter y OnExit a TForm1.TextEditExit;

Imagino que funcionará y te ahorrará código.

Abrazos.

Iván.

El 16/01/2017 a las 0:37, hfiandor via Lazarus-es escribió:
>
> Estimados listeros:
>
> Ante todo pido perdón por esta pregunta.
>
> Tengo en un form varios editbox, que les doy color cuando se activan.
>
> Necesito retornar la propiedad color a :=clWindow; cuando pincho con 
> el ratón en otro editbox que no estaba con foco.
>
> No sé cómo poner todos los edit de la form a :=clWindow antes de darle 
> color al recién pinchado.
>
> Anticipándole las gracias por su ayuda,
>
> Saludos
>
> Ing. Héctor F. Fiandor Rosario
>
>
>
> _______________________________________________
> Lazarus-es mailing list
> Lazarus-es en lists.lazarus-ide.org
> http://lists.lazarus-ide.org/listinfo/lazarus-es

------------ próxima parte ------------
Se ha borrado un adjunto en formato HTML...
URL: <http://lists.lazarus-ide.org/pipermail/lazarus-es/attachments/20170116/5e684096/attachment.html>