Ver Mensaje Individual
  #2  
Antiguo 08-11-2011
Avatar de duilioisola
[duilioisola] duilioisola is offline
Miembro Premium
 
Registrado: ago 2007
Ubicación: Barcelona, España
Posts: 1.806
Reputación: 22
duilioisola Es un diamante en brutoduilioisola Es un diamante en brutoduilioisola Es un diamante en bruto
El título dice que tienes problemas con FileExists... no parece según tu descripción de tu mensaje.

No entiendo bien cuando se debe cerrar la aplicación:
Cita:
quiero que se muestre solo cuando le de cerrar
¿Qué es lo que quieres que se muestre?
Cita:
cuando le de cerrar y tenga un archivo abierto
¿Qué archivo? ¿Qué tipo de archivo? ¿No sabes como saber si has abierto un archivo?

Supongo que tienes que utilizar el evento del Form OnClose y OnCloseQuery. Ponte sobre ellos y presiona F1 para aprender como funcionan.
De un ejemplo del Delphi 6
Código Delphi [-]
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  if MessageDlg('Close the form?', mtConfirmation, [mbOk, mbCancel], 0) = mrCancel then
     CanClose := False;
end;

En tu caso debería ser algo así:
Código Delphi [-]
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  if (ArchivoAbierto) then
  begin
     if MessageDlg('Close the form?', mtConfirmation, [mbOk, mbCancel], 0) = mrCancel then
        CanClose := False;
  end 
  else
     CanClose := True;
end;
Responder Con Cita