Definicion de Clases
 

Queridos Delphinarios quisiera ver si alguien puede decirme que signinfica esta definicion


Type

TformClass = class of TformBascio

TformBaico = class(Tform)
.
.
.

Segun creo yo seria una referencia de clase, pero mas que eso no se y no entiendo que seginifica una referencia de clase.....

Ojala puedan ayudarme con esto, de antemano se gradese sus comentarios

Hola cacu, significa que TFormBaico es una clase descendiente de TForm, o lo que es lo mismo, con todas las propiedades y metodos de Tform mas los que se le añadan. De igual manera (aunque sin el of que creo que te dara un error de compilación) TFormClass de TFormBascio. Saludos

Hola...

Cuando haces:

Código Delphi [-]
type

  TFormBasico = class(TForm)
    // Código
  end;

  TFormBasicoClass = class of TFormBasico;

Estás declarando un tipo de Referencia de clases. Este tipo ahora puede referenciar a cualquier clase descendiente de TFormBasico.

Esto se puede usar más o menos como:

Código Delphi [-]
function CreateFormBasico(AFormBasicoClass : TFormBasicoClass): TFormBasico;
begin
  if Assigned(AFormBasicoClass) then
    Result := AFormBasicoClass.Create(nil)
end;

Lee la ayuda de Delphi para mayor referencia...


Saludos...