FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Buscar | Temas de Hoy | Marcar Foros Como Leídos |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
|||
|
|||
Cambiar de edit automaticamente
Hola soy nuevo en el foro, bueno eso ya lo abreis visto jejeje, a ver tengo un problemilla, me explico:
tengo un edit1, edi2, edit3 y edit4 lo que necesito es que al poner un numero en el edit2 si detecta que es inferior al que hay en el edit1 que pase automaticamente al edit3.setfocus y si es superior pues que pase al sigiente control osea el edit4. Espero haberme explicado con claridad. Salu2.CRIS. |
#2
|
||||
|
||||
Prueba con esta idea:
Código:
procedure TForm1.Edit2Exit(Sender: TObject); var nValor,ErrCode:Integer; begin val(edit2.text,nValor,Errcode); if errCode <> 0 then MessageDlg('Error en la position: ' + IntToStr(ErrCode), mtWarning, [mbOk], 0) else if nValor > StrToInt(edit1.text) then edit3.SetFocus else edit4.SetFocus; end; |
#3
|
|||
|
|||
Ole ole ole ole muchas gracias marcoszorrilla por contestarme tan rapido voy a probarlo ahorita mismo y te cuento. Salu2.CRIS.
|
#4
|
|||
|
|||
Hola marcoszorrilla, un millon de gracias, le he aplicado la formula a mi aplicacion y me ha ido de maravilla, gracias de nuevo y un saludo.CRIS.
|
Herramientas | Buscar en Tema |
Desplegado | |
|
|
|