![]() |
![]() |
![]() |
![]() |
![]() |
FTP | ![]() |
![]() |
CCD | ![]() |
![]() |
Buscar | ![]() |
![]() |
Trucos | ![]() |
![]() |
Trabajo | ![]() |
![]() |
Foros | ![]() |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
![]() |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
||||
|
||||
Avanzar Edits con Enter
Tengo el siguiente codigo para que se pueda avanzar en los diferentes edits mediante el enter y no el tab.
[code] procedure TfIngreso.FormKeyPress(Sender: TObject; var Key: Char); begin If Key = #13 and ( ActiveControl <> TBitBtn ) then begin SelectNext(ActiveControl as tWinControl, True, True ); Key := #0; end; end; Usando D6 no me compila en las palabras en negrita, alguna sugerencia? Gracias |
#2
|
||||
|
||||
¿Cuáles palabras en negritas? ¡No veo ninguna!
![]() |
#3
|
||||
|
||||
Siempre es bueno que nos digas cuál es el error que te da el compilador, a simple vista le haría dos sutiles cambios:
Saludos!
__________________
delphi.com.ar Dedique el tiempo suficiente para formular su pregunta si pretende que alguien dedique su tiempo en contestarla. ![]() |
#4
|
||||
|
||||
Perdon,perdon,perdon.
Escribi primero el mensaje , pensando en ponerle las negritas despues y lo envie. El texto en negrita era ( ActiveControl <> TBitBtn ) , aunque no probé la respuesta de delphi.com.ar , creo q x ahi esta la respuesta. Muchas gracias a ambos. |
![]() |
|
|
![]() |
|