Tema: Enter a tabs
Ver Mensaje Individual
  #2  
Antiguo 13-11-2009
Avatar de Neftali [Germán.Estévez]
Neftali [Germán.Estévez] Neftali [Germán.Estévez] is offline
[becario]
 
Registrado: jul 2004
Ubicación: Barcelona - España
Posts: 18.286
Reputación: 10
Neftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en bruto
Pues me resulta raro Jose Luís, porque yo utilizo mi componente TKeysOnForm, que al final hace uso de un código similar a ese:

Código Delphi [-]
...
    // Activada la propiedad EnterAsTAB?
    if Self.FEnterAsTab then begin
...
      try
        // Irse al siguiente control
        ParentForm.Perform (WM_NEXTDLGCTL, Integer(goNEXTCTL), 0);
      except
        on E:EDataBaseError do begin

Y funciona perfectamente, también con el comportamiento de seleccionar el contenido que hay escroito en el Edit.
Si quieres bájalo y haz la prueba; Échale un vistazo al resto de código fuente.
__________________
Germán Estévez => Web/Blog
Guía de estilo, Guía alternativa
Utiliza TAG's en tus mensajes.
Contactar con el Clubdelphi

P.D: Más tiempo dedicado a la pregunta=Mejores respuestas.
Responder Con Cita