Tengo el siguiente evento en un TEdit

procedure Tforigen.txtservidorKeyPress(Sender: TObject; var Key: char);
begin
  if Key = #13 then
    txtpuerto.SetFocus
  else if not (Key in ['0'..'9', #8, #46]) then
    Key := #0;
end;

El mismo funciona correctamente al presionar enter pas�ndome el focus hacia el TEdit txtpuerto.

El problema viene que posteriormente al dar enter teniendo el focus en el TEdit txtpuerto el evento que se me dispara es el Tforigen.txtservidorKeyPress y no el Tforigen.txtpuertoKeyPress que es el que realmente se deber�a ejecutar. Por tal motivo no me realiza la operaci�n que necesito.

Como solucionar esto?
Es un error de Lazarus ya solucionado o por solucionar?, lo cual creo.

Uso: Lazarus-0.9.29-29668-fpc-2.4.2-20110226-win32

Saludos Cordiales
=========
|| ISMAEL ||
=========
------------ pr�xima parte ------------
Se ha borrado un adjunto en formato HTML...
URL: <http://lists.lazarus.freepascal.org/pipermail/lazarus-es/attachments/20110315/74820d4c/attachment.html>

Hello Ismael,

Tuesday, March 15, 2011, 1:37:26 PM, you wrote:

ILDG> procedure Tforigen.txtservidorKeyPress(Sender: TObject; var Key: char); ILDG> begin
ILDG> if Key = #13 then
ILDG> txtpuerto.SetFocus
ILDG> else if not (Key in ['0'..'9', #8, #46]) then ILDG> Key := #0;
ILDG> end;
ILDG> El mismo funciona correctamente al presionar enter ILDG> pas�ndome el focus hacia el TEdit txtpuerto. ILDG> El problema viene que posteriormente al dar enter ILDG> teniendo el focus en el TEdit txtpuerto el evento que se me ILDG> dispara es el Tforigen.txtservidorKeyPress y no el ILDG> Tforigen.txtpuertoKeyPress que es el que realmente se deber�a ILDG> ejecutar. Por tal motivo no me realiza la operaci�n que necesito. ILDG> Como solucionar esto?
ILDG> Es un error de Lazarus ya solucionado o por solucionar?, lo cual creo.

Lo m�s probable es que hayas copiado el TEdit cuando ya hab�as enlazado el evento, de modo que los tienes cruzados. Edita los dos TEdit y ponles el evento keypress a "nada", luego ajusta cada uno al que le corresponde.

----- Original Message -----