[Lazarus-es] cambiar color de un edit

[Ismael L. Donis Garcia]

Como te dije antes a cada componente le programas los 2 eventos.

Cuando coge el foco:

procedure TForm1.Edit1Enter(Sender: TObject);
begin
  Edit1.Color:= clYellow
end;


Y cuando pierde el foco:

procedure TForm1.Edit1Exit(Sender: TObject);
begin
  Edit1.Color:= clWindow
end;


Esto lo tienes que hacer para todos los componentes que quieres ponerle el color personalizado.


En el ejemplo que te puse Edit1 es el nombre de la caja de texto.

Saludos Reiterados
========
| ISMAEL |
========
  ----- Original Message ----- 
  From: hfiandor via Lazarus-es 
  To: 'Spanish version of Lazarus List' 
  Cc: hfiandor 
  Sent: Monday, January 16, 2017 11:38 AM
  Subject: Re: [Lazarus-es] cambiar color de un edit


  Estimado Ismael:

  Mi problema es que tengo un form con varios edit para indicar rangos DESDE y HASTA.

  Cuando el form hace Show yo selecciono la primera casilla y mi lío está cuando quiero activar otra casilla. Lo puedo hacer con el ratón pinchando la casilla y le doy color Yellow para indicar que está activa, 

  Pero no sé cómo quitar el color Yellow de la primera que se pintó cuando  hizo Show.

  Tuve la rutina para quitar el foco a todos los componentes del form, pero la he perdido y quisiera  probar con ella.

   

  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/7884b940/attachment.html>