Crear un TEdit personalizado

[mcsebas]

Holas a todos estoy con el siguiente problema:

Resulta que estoy queriendo hacer un componente del tipo TEdit que cuando reciba el foco cambie el color fondo y cuando lo pierda vuelva ser de color blanco; además que cuando se presione la tecla ENTER salte al siguiente control o sea simulando la tecla TAB.

¿Como hago para crear un componente VCL personalizado que me haga esto?

Gracias

[delphi.com.ar]

Para el cambio de color, crearía las propiedades para cada color, sobreescribiría los métodos WMSetFocus y WMKillFocus donde asignaría el color que deseo según la circunstancia. Para lo del foco si no quieres utilizar algo como la propiedad KeyPreview del formulario que lo contiene, puedes sobreescribir el método KeyPress llamando al método SelectNext del contenedor del mismo.

Saludos!

[roman]

¿No te refieres más bien a los mensajes WM_SETFOCUS y WM_KILLFOCUS?

En todo caso, creo que son más adecuados los métodos DoEnter y DoExit. Casualmente me encontré este ejemplito que creo le viene como anillo al dedo a mcsebas.

// Saludos

[delphi.com.ar]

Empezado por roman

En todo caso, creo que son más adecuados los métodos DoEnter y DoExit. Casualmente me encontré este ejemplito que creo le viene como anillo al dedo a mcsebas.

Sabes que estuve buscando ESE ejemplo!.. recordaba que estaba en el foro, solo que creí haberlo escrito yo, y busqué solo en mis hilos ...

Saludos!

[mcsebas]

Chicos me viene sirviendo todo de pelos pero estoy teniendo problemas con el tema de simular la tecla TAB. Me da como que la variable Key no existe si bien en el evento KeyPress si existe. Aquí les dejo el codigo y me corrigen porfis.

Gracias.

[mcsebas]

Ahhhhhh que pasoooooooooo !!! con el fragmento de codigo

Código Delphi [-]
unit CajaTexto;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;
type
  TCajaTexto = class(TEdit)
  private
    { Private declarations }
  protected
    procedure DoEnter; override;
    procedure DoExit; override;
    procedure DoKeyPress; override;
  public
    { Public declarations }
  published
    { Published declarations }
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('Mis Componentes', [TCajaTexto]);
end;


////////////////////////
// Recibiendo el Foco //
////////////////////////
procedure TCajaTexto.DoEnter;
begin
    inherited;
    Color:=clInfoBk;
end;


///////////////////////
// Perdiendo el Foco //
///////////////////////
procedure TCajaTexto.DoExit;
begin
    inherited;
    Color:=clWindow;
end;


////////////////////////
//Simulando Tecla TAB //
////////////////////////
procedure TCajaTexto.DoKeyPress;
begin
      inherited;
      if Key = #13 then
      begin
        Key := #0;
        Perform(WM_NEXTDLGCTL,0,0);
      end
end;
end.