[Lazarus-es] cambiar color de un edit

[Ismael L. Donis Garcia]

O podría poner en cada control: (Edit1=nombre de los tedit)

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

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

Saludos
========
| ISMAEL |
========
----- Original Message ----- 
  From: Adrian De Armas via Lazarus-es 
  To: Spanish version of Lazarus List 
  Cc: Adrian De Armas 
  Sent: Sunday, January 15, 2017 7:26 PM
  Subject: Re: [Lazarus-es] cambiar color de un edit


  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






------------------------------------------------------------------------------


  _______________________________________________
  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/cd038c4d/attachment.html>