Definicion de Clases

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