FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
||||
|
||||
No tengo ni idea d como seguir...¿Foco?
Buenas compañeros delphileros... vamos a ver si m podeis ayudar en esto xq no tengo ni idea de como solucionarlo....Tengo un FPrincipal y un FAlumnos.
Bien, en FPrincipal tengo un boton q quiero q me inserte un nuevo alumno en el FAlumnos directamente...en el FAlumnos tengo un boton que se llama BInsertar el cual me inserta un nuevo registro en la BD. Utilizo un DBGrid y vadios DBEdit para introducir los valores de forma correcta. Bien..... En el BNuevoAlumno del FPrincipal, cliqueo, y hago un FAlumno.BInsertar.Click (donde me pone el Querry en modo Insert y modifica estado de botones, edit, etc...) y luego un FAlumnos.ShowModal...correcto, se me abre el FAlumnos y veo que todo se me pone como si hubiera cliqueado de verdad el boton insertar : varios botones q tengo se me ponen en noVisibles, el boton Aceptar o Cancelar se me ponen en modo visible, es decir todo lo que se debe hacer cuando se cliquea el Binsertar del FAlumnos... es más en el Grid veo como hay una linea en blanco esperando que se reyene, perfecto....Ahora yo lo tengo montado para q en Grid no se puedan introducir valores y estos sean insertados en unos DBEdit, vale???? Aqui viene el problema: es pinchar en cualquier sitio, normalmente en un DBEdit y se me va el registro nuevo!!!! y todo los datos q introduzco es como si modificara uno de los registros siguientes que ya había......que pasa??? he probado a ponerle el foco en uno de los DBEdit y nada.... ¿¿¿por que el Grid se quita de modo Insertar, no lo entiendo???? Estoy amargao con esto no se como salir d este problema.................Gracias x vuestra atencion y lo que es mas importante, gracias x vuestro tiempo... |
#2
|
||||
|
||||
¿Exactamente cual es el código que utilizas para insertar (FAlumno.BInsertar.Click)?
A parte de poner en modo Insert, ¿Haces el Append?
__________________
Germán Estévez => Web/Blog Guía de estilo, Guía alternativa Utiliza TAG's en tus mensajes. Contactar con el Clubdelphi P.D: Más tiempo dedicado a la pregunta=Mejores respuestas. |
#3
|
||||
|
||||
Primero sitúas el foco en un DBEdit y después pones la tabla o dataset correspondiente en modo inserción (en ese orden).
Saludos
__________________
Si usted entendió mi comentario, contácteme y gustosamente, se lo volveré a explicar hasta que no lo entienda, Gracias. |
#5
|
||||
|
||||
Yo sabía que lo había comentado antes, pero no que fue a Peterman. Apúntate una Roman
Eso sí, me quedo con la intriga del ¿Por qué hace ese efecto? (al menos en BDS 2006 para Win32) saludos
__________________
Si usted entendió mi comentario, contácteme y gustosamente, se lo volveré a explicar hasta que no lo entienda, Gracias. |
#6
|
||||
|
||||
Vamo a ver ese codigo...
Trabajo en Delphi7 para XP, una tabla de Access y utilizo un TDataBase, leido por consultas Querrys con sus respectivos DataSource. Bien... Lo que esta de verde son para activar unos campos, etc, no tiene demasiada importancia...Lo que hago es que ya no llamo al boton en sí, sino que todo el codigo que habia en el boton me lo he traido a este...yo que se, era por probar así... lo del metodo Apend() no tengo ni idea d lo que es ni para que vale....y bueno cuando pongo el Foco antes del ShowModal me da un error "Cannot Focus a disabled or invisible window"...asi q vamos a ver el club de expertos que me dice... Nenes, sois unas joyas...Por cierto no entiendo el argot de Roman, ¿que dice? procedure TFPrincipal.BitBtn1Click(Sender: TObject); begin FMD.QAlumnos.Open; FMD.QPermisoAlum.Open; //Pongo los campos de forma editable... FAlumnos.DBEdit1.ReadOnly:=False; FAlumnos.DBEdit2.ReadOnly:=False; FAlumnos.DBEdit3.ReadOnly:=False; FAlumnos.DBEdit4.ReadOnly:=False; FAlumnos.DBMemo1.ReadOnly:=False; //Mostramos los campos para completar la edicion. FAlumnos.DBLPermisos.Visible:=True; FAlumnos.DateTimePicker1.Visible:=True; FAlumnos.DateTimePicker2.Visible:=True; //Ponemos el Querry en caso Insertar. FMD.QAlumnos.Insert; //Dejamos solamente los controles Activar o Cancelar activos. FAlumnos.BitBModificar.Enabled:=False; FAlumnos.BitBInsertar.Enabled:=False; FAlumnos.BitBEliminar.Enabled:=False; FAlumnos.BitBSalir.Enabled:=False; FAlumnos.BBuscar.Enabled:=False; FAlumnos.BnoBuscar.Enabled:=False; FAlumnos.BClases.Enabled:=False; FAlumnos.BExamenes.Enabled:=False; FAlumnos.DBNavigator1.Enabled:=False; FAlumnos.BitBAceptar.Enabled:=True; FAlumnos.BitBCancelar.Enabled:=True; //FAlumnos.BitBInsertar.Click; -->Esto era lo para pulsar el boton Insertar FAlumnos.ShowModal; //Poner el Foco FAlumnos.DBEdit1.SetFocus; end; |
#7
|
|||
|
|||
Vamos por partes
Cita:
Cita:
Cita:
Saludos.
__________________
"La forma de empezar es dejar de hablar y empezar a hacerlo." - Walt Disney |
#8
|
||||
|
||||
Ya veo cual es el problema, es un caso especial y como diría un mecánico... "tiene mala soldadura" .
El problema es que usas ShowModal (supongo que por requerimientos) así que antes de mostrar la ventana, no puedes establecer el foco. Tampoco puedes dejar el foco (en diseño, mediante la propiedad ActiveControl del Form) porque primero se pone en modo inserción, después se muestra la ventana y ahora es cuando se cambiaría el foco hacia el DBEdit1, puesto que ya está en modo inserción la tabla, el bug comentado de delphi quita el modo inserción. Poner el foco después de hacer un ShowModal, tampoco sirve de nada, precisamente porque la ejecución se para justo en la línea del ShowModal. Lo que vamos a hacer es marear un poco a delphi con los eventos, y de paso, también te mareo a tí :
Así muestra la ventana Falumnos, e inmediatamente viene a este evento MiShow, donde ya si podemos establecer el foco donde queramos y además, ponemos la tabla en insertar. PD: Por favor, encierra el código entre [ delphi ] aqui vuestro codigo [ /delphi ] (sin espacios dentro de los corchetes) Así consigues que respete el identado y aparezca las palabras reservadas en negrita y colores. Saludos
__________________
Si usted entendió mi comentario, contácteme y gustosamente, se lo volveré a explicar hasta que no lo entienda, Gracias. |
#9
|
||||
|
||||
Cojonudo machos!!!
Sois la hostia, no entiendo muy bien lo que hemos hecho porque estoy un poco mareo pero ha funcionao...
y solo os puedo dar las gracias...y preguntaros que es lo que os mueve a ser tan benevolentes...porque la pagina no tiene publicidad, ¿lo haceis por amor al arte?, ¿es un pike entre vosotros para ver quien sabe mas?... En todo caso, maravilloso, y un saludo muy grande para mis bohemios delphileros q son la caña de España...... |
#10
|
||||
|
||||
¿como dices? ¿no has ingresado el dinero en mi cuenta? pues ya no te ayudo más jejeje.
Enhorabuena por descubrir el verdadero sentimiento de una comunidad, ayudar sin pedir nada a cambio ¿no es eso satisfactorio?, ¿tu agradecimiento no es acaso recompensa suficiente?. En realidad la cosa va un poco más allá. Aquí se muestran los conocimientos de largas horas de lectura, interpretaciones de textos, prueba y error, trucos e inventos de todos nosotros, se aprenden técnicas que quizás por desconocimiento jamás las hubiéramos usado, así que, también es una buena forma de crecer, eso sin olvidar el foro de humor y nuestra querida taberna . 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 |
Dudas de como seguir estudiando | Gabel | Varios | 9 | 14-08-2006 20:33:44 |
JVCL como instalar, pasos a seguir | martita | OOP | 2 | 13-07-2005 17:46:05 |
¿Como seguir a un usuario? | NovatoDelphi | Linux | 1 | 17-02-2004 13:14:32 |
Quiero una idea detallada como paso de Qreport a .DOC | El_Raso | Impresión | 1 | 21-11-2003 07:58:43 |
BDE No tengo ni idea | Descendents | Conexión con bases de datos | 1 | 17-07-2003 13:29:08 |
|