Edit,comand button

mahlon · #1 18-08-2006

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 · #2 18-08-2006

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 · #3 18-08-2006

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 · #4 18-08-2006

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

mahlon · #5 19-08-2006

gracias...

y para que solo pueda poner numeros en los edit?

vtdeleon · #6 19-08-2006

Cita:

Empezado por mahlon

y para que solo pueda poner numeros en los edit?

Hiciste la busqeuda en el foro?

Saludos

MaMu · #7 19-08-2006

Un TEdit limitado para entrar números Enteros

Código:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
 var sNumAnterior:string;
 begin
   sNumAnterior := (sender as TEdit).Text;
   if (key <> #3) and (key <> #22) then  // #3 = Copiar (Ctrl + C)
   begin                                 // #22 = Pegar (Ctrl + V)
     if key = '-' then
     begin
       if ((pos(key,(sender as TEdit).Text) > 0) and
          (pos(key,(sender as TEdit).SelText) = 0))
          or
          ((sender as TEdit).SelStart > 0)
       then key:=#0;
     end
     else if not (key in ['0'..'9',#8]) then key:=#0;
   end;
   if key = #22 then
   try
     key := #0;
     (sender as TEdit).PasteFromClipBoard;
     StrToInt((sender as TEdit).Text);
   except
     (sender as TEdit).Text := sNumAnterior;
     (sender as TEdit).SelStart := Length((sender as TEdit).Text);
   end;
 end;

Un TEdit limitado para entrar números Reales

Código:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
 var sNumAnterior:string;
 begin
   sNumAnterior := (sender as TEdit).Text;
   if (key <> #3) and (key <> #22) then  // #3 = Copiar (Ctrl + C)
   begin                                 // #22 = Pegar (Ctrl + V)
     if key in ['-','.'] then
     begin
       if (pos(key,(sender as TEdit).Text) > 0) and
          (pos(key,(sender as TEdit).SelText) = 0)
          then key:=#0;
       case key of
         '-': if ((sender as TEdit).SelStart > 0) then key:=#0;
         '.': if ((sender as TEdit).SelStart = 0) or
                 (((sender as TEdit).SelStart = 1) and
                 ((sender as TEdit).Text[1] = '-'))
              then key:=#0;
       end;
     end
     else if not (key in ['0'..'9',#8]) then key:=#0;
   end;
   if key = #22 then
   try
     key := #0;
     (sender as TEdit).PasteFromClipBoard;
     StrToFloat((sender as TEdit).Text);
   except
     (sender as TEdit).Text := sNumAnterior;
     (sender as TEdit).SelStart := Length((sender as TEdit).Text);
   end;
 end;

by Arturo_Ortí

arturo98@santandersupernet.com

kman · #8 19-08-2006

Cita:

Empezado por mamu

Un TEdit limitado para entrar números Enteros

Un TEdit limitado para entrar números Reales

by Arturo_Ortí

Esas dos las quería yo también, cool!

kman · #9 19-08-2006

Cita:

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 · #10 20-08-2006

Cita:

Empezado por vtdeleon

Hiciste la busqeuda en el foro?

Saludos

no

mahlon · #11 20-08-2006

el segundo codigo incluye numeros como 0.5 ?

Cita:

Empezado por mamu

Un TEdit limitado para entrar números Enteros

Código:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
 var sNumAnterior:string;
 begin
   sNumAnterior := (sender as TEdit).Text;
   if (key <> #3) and (key <> #22) then  // #3 = Copiar (Ctrl + C)
   begin                                 // #22 = Pegar (Ctrl + V)
     if key = '-' then
     begin
       if ((pos(key,(sender as TEdit).Text) > 0) and
          (pos(key,(sender as TEdit).SelText) = 0))
          or
          ((sender as TEdit).SelStart > 0)
       then key:=#0;
     end
     else if not (key in ['0'..'9',#8]) then key:=#0;
   end;
   if key = #22 then
   try
     key := #0;
     (sender as TEdit).PasteFromClipBoard;
     StrToInt((sender as TEdit).Text);
   except
     (sender as TEdit).Text := sNumAnterior;
     (sender as TEdit).SelStart := Length((sender as TEdit).Text);
   end;
 end;

Un TEdit limitado para entrar números Reales

Código:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
 var sNumAnterior:string;
 begin
   sNumAnterior := (sender as TEdit).Text;
   if (key <> #3) and (key <> #22) then  // #3 = Copiar (Ctrl + C)
   begin                                 // #22 = Pegar (Ctrl + V)
     if key in ['-','.'] then
     begin
       if (pos(key,(sender as TEdit).Text) > 0) and
          (pos(key,(sender as TEdit).SelText) = 0)
          then key:=#0;
       case key of
         '-': if ((sender as TEdit).SelStart > 0) then key:=#0;
         '.': if ((sender as TEdit).SelStart = 0) or
                 (((sender as TEdit).SelStart = 1) and
                 ((sender as TEdit).Text[1] = '-'))
              then key:=#0;
       end;
     end
     else if not (key in ['0'..'9',#8]) then key:=#0;
   end;
   if key = #22 then
   try
     key := #0;
     (sender as TEdit).PasteFromClipBoard;
     StrToFloat((sender as TEdit).Text);
   except
     (sender as TEdit).Text := sNumAnterior;
     (sender as TEdit).SelStart := Length((sender as TEdit).Text);
   end;
 end;

by Arturo_Ortí

arturo98@santandersupernet.com

mahlon · #12 20-08-2006

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

Cita:

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

MaMu · #13 22-08-2006

Cita:

Empezado por mahlon

el segundo codigo incluye numeros como 0.5 ?

Exacto.

Saludos.

mahlon · #14 28-08-2006

Cita:

Empezado por mamu

Exacto.

Saludos.

gracias por el codigo!!!!!!!!!!!!!!!!

necesito algo parecido pero que solo acepte estos caracteres: desde la a hasta la z y A hasta la Z (mayusculas).

Saludos

[Lepe] · #15 28-08-2006

Pues igual que con números:

Código Delphi [-]if key in ['a'..'z', 'A'..'Z', 'ñ','Ñ'] then
  //  si se permite

Saludos

mahlon · #16 28-08-2006

Cita:

Empezado por Lepe

Pues igual que con números:

Código Delphi [-]
if key in ['a'..'z', 'A'..'Z', 'ñ','Ñ'] then
// si se permite

Saludos

en ese caso es representado por matrices.
Saludos

Temas Similares
Tema	Autor	Foro	Respuestas	Último mensaje
BUtton	yoko	Varios	1	30-06-2006 04:28:05
Button en DBgrid	Iskariote0087	Varios	2	15-05-2006 13:06:13
Descargar icono de un Button	Iskariote0087	Varios	2	10-01-2006 12:04:36
añadir a TQuickReport un button	jmlifi	Impresión	2	11-10-2005 15:22:37
colores a un Button	dmagui	OOP	3	27-06-2005 19:51:44