Hola a todos el código que me da dolores de cabeza hoy es el siguiente:
Código Delphi
[-]
procedure TFMenuPrincipal.DXConfiguracionItems0Click(Sender: TObject);
Var FDatosGenerales_local : TFDatosGenerales;
begin
if FDatosGenerales_local = nil then
try
Application.CreateForm(TFDatosGenerales,FDatosGenerales_local);
FDatosGenerales_local.ShowModal;
FreeAndNil(FDatosGenerales_local);
Finally
End;
end;
bien el tema es el siguiente en teoria pretendo crear un instancia de la clases TFDatosGenerales que es un formulario como tal, ahora cuando se ejecuta la primera linea salta al final y código y no hace nada.
ahora si cambio en el código y queda así
Código Delphi
[-]
procedure TFMenuPrincipal.DXConfiguracionItems0Click(Sender: TObject);
Var FDatosGenerales_local : TFDatosGenerales;
begin
if FDatosGenerales = nil then
try
Application.CreateForm(TFDatosGenerales,FDatosGenerales_local);
FDatosGenerales_local.ShowModal;
FreeAndNil(FDatosGenerales_local);
Finally
End;
end;
Funciona bien, luego pense que el formulario se estaba autocreando, lo cual descarte al ver la opciones del proyecto.
Entonces la pregunta es que estoy haciendo mal.
gertorresm
Colombia