Ver Mensaje Individual
  #7  
Antiguo 23-01-2010
Avatar de rgstuamigo
rgstuamigo rgstuamigo is offline
Miembro
 
Registrado: jul 2008
Ubicación: Santa Cruz de la Sierra-Bolivia
Posts: 1.646
Reputación: 17
rgstuamigo Va por buen camino
Arrow

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...
__________________
"Pedid, y se os dará; buscad, y hallaréis; llamad, y se os abrirá." Mt.7:7

Última edición por rgstuamigo fecha: 23-01-2010 a las 15:55:21.
Responder Con Cita