Un formulario que no abre!!

[[Chris]]

Primero, tienes que comprender que la comparación " if FDatosGenerales_local = nil then ... " no es recomendada. En su lugar debes usar: " if assigned(FDatosGenerales_local) then ... "

El hecho de que el formulario no se abra puede ser que este ocurriendo un problema al momento de la creación del mismo ( Procedure OnCreate ). Tienes que revisar este lugar que es el que pueda dar el problema. Intenta comentar las líneas "Try ... finally ... end; " y fíjate si salta una excepción.

Por otro lado, cuando estoy tratando con clases formualario y no estoy trabajando con la variable global y en lugar se ésta con una varible local u de otro aspecto, no uso este típico código, como el que tu tienes:

Código Delphi [-]
Application.CreateForm(TFDatosGenerales,FDatosGenerales_local);

En su lugar usaría este código:

Código Delphi [-]
FDatosGenerales_local := TFDatosGenerales.Create(nil);

Personalmente creo que este estilo de codificación ayuda al entendimiento del código. Ya que hace una diferencia entre los formalarios que estarán visibles por un considerable tiempo y los formularios que sólo serán mostrados durante un corto momento.

Saludos

[GerTorresM]

Gracias Chris por tu comentario:

En orden de ideas mi código quedo de la siguiente forma

Código Delphi [-]
procedure TFMenuPrincipal.DXConfiguracionItems0Click(Sender: TObject);
Var FDatosGenerales_temporal : TFDatosGenerales;
begin
  try
    FDatosGenerales_temporal := TFDatosGenerales.Create(nil);
    FDatosGenerales_temporal.ShowModal;
    FreeAndNil(FDatosGenerales_temporal);
  finally
  end;
end;

su tienes alguna sugerencia adicional me encantaria poder leerla


gertorresm
Colombia

[dtomeysoto]

Yo en lo particular haría lo siguiente:

Código Delphi [-]
procedure TFMenuPrincipal.DXConfiguracionItems0Click(Sender: TObject);
var
  FDatosGenerales_temporal: TFDatosGenerales;
begin
  FDatosGenerales_temporal := TFDatosGenerales.Create(Self);
  try
    FDatosGenerales_temporal.ShowModal;
  finally
    FDatosGenerales_temporal.Free;
  end;
end;

Aunque me gustaría más usar la variable global declarada en la Unit.