[Lazarus-es] cambiar color de un edit
Adrian De Armas
adearmas en gmail.com
Lun Ene 16 01:26:57 CET 2017
Hola el siguiente procedimiento pinta todos los edits con clWindow menos el
control que tiene el foco (si es un edit) y lo pinta de azul.
Creo entender que es lo que necesitas.
Saludos
*procedure TForm1.PintarControl;*
*var*
* i: integer;*
*begin*
* for i := 0 to ComponentCount-1 do*
* begin*
* if Components[i] is TEdit then*
* begin*
* if TEdit(Components[i]).Focused then*
* TEdit(Components[i]).Color:= clBlue*
* else*
* TEdit(Components[i]).Color:= clWindow ;*
* end;*
* end;*
*end; *
El 15 de enero de 2017, 20:37, hfiandor via Lazarus-es <
lazarus-es en lists.lazarus-ide.org> 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/20170115/76ea7ffb/attachment.html>
Más información sobre la lista de distribución Lazarus-es