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

[[Lepe]]

Empezado por Al González

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.

Llevas toda la razón, lo puse de memoria ... y me equivoqué.

Saludos Al

[roman]

Empezado por Al González

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:

¿Y en qué consiste la ventaja? Si la forma aun no ha sido creada no hay gran cosa que se pueda hacer con la variable. ¿Y qué pasa si ocurre una excepción en el constructor?

// Saludos

[[Lepe]]

Si dentro de un Datamodule necesitas saber si existe ese formulario, (para actualizar un control no-adaware) puedes usar Assigned(form2).

Si la variable no está asignada, entonces ese código del Datamodule no se ejecuta, y por tanto, la primera vez que se muestra la ventana, el control queda desfasado.

Por otra parte, si tienes codigo en el AfterScroll de un dataset, que depende de la existencia de un Form, tampoco se ejecuta ese código.

Quizás el error está en la forma de programar, o en el sistema que se esté usando. En mi caso particular, y usando tablas paradox, no me queda más remedio que realizar esas comprobaciones en el Datamodule. Ya que viene a cuento.... ¡¡Que hartura de paradox !! ... con lo útil que resulta los triggers oiga...

Empezado por roman

¿Y qué pasa si ocurre una excepción en el constructor?

Te refieres a que la variable ya no es nil, y se quedará asignada.... Pues si; Si es un problema. La creación de la forma debe estar en un try ... except con Freeandnil(Form2).

Saludos