Ir al contenido


Foto

[RESUELTO] Pasar datos de un form a otro (continuo)


  • Por favor identifícate para responder
32 respuestas en este tema

#21 Caral

Caral

    Advanced Member

  • Moderador
  • PipPipPip
  • 4.266 mensajes
  • LocationCosta Rica

Escrito 05 marzo 2011 - 02:28

Hola
Muchas gracias amigo.
Listo, con esto creo que ya lo puedo hacer. (y) (b)
Saludos
  • 0

#22 Wilson

Wilson

    Advanced Member

  • Moderadores
  • PipPipPip
  • 2.137 mensajes

Escrito 05 marzo 2011 - 02:30

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

Archivos adjuntos


  • 0

#23 Caral

Caral

    Advanced Member

  • Moderador
  • PipPipPip
  • 4.266 mensajes
  • LocationCosta Rica

Escrito 05 marzo 2011 - 03:25

Hola
Buenisimo amigo.
Mejor no se puede. (y) (b)
Saludos
  • 0

#24 luk2009

luk2009

    Advanced Member

  • Moderadores
  • PipPipPip
  • 2.040 mensajes
  • LocationSanto Domingo

Escrito 05 marzo 2011 - 10:05

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
  1. procedure TFNum.btn1Click(Sender: TObject);
  2. var
  3. h:Integer;
  4. cadena:string;
  5. begin
  6. h:=Length(FEdit.Text);
  7. cadena:=fedit.text;
  8. Delete(cadena,h,1);
  9. FEdit.text:=cadena;
  10. end;
  11. //funciona, pero.......


  • 0

#25 Caral

Caral

    Advanced Member

  • Moderador
  • PipPipPip
  • 4.266 mensajes
  • LocationCosta Rica

Escrito 06 marzo 2011 - 06:34

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

#26 Caral

Caral

    Advanced Member

  • Moderador
  • PipPipPip
  • 4.266 mensajes
  • LocationCosta Rica

Escrito 06 marzo 2011 - 06:38

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. (y)
Saludos

Archivos adjuntos


  • 0

#27 Wilson

Wilson

    Advanced Member

  • Moderadores
  • PipPipPip
  • 2.137 mensajes

Escrito 06 marzo 2011 - 08:17

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 (y) (y)
  • 0

#28 Caral

Caral

    Advanced Member

  • Moderador
  • PipPipPip
  • 4.266 mensajes
  • LocationCosta Rica

Escrito 06 marzo 2011 - 01:15

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. (y)
Le puse el codigo de luk2009 para borrar, me parece mas comodo. (y)

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

Archivos adjuntos


  • 0

#29 Wilson

Wilson

    Advanced Member

  • Moderadores
  • PipPipPip
  • 2.137 mensajes

Escrito 06 marzo 2011 - 03:53

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

(y) (y)

Archivos adjuntos


  • 0

#30 Caral

Caral

    Advanced Member

  • Moderador
  • PipPipPip
  • 4.266 mensajes
  • LocationCosta Rica

Escrito 06 marzo 2011 - 05:45

Hola
Esto terminara siendo un teclado completo  :D :D
Muy bueno amigo. (y)
Saludos


  • 0

#31 Wilson

Wilson

    Advanced Member

  • Moderadores
  • PipPipPip
  • 2.137 mensajes

Escrito 06 marzo 2011 - 06:09

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.    :D :D 
  • 0

#32 egostar

egostar

    missing my father, I love my mother.

  • Administrador
  • 14.446 mensajes
  • LocationMéxico

Escrito 06 marzo 2011 - 06:33


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
  • 0

#33 Caral

Caral

    Advanced Member

  • Moderador
  • PipPipPip
  • 4.266 mensajes
  • LocationCosta Rica

Escrito 06 marzo 2011 - 07:19

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

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




IP.Board spam blocked by CleanTalk.