Foco seleccionado que se mantenga

[cloayza]

Asi a simple vista lo que se me ocurre es que puedes tener alguna instruccion en el OnShow del Facademico que este enviando el puntero del registro al inicio, tambien puede ser que estes abriendo la consulta en este evento...

Podrias chequear si existe algun codigo en el OnShow del formulario Facademico...

Saludos.

[sizne]

Empezado por cloayza

Asi a simple vista lo que se me ocurre es que puedes tener alguna instruccion en el OnShow del Facademico que este enviando el puntero del registro al inicio, tambien puede ser que estes abriendo la consulta en este evento...

Podrias chequear si existe algun codigo en el OnShow del formulario Facademico...

Saludos.

Hola cloayza, gracias por responder. Te comento que no estoy usando OnShow no sé cómo podría solucionar....

Gracias de todas maneras.

Saludos

[cloayza]

Al parecer al salir del formulario inscripcion estas ejecutando alguna accion que cambia el cursor de registro seleccionado en I.

Verifica que haces al cerrar o salir de Finscripcion.

Otra alternativa seria que en el evento OnShow de Finscripcion, guardes el puntero al registro actual con la funcion getBookmark...y en el OnClose del form FIncripcion restaure la posicion del registro.

Por ejemplo

Código Delphi [-]
public
    RegistroActual:TBookmark;
...
  
procedure TFinscripcion.OnShow(Sender: TObject);
begin
      RegistroActual:=Facademico.I.DataSource.DataSet.GetBookmark;
end;

procedure TFinscripcion.OnClose(Sender: TObject);
begin
      Facademico.I.DataSource.DataSet.GotoBookmark(RegistroActual);
end;

Saludos

[sizne]

Hola cloayza! Gracias por tu cooperación.
Sabes me aparecio el siguiente mensaje en cuanto puse el código que me sugeriste...

[Warning]Uinscripcion.pas(88): Unsafe type 'TBookmark'
[Warning]Uinscripcion.pas(280): Unsafe type 'RegistroActual:Pointer'
[Warning]Uinscripcion.pas(286): Unsafe type 'RegistroActual:Pointer'

Si coloqué donde me dijiste...no sé por que me aparecio ese msj.
Por fa ayuda.
Saludos

[cloayza]

En cual de las dos procedimientos te arrojo el error en el OnShow o en OnClose...

Por si acaso agrega la siguiente validacion a OnClose...

Código Delphi [-]
procedure TFinscripcion.OnClose(Sender: TObject);
begin
      If Assigned(RegistroActual) Then
         Facademico.I.DataSource.DataSet.GotoBookmark(RegistroActual);
end;
end;

Saludos cordiales

[sizne]

Hola cloayza, te comento que el error ahora me lo enfoca donde declaro en la seccion de public...

Gracias!