|
El formulario principal se llama 'Tprincipal' y el que me tira el error al abrir la segunda vez es 'Tpanttruco'.
El error que me tira es:
'Access violation at address 00000000. Read of address 00000000.'
Y el programa sigue andando después de que me sale el error. O sea, no habre el segundo formulario, se queda en el primero, pero sigue andando.
El código para llamar el segundo formulario:
procedure Tprincipal.jnuevoClick(Sender: TObject);
begin
panttruco.Show;
end;
El código para cerrar el segundo formulario:
procedure Tpanttruco.btnAbandonarClick(Sender: TObject);
begin
panttruco.Close;
end;
El evento 'OnClose' del segundo formulario:
procedure Tpanttruco.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action := caFree;
end;
|