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

[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