FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Error con Forma heredada
Estoy realizando un proyecto donde para las funciones de control de registros de catálogos he creado una forma Base, esta forma la heredo para generar las pantallas para cada tipo de Registro de manera que en la forma base tengo todas las funciones para le manejo de los registros y desde las formas hijas solamente llamo las funciones dando como referencia el dataset en el que se tiene que trabajar, hasta aqui no tengo problemas, mi problema se presenta con una funcuón de búsqueda. Cada forma tiene un botón para Buscar que manda llamar la forma de Busqueda que corresponda al tipo de registro con el que se está trabajando, mi problema es que paso como parámetro el nombre de la forma de búsqueda, la función de buscar se encuentra en la forma padre, pero al momento de intentar crear la forma me marca una excepción.
Este es el código que debería mandar llamar la forma de búsqueda: Código:
procedure TfmBaseRegistros.Buscar(pdDatos: TDBQuery; pfFormaBusqueda: TForm); var fmBuscar : TForm; begin try fmBuscar := pfFormaBusqueda.Create(nil); fmBuscar.ShowModal; finally fmBuscar.Free; end; end; Saludos a todos. |
#2
|
|||
|
|||
Error con Forma heredada
Me respondo, esta es la forma correcta de hacerlo:
Código:
procedure TfmBaseRegistros.Buscar(pdDatos: TUniQuery; pfFormaBusqueda: TComponentClass); var fmBuscar : TForm; begin // Se valida que el dataset no se encuentre en modo de inserción o edición. ValidaEstatus(pdDatos, dsInsert); ValidaEstatus(pdDatos, dsEdit); try Application.CreateForm(pfFormaBusqueda, fmBuscar); fmBuscar.ShowModal; finally fmBuscar.Free; end; end; Saludos a todos. |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Error al conectar con Firebird de forma Remota | Durbed | Conexión con bases de datos | 5 | 30-06-2015 18:14:04 |
.mdb-ADO, forma de grabar los cambios. Refresh me da error | Wonni | Conexión con bases de datos | 3 | 19-06-2007 03:22:27 |
Error Formulario forma modal | serhasae | Varios | 5 | 03-04-2006 23:52:00 |
constructor...propiedad heredada | modulay | OOP | 11 | 08-02-2006 23:27:27 |
Error al Minimizar forma CLX | fsilva79 | Varios | 1 | 31-08-2005 07:07:00 |
|