Definicion de Clases

[cacu]

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

[[coso]]

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

[[maeyanes]]

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...