Ver Mensaje Individual
  #1  
Antiguo 08-11-2011
jonydread jonydread is offline
Miembro
NULL
 
Registrado: nov 2011
Posts: 157
Reputación: 15
jonydread Va por buen camino
problema con if FileExist

hola amigos tengo el sgte problema espero me ayuden
tengo este codigo
Código Delphi [-]
procedure TForm1.Button3Click(Sender: TObject);
begin
if FileExists(OpenDialog1.FileName) then if MessageDlg('Realmente desea Cerrar aplicación?', mtConfirmation, [mbYes, mbNo], 0) = mrYes then
             close;
                 else close;
end;

me he estado enredando mucho lo que pasa que quiero que se muestre solo cuando le de cerrar y tenga un archivo abierto y cuando no haya nada abierto cierre nada mas y si hay alguna forma de funcionar con el form osea al cerrar la ventana de la esquina tambien muestre este mensaje

muchas gracias exelente foro!!
Responder Con Cita