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