Formularios

[[Al González]]

¡Buen día a todos!

Empezado por roman

...¿cuál es la ventaja de usar Application.CreateForm?...

La ventaja de utilizar el método Application.CreateForm en lugar de TMyForm.Create, es que CreateForm crea la instancia de la forma y asigna ésta a la variable dada, antes de llamar al constructor:

Código Delphi [-]
// Extracto de Forms.pas de Delphi 7
procedure TApplication.CreateForm(InstanceClass: TComponentClass;
  var Reference);
var
  Instance: TComponent;
begin
  Instance := TComponent(InstanceClass.NewInstance);
  TComponent(Reference) := Instance;
  try
    Instance.Create(Self);
  ...

Esto garantiza que los eventos OnCreate, OnShow y OnActivate, disparados por la llamada al constructor, se ejecuten cuando la variable forma ya tiene asignado un valor.

En el caso de usar la sintaxis "FormaX := TFormaX.Create", los eventos OnCreate, OnShow y OnActivate, se dispararán antes de realizarse la asignación.

Con respecto al evento OnPaint, la prueba de Lepe puede ser algo engañosa, ya que este evento se dispara de forma imprecisa, dependiendo de las necesidades de despliegue de la forma y sus controles. Puede ocurrir de forma asíncrona a la construcción de la forma.

Lepe, dudo de dos de los resultados que has presentado. Específicamente el de los eventos OnActivate y OnShow de la prueba con forma SDI, que deberían ser False y False. En el caso de la forma MDI me parece que los resultados False, False, False y True son correctos.

Es decir, al no usar el método Application.CreateForm, los resultados para OnCreate, OnShow y OnActivate son False en todos los casos, y True si se utiliza Application.CreateForm.

Espero esto sea de utilidad, seguimos en contacto.

Al González. .