Crear un TEdit personalizado

[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.

[rgstuamigo]

Segun tu codigo lo que veo que el metodo que debes sobreescribir es:

Código Delphi [-]
protected
...
procedure KeyPress(var Key: Char);Override;//<--  tiene parametro
...

Ahora en la implemtacion podrias poner este codigo:

Código Delphi [-]
...
procedure TCajaTexto.KeyPress(var Key: Char);
begin
inherited;//<--Hago que se ejecute OnKeyPress normalmente si es que el usuario a puesto codigo
 if Key=#13 then
  begin
    Key:=#0;
    keybd_event(VK_TAB,0,0,0);//<--simulo la pulsacion de la tecla TAB
  end;
end;

TIP (Propina ): Segun veo tu componente, en realidad no se han hecho muchos cambios grandes por asi decirlo; en lo personal, yo no haria un nuevo componente por esas pequeñas cositas; lo que haria seria utilizar algunos truquitos (por asi decirlo)haciendole creer a delphi que tengo un nuevo componente (Que compile mi Componente y no el que tiene en la paleta) pero que en realidad he usado una Clase Interpuesta.(Muy buenos articulos tiene el Dr. Marteens se los recomiendo ).
De esa manera tranquilamente me puedo crear miles de componentes, personalizados, evitandome estar instalandolo..
Saludos...

[roman]

Empezado por rgstuamigo

Segun veo tu componente, en realidad no se han hecho muchos cambios grandes por asi decirlo; en lo personal, yo no haria un nuevo componente por esas pequeñas cositas; lo que haria seria utilizar algunos truquitos (por asi decirlo)haciendole creer a delphi que tengo un nuevo componente (Que compile mi Componente y no el que tiene en la paleta) pero que en realidad he usado una Clase Interpuesta.(Muy buenos articulos tiene el Dr. Marteens se los recomiendo ).
De esa manera tranquilamente me puedo crear miles de componentes, personalizados, evitandome estar instalandolo..
Saludos...

Yo creo que la decisión de instalar o no nuevos componentes no depende tanto de la cantidad o complejidad de los cambios, sino más de la frecuencia de uso de dichos componentes. Sí la nueva funcionalidad se va a utilizar sólo una ocasión, en un sólo formulario, pues ciertamente conviene usar una técnica como la que mencionas. Pero si requieres usarla en múltiples partes de tu aplicación, entonces es mejor instalar un nuevo componente.

// Saludos

[mcsebas]

Hermano muchisimas gracias me sirvio de pelos el ejemplo ahora sabes en donde puedo encontrar información respecto a programacion en tres capas con delphi; es que vengo de .Net y estoy mal acostumbrado.

Gracias

[rgstuamigo]

Empezado por mcsebas

... ahora sabes en donde puedo encontrar información respecto a programacion en tres capas con delphi; es que vengo de .Net y estoy mal acostumbrado.

Gracias

Bueno ..puedes ver estas 7 partes que hablan exactamente de crear aplicaciones multicapa en Delphi.
1,2,3,4,5,6 y 7.
Hechale una buena leida sin flojear.
Saludos...