Violación de Dirección Access violation at adress

[Manuel]

mzell, voy a revisar la configuración regional a ver que pasa, más precisamente el error se produce cuando cargo una forma de esta manera:

Código Delphi [-]
try
        Screen.Cursor := crHourGlass;
        Fasistenciaanual:= TFasistenciaanual.create(Self);
    finally
        Screen.Cursor := crDefault;
    end;
        Fasistenciaanual.Showmodal;
        Fasistenciaanual.Free;

Ahora como digo solo se produce el error en algunos equipos y no siempre.

[mzell]

Hola Manuel.
Porque no pruebas de esta forma:

  try
    Screen.Cursor := crHourGlass;
    Fasistenciaanual := TFasistenciaanual.Create(self);
    Fasistenciaanual.ShowModal;
  finally
    screen.Cursor := crDefault;
  end;

[[AzidRain]]

Creo que el try está mal ubicado:

Código Delphi [-]
Screen.Cursor   := crHourGlass;
Fasistenciaanual:= TFasistenciaanual.create( nil );
Screen.Cursor   := crDefault;
try 
    
  Fasistenciaanual.Showmodal;    
finally
  Screen.Cursor := crDefault;
  Fasistenciaanual.Free;
 end;

Sería bueno si nos indicas que pusiste en el OnCreate u OnShow de FAsistenciaAnual

[Manuel]

Empezado por AzidRain

Creo que el try está mal ubicado:

Código Delphi [-]
Screen.Cursor   := crHourGlass;
Fasistenciaanual:= TFasistenciaanual.create( nil );
Screen.Cursor   := crDefault;
try 
    
  Fasistenciaanual.Showmodal;    
finally
  Screen.Cursor := crDefault;
  Fasistenciaanual.Free;
 end;

Sería bueno si nos indicas que pusiste en el OnCreate u OnShow de FAsistenciaAnual

Todo parte de una forma principal que tiene un menú, y cargo las demas formas a medida que el usuario selecciona las opciones, ejemplo:

Código Delphi [-]
procedure TFMPrincipal.Inasistencia2Click(Sender: TObject);
begin
    try
        Screen.Cursor := crHourGlass;
        Fasistenciaanual:= TFasistenciaanual.create(Self);
    finally
        Screen.Cursor := crDefault;
    end;
        Fasistenciaanual.Showmodal;
        Fasistenciaanual.Free;
end;

[[egostar]]

Empezado por Manuel

Todo parte de una forma principal que tiene un menú, y cargo las demas formas a medida que el usuario selecciona las opciones, ejemplo:

Código Delphi [-]
procedure TFMPrincipal.Inasistencia2Click(Sender: TObject);
begin
    try
        Screen.Cursor := crHourGlass;
        Fasistenciaanual:= TFasistenciaanual.create(Self);
    finally
        Screen.Cursor := crDefault;
    end;
        Fasistenciaanual.Showmodal;
        Fasistenciaanual.Free;
end;

Coincido con AzidRain, lo que estas haciendo no me parece correcto, imaginate que pasa si por cualquier circunstancia no se puede crear la forma TFasistenciaanual, de todas todas la tratas de abrir, eso me parece un gran vacío.

Salud OS