Despues de mirame varios hilos del foro no doy con la solucion al problema, el código que uso es el siguiente en el dpr:
Código:
//Creo la ventana modal de la contraseña
FLogin := TFLogin.Create(Application);
Respuesta := FLogin.ShowModal;
if Respuesta = mrOK then
begin
Application.CreateForm(TForm1, Form1);
Application.Run;
end;
y en el boton Ok del form de la contraseña tengo esto:
Código:
procedure TFLogin.BOKClick(Sender: TObject);
begin
//comparo el nombre de usuario y la contraseña
ModalResult := mrok;
end;
procedure TFLogin.FormClose(Sender: TObject; var Action: TCloseAction);
begin
If ModalResult <> mrOk Then
close;
//ModalResult := mrAbort;
end;
El problema que tengo, es que cuando le doy al Ok (se supone que los datos son correctos y debe iniciar la aplicacion), funciona bien, pero si cierro del aspa, me salen errores, aunque cierra la aplicacion.
Como lo puedo arreglar, para que no salgan esos errores, creo que tendria que liberar o cancelar la ejecucion, pero no encuentro el procedimiento adecuado que creo que seria algo como
Application.Close;