32 replies to this topic

[Caral]

Hola
Muchas gracias amigo.
Listo, con esto creo que ya lo puedo hacer.
Saludos

[Wilson]

Aqui te paso un ejemplo con una DB de access, solo debes de cuadrar la ruta a la db y listo, un único evento compartido  en el DobleClick de los DbEdit y el Edit crea nuestro form de números. Nota que he puesto en la propiedad ModalResult = mrCancel  del botón de cerrado de los números para ahorrarnos 5 líneas de código.

Saludos

Attached Files

•  2283_25d2e1c4e50cf427524ab1018fbbf2828e754903.zip   11.79KB   5 downloads

[Caral]

Hola
Buenisimo amigo.
Mejor no se puede.
Saludos

[luk2009]

Muy Buena idea Caral.    Muy buen trabajo Wilson   


Creo que le falta una tecla backspace para no tener que borrar todo si te equivocas.
Que piensan ustedes?


Pd. No crean que no trate de ponerla, pero no pude. 




bueno al final le puse un boton y le pase este codigo:

delphi

procedure TFNum.btn1Click(Sender: TObject);
var
h:Integer;
cadena:string;
begin
h:=Length(FEdit.Text);
cadena:=fedit.text;
Delete(cadena,h,1);
FEdit.text:=cadena;
end;
//funciona, pero.......

[Caral]

Hola
Gracias amigo, concuerdo en la necesidad de un boton que borre item por item.
Saludos

[Caral]

Hola
Ayer seguí jugando con esto e hice la parte de letras que faltaba.
Ahora son dos, Números solos y letras con números, casi un teclado.
Aqui os dejo el código, que me parece se podría mejorar mucho mas, o por lo menos ampliarle mas opciones.
Saludos

Attached Files

•  2284_daf13642826ea740935323dd20f01a698cfbb498.zip   18.49KB   6 downloads

[Wilson]

Muy buen trabajo Caral, quedó buénisimo el alfanumérico..
Me parece que hay que cambiar el lugar de creación de los teclados, porque en tus ejemplos están en función del lugar en donde se haga el dobleclick y podrías quedar sin ver lo que escribes, o si el control está muy a la derecha de la pantalla podrías quedar sin ver el teclado, creo que debe basarse mejor en la propiedad ClientOrigin, yo lo había programado para que apareciera debajo del control. Cuando haya un tiempo lo organizo para que aparezca arriba o abajo del control que lo llama según la posición de este en la pantalla.

Saludos

[Caral]

Hola
Le he hecho varios cambios.
Le puse la opción para que se vea según el ClientOrigin, como lo hizo Wilson, (con ligeros cambios) me parece que esta mejor.
Le puse el codigo de luk2009 para borrar, me parece mas comodo.

Le puse un botón MAS, este es para colocar mas signos, asi casi se puede tener todas las opciones de un teclado.
Al presionarlo se cambia el caption del boton de arriba de este y se presiona, es sencillo.
Bueno, se va mejorando poco a poco. 
Saludos

Attached Files

•  2285_90efb68b1a0858a1dd251bebf1792a5986b37154.zip   19.39KB   6 downloads

[Wilson]

Buen tarabajo Caral, he quitado unas líneas de código que sobraban y he agregado alguna funcionalidad para que se escriba directamente desde el popupMenu de los símbolos al edit, como también la posibilidad de escribir en mayúsculas y en minúsculas.

Saludos

Attached Files

•  2286_d2e62bc5883c62e64b6107f1b039c6585242a82c.zip   6.22KB   6 downloads

[Caral]

Hola
Esto terminara siendo un teclado completo 
Muy bueno amigo.
Saludos

[Wilson]

Hola
Esto terminara siendo un teclado completo   
Muy bueno amigo. 
Saludos

Hasta le podríamos cambiar el título al hilo por algo así como : TECLADO EN PANTALLA PARA CUADROS DE EDICIÓN.     

[egostar]

Hola
Esto terminara siendo un teclado completo   
Muy bueno amigo. 
Saludos

Hasta le podríamos cambiar el título al hilo por algo así como : TECLADO EN PANTALLA PARA CUADROS DE EDICIÓN.     

O de una vez un componente como el que trae DelphiXE

Salud OS

[Caral]

Hola
Es interesante ya que al ser un UNIT independiente se pude usar como si fuera un componente.

De hecho asi es como los voy a usar.
Saludos
DP: Creo que con solo instalar el .pas ya se podria guardar como un componente.