Foros Club Delphi - Cambiar de edit automaticamente

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)

- - Cambiar de edit automaticamente (https://www.clubdelphi.com/foros/showthread.php?t=1989)

CRIS	04-07-2003 16:05:17

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.

marcoszorrilla

04-07-2003 16:17:34

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;

Un Saludo.

CRIS	04-07-2003 16:20:04

Ole ole ole ole muchas gracias marcoszorrilla por contestarme tan rapido voy a probarlo ahorita mismo y te cuento. Salu2.CRIS.

CRIS	05-07-2003 13:56:45

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.

La franja horaria es GMT +2. Ahora son las 22:59:58.