Crear un TEdit personalizado

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

[mcsebas]

Gracias MAN me viene al pelo, necesito entender este metodología porque si bien en .Net es mucho más facil aplicarla pero a la hora de que la aplicación se ejecute va más lenta que una tortuga.

Sólo me sigue quedando la duda sobre como crear una DLL con formularios en delphi.

Puedo agregar clases a una DLL y despues instanciarlas desde otra parte.

Gracias

[rgstuamigo]

Empezado por mcsebas

Gracias MAN me viene al pelo, necesito entender este metodología porque si bien en .Net es mucho más facil aplicarla pero a la hora de que la aplicación se ejecute va más lenta que una tortuga.

Ok..como no tienes mucha experiencia con Delphi te recomiendo en lo posible leer un buen libro al respecto para conocerlo mas; puede ser por ejemplo La cara Oculta de Delphi 4 .
Y como estabas necesitando como hacer aplicaciones en 3 capas, quisas mas bien seria mejor que empesaras a trabajar de la forma como se indica en estas otras paginas 1,2,3,4 y 5 .
Saludos...