Se cierra mi form sin que yo lo indique
Tengo un form con 3 pestañas (agregar, elminar y modificar)
Cuando pongo la pestaña de Agregar y doy de alta por decir un usuario, al presionar el botón de nuevo (añade a la base de datos al usuario) realiza la operación de forma correcta pero al terminar me saca de la forma.
El código de dicho botón es el siguiente:
procedure TFmUsuarios.BtNuevoClick(Sender: TObject);
begin
TbUsuarios.Append;
...... TODOS LOS CAMPOS ....
TbUsuarios.Post;
TbUsuarios.Refresh;
Application.MessageBox('El usuario ha sido registrado.','Usuarios.',0);
Edits; {limpia todos los edit's}
ID; {Obtiene el número para identificar al usuario}
end;
Espero que me haya explicado, cualquier comentario es bienvenido, de antemano gracias.
|