<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META content="text/html; charset=iso-8859-1" http-equiv=Content-Type>
<META name=GENERATOR content="MSHTML 8.00.6001.18975">
<STYLE></STYLE>
</HEAD>
<BODY bgColor=#ffffff>
<DIV><FONT face=Arial>Tengo el siguiente evento en un TEdit</FONT></DIV>
<DIV><FONT face=Arial></FONT> </DIV><FONT face=Arial>
<DIV><BR>procedure Tforigen.txtservidorKeyPress(Sender: TObject; var Key:
char);<BR>begin<BR> if Key = #13 then<BR>
txtpuerto.SetFocus<BR> else if not (Key in ['0'..'9', #8, #46])
then<BR> Key := #0;<BR>end;</DIV>
<DIV> </DIV>
<DIV>El mismo funciona correctamente al presionar enter pasándome el focus hacia
el TEdit txtpuerto.</DIV>
<DIV> </DIV>
<DIV>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.</DIV>
<DIV> </DIV>
<DIV>Como solucionar esto?</DIV>
<DIV>Es un error de Lazarus ya solucionado o por solucionar?, lo cual
creo.</DIV>
<DIV> </DIV>
<DIV>Uso: Lazarus-0.9.29-29668-fpc-2.4.2-20110226-win32</DIV>
<DIV> </DIV>
<DIV>Saludos Cordiales</FONT></DIV>
<DIV><FONT face=Arial>=========<BR>|| ISMAEL
||<BR>=========</FONT></DIV></BODY></HTML>