Edit,comand button

[mahlon]

necesito hacer varias cosas en un edit:

1. que solo acepte numeros (no letras).
2. que la aplicacion no falle al dejar el edit en blanco. (le doy a calcular y produce error).

--------------------------------------------------------------------------
ahora para un comand button:

que me funcionen cuando pulse la tecla Enter(todos los botones, claro).

--------------------------------------------------------------------------del cursor:

que se regrese al primer edit luego de que realize los calculos, y que baje en orden del primero al ultimo y luego a los botones del primero al ultimo.

--------------------------------------------------------------------------
necesito ejemplos de lo que es un case para no usar tanto if y si es posible algun curso de delphi 2006 for dummies

cualquier sugerencia para programar es bienvenida
--------------------------------------------------------------------------

[kman]

Saludos.
Empezando con todos tus problemas.

-Define primero que botón quieres que funcione con ENTER, cuando lo hagas cambia la propiedad DEFAULT a true (Todos en un mismo formulario no deberían de funcionar con enter).

Te recomiendo unas busquedas en el foro hay respuestas individuales a tus inquietudes.
Continuamos luego...

[kman]

Realiza una condición para controlar el error de cálculo con edit en blanco, por ejemplo

Código Delphi [-]
If Trim(edit1.text)= '' then
//control de error aquí por ejemplo que tome valor cero, un mensaje o algo

[kman]

En tu código, pon al final un edit.setfocus para que al finalizar el foco se coloque en el edit que deseas.

[mahlon]

gracias...


y para que solo pueda poner numeros en los edit?

[vtdeleon]

Empezado por mahlon

y para que solo pueda poner numeros en los edit?

Hiciste la busqeuda en el foro?

Saludos

[kman]

Empezado por mahlon

...y que baje en orden del primero al ultimo y luego a los botones del primero al ultimo.

A qué te refieres con esto? al Tab Order?
Si es aí En la Propiedad Taborder organiza tus objetos y usa este código para moverte entre ellos con la tecla + y -(Copia y pega el código en el evento Onkeypress de cada objeto):

Código Delphi [-]
If Key =#45 Then Begin
     keybd_event(16,0,0,0); // SHIFT oprimido
     keybd_event(9,0,0,0); // TAB oprimido
     Keybd_event(16,0,2,0); // Soltar el SHIFT  (NO SE PUEDE OMITIR)
     keybd_event(9,0,2,0); // TAB Released (Puede ser omitido)
     Key := #0
   end;
if key=#43 then begin
    keybd_event(9,0,0,0); // TAB oprimido
    keybd_event(9,0,2,0); // Soltar el Tab
    Key:=#0;
end;

Código Cortesía de un compañero que no recuerdo, pero todo crédito para él

[mahlon]

me refiero a que el cursor tenga un order especifico dentro de todos los objetos.....

Empezado por kman

A qué te refieres con esto? al Tab Order?
Si es aí En la Propiedad Taborder organiza tus objetos y usa este código para moverte entre ellos con la tecla + y -(Copia y pega el código en el evento Onkeypress de cada objeto):

Código Delphi [-]
If Key =#45 Then Begin
keybd_event(16,0,0,0); // SHIFT oprimido
keybd_event(9,0,0,0); // TAB oprimido
Keybd_event(16,0,2,0); // Soltar el SHIFT (NO SE PUEDE OMITIR)
keybd_event(9,0,2,0); // TAB Released (Puede ser omitido)
Key := #0
end;
if key=#43 then begin
keybd_event(9,0,0,0); // TAB oprimido
keybd_event(9,0,2,0); // Soltar el Tab
Key:=#0;
end;




Código Cortesía de un compañero que no recuerdo, pero todo crédito para él