No tengo ni idea d como seguir...¿Foco?

[Peterman]

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...

[Neftali [Germán.Estévez]]

¿Exactamente cual es el código que utilizas para insertar (FAlumno.BInsertar.Click)?
A parte de poner en modo Insert, ¿Haces el Append?

[[Lepe]]

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

[roman]

Esto es un déjà vu.

// Saludos

[[Lepe]]

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

[Peterman]

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;

[[egostar]]

Vamos por partes

lo del metodo Apend() no tengo ni idea

Insert() y Append() sirven para el mismo propósito con una diferencia. Append() agrega un registro nuevo al final de la tabla y el Insert() agrega un registro nuevo en un lugar específico.

cuando pongo el Foco antes del ShowModal me da un error "Cannot Focus a disabled or invisible window"...

Bueno esto es porque no puedes poner el foco en un objeto antes de mostrar la forma.

Por cierto no entiendo el argot de Roman, ¿que dice?

Ve este link déjà vu.

Saludos.

[[Lepe]]

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í :

Código Delphi [-]

procedure TFPrincipal.BitBtn1Click(Sender: TObject);
begin
  FMD.QAlumnos.Open;
  FMD.QPermisoAlum.Open;
  FAlumnos.OnShow := MiShow; // cuando se muestre, le decimos que 
// vuelva a este form.
  FAlumnos.ShowModal;
end;

procedure TFPrincipal.MiShow(Sender:TObject);
begin
  FAlumnos.DBEdit1.SetFocus
  FAlumnos.btnInsertar.click;
end;

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

[Peterman]

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......

[[Lepe]]

¿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