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

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