[Lazarus-es] cambiar color de un edit

[Iván Mesa]

Mira Héctor, te paso el código de una unit completita.
Te creas un form, le pones dos tEdit, y en el form haces doble click y 
en la unit pegas esto:

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, 
StdCtrls;

type

   { TForm1 }

   TForm1 = class(TForm)
     Edit1: TEdit;
     Edit2: TEdit;
     procedure FormCreate(Sender: TObject);
     procedure EditEnter(Sender:TObject);
     procedure EditExit(Sender:TObject);
   private
     { private declarations }

   public
     { public declarations }
   end;

var
   Form1: TForm1;

implementation

{$R *.lfm}
procedure Tform1.EditEnter(Sender : TObject);
begin
   (Sender as TEdit).Color := clBlue;
end;

procedure Tform1.EditExit(Sender : TObject);
begin
   (Sender as TEdit).Color := clWindow;
end;

procedure TForm1.FormCreate(Sender: TObject);
var
   idx : integer;
   edt : TEdit;
begin
   for idx := 0 to Self.ControlCount-1 do begin
     if Self.Controls[idx] is TEdit then begin
       edt := (Self.Controls[idx] as TEdit);
       edt.OnEnter := @EditEnter;
       edt.OnExit := @EditExit;
     end;
   end;

end;



end.

Abrazos.

El 16/01/2017 a las 17:38, hfiandor via Lazarus-es escribió:
>
> 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/e1f3cb00/attachment-0001.html>