Yo te recomendaría, ahora que sabes cuál es la sección
initialization releer mi primer mensaje en este hilo y tener cuidado con lo que estás escribiendo.
Sé que estás empezando con Delphi y el tema de las
referencias de clase no es un tema básico, sin embargo no me queda claro si ya buscaste en la ayuda de Delphi acerca de ello y conviene que le des una leída para que los errores que te aparecen no parezcan tan en chino.
Te hago un resumen:
Las
referencias de clase (en inglés
class references) son algo así como
meta clases-- Una variable cuyo tipo es una referencia de clase, es una variable cuyos valores son
tipos de clases.
Considera este caso concreto:
Código:
type
TForm = class
...
end;
TFormClass = class of TForm;
Esto es un resumenn de las declaraciones que se encuentran en la unidad forms.pas.
Aquí, TForm es un
tipo de datos, particularmente una clase. Como cualquier otro tipo de datos puedes declarar variables de este tipo:
Código:
var
Forma: TForm;
Por otro lado, TFormClass es una
referencia de clase (una meta clase). También es un tipo de datos en el sentido de que puedes declarar variables de este tipo:
Código:
var
FormaClase: TClassForm;
Pero la diferencia es que los valores que variables de este tipo pueden tomar son, a su vez, tipos de datos. No cualquier tipo de datos sino sólo aquellos que sean clases (como TForm) y de hecho no cualquier clase sino sólo TForm o descendientes de TForm.
Así, puedes asignar:
FormaClase := TForm1;
ya que la clase TForm1 es un descendente de TForm.
Observa aquí el punto importante:
Una asignación como
FormaClase := Forma;
donde Forma es como la declarada arriba, no es válida ya que Forma es un objeto de la clase TForm, es decir una variable de tipo TForm, más no es
el tipo TForm.
¿Para qué sirven estas referencias de clase?
Recuerda cómo se construye un objeto, por ejemplo Forma:
Forma := TForm.Create(...);
Observa que antes del punto está
un tipo de datos, una clase, TForm. Como una referencia de clase toma como valor un tipo de datos puedes sustituir TForm en la asignación anterior por una referencia de clase,
cuyo valor sea igual a TForm:
Código:
FormaClase := TForm;
Forma := FormaClase.Create(...);
Pero si FormaClase no tiene un valor asignado entonces es
nil y no se puede hacer nada con ella. Es decir, si usas
Forma := FormaClase.Create(...);
sin haber antes asignado TForm a FormaClase es como si hicieras
nil.Create(...);
lo que provoca un error de violación de acceso.
Regresando a tú problema específico. El procedimiento RegisterClass toma como parámetro una referencia de clase. Como FormaClase es de tipo referencia de clase el compilador no te marca ningún error. Sin embargo, seguramente FormaClase no ha sido inicializada, es
nil, de manera que cuando pones
RegisterClass(FormaClase);
es como si pusieras
RegisterClass(
nil);
y de ahí la violación de acceso.
Ahora bien, cuando tienes un procedimiento, por decir algo, con un parámetro de tipo Integer:
Código:
procedure MiProc(I: Integer);
begin
end;
para llamar a este procedimiento no es necesario que hagas:
Código:
I := 84;
MiProc(I);
sino que basta usar:
MiProc(84);
Lo mismo sucede con RegisterClass. En lugar de usar una variable como FormaClase para pasársela cómo parámetro, puedes pasarle directamente el valor que te interesa; en este caso TMiForma (o como quiera que se llame la clase de tu formulario):
RegisterClass(TMiForma);
// Continúa ...