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;
Cualquier pista se agradecerá.
Saludos a todos.