FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Edit,comand button
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 -------------------------------------------------------------------------- |
#2
|
|||
|
|||
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... Última edición por kman fecha: 18-08-2006 a las 20:02:13. |
#3
|
|||
|
|||
Realiza una condición para controlar el error de cálculo con edit en blanco, por ejemplo
Última edición por kman fecha: 18-08-2006 a las 23:01:02. |
#4
|
|||
|
|||
En tu código, pon al final un edit.setfocus para que al finalizar el foco se coloque en el edit que deseas.
|
#5
|
|||
|
|||
ok
gracias...
y para que solo pueda poner numeros en los edit? |
#6
|
||||
|
||||
Cita:
Saludos
__________________
Van Troi De León (Not) Guía, Code vB:=Delphi-SQL, ¿Cómo? Viajar en el tiempo no es teóricamente posible, pues si lo fuera, ya estarían aqui contándonos al respecto! |
#7
|
||||
|
||||
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; arturo98@santandersupernet.com |
#8
|
|||
|
|||
Cita:
|
#9
|
|||
|
|||
Cita:
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 Cortesía de un compañero que no recuerdo, pero todo crédito para él Última edición por kman fecha: 19-08-2006 a las 20:25:16. |
#10
|
|||
|
|||
busqueda
Cita:
|
#11
|
|||
|
|||
aclaracion
el segundo codigo incluye numeros como 0.5 ?
Cita:
|
#12
|
|||
|
|||
aclaracion para ti
me refiero a que el cursor tenga un order especifico dentro de todos los objetos.....
Cita:
|
#13
|
||||
|
||||
Cita:
Saludos. |
#14
|
|||
|
|||
caracteres
Cita:
necesito algo parecido pero que solo acepte estos caracteres: desde la a hasta la z y A hasta la Z (mayusculas). Saludos |
#15
|
||||
|
||||
Pues igual que con números:
Saludos
__________________
Si usted entendió mi comentario, contácteme y gustosamente, se lo volveré a explicar hasta que no lo entienda, Gracias. |
|
|
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 |
|