[Lazarus-es] Objeto no ejecuta el evento

Mar Mar 15 13:37:26 CET 2011

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-ide.org/pipermail/lazarus-es/attachments/20110315/74820d4c/attachment-0002.html>