Cancelar La Accion Cerrar.

[ivanflores]

Pero en caso de que no haya nada activo, quiero que me cierre el form sin necesidad de preguntar nada.... algo asi, doy un ejemplo simple.

Código Delphi [-]
if button1.enabled=true;
then
showmessage(' Existe un proceso sin finalizar, no puede salir, cancele la operacion para poder salir.')
//aqui quiero que me cancele la accion salir//
else
close;
end;

****Esta claro que este codigo no trabaja, es solo un simple ejemplo que pongo para que se den una idea de lo que quiero hacer y me puedan hechar una mano.***

Todo esto lo quiero hacer mediante las opciones de cerrar, claro esta que la forma lleva un boton de cerrar el cual al tener activo el proceso de captura se inactiva, lo cual queda activo alt+F4 y el botton cerrar de la aplicacion (X), tengo entendido tambien que se programaria en la propiedad onclose u onclosequery. me gustaria que me hecharan una mano, Agradesco la ayuda anterior y la voy a probar haber como me queda mejor,de nuevo muchas gracias por toda la ayuda.

[[egostar]]

Empezado por ivanflores

Pero en caso de que no haya nada activo, quiero que me cierre el form sin necesidad de preguntar nada.... algo asi, doy un ejemplo simple.


Código Delphi [-]
if button1.enabled=true;
then
showmessage(' Existe un proceso sin finalizar, no puede salir, cancele la operacion para poder salir.')
//aqui quiero que me cancele la accion salir//
else
close;
end;




****Esta claro que este codigo no trabaja, es solo un simple ejemplo que pongo para que se den una idea de lo que quiero hacer y me puedan hechar una mano.***

Todo esto lo quiero hacer mediante las opciones de cerrar, claro esta que la forma lleva un boton de cerrar el cual al tener activo el proceso de captura se inactiva, lo cual queda activo alt+F4 y el botton cerrar de la aplicacion (X), tengo entendido tambien que se programaria en la propiedad onclose u onclosequery. me gustaria que me hecharan una mano, Agradesco la ayuda anterior y la voy a probar haber como me queda mejor,de nuevo muchas gracias por toda la ayuda.

Puedes usar la funcion MessageDlg para eso que deseas

Código Delphi [-]
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  if MessageDlg('¿ Realmente desea salir de Sistema ?', mtInformation,
     mbYesNOCancel, 0) = mrYes then  begin
        Action := caFree;
  end
  else Action := caNone;
end;

Salud OS

[walito]

Otra similar

Código Delphi [-]
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
    if MessageDlg('¿ Realmente desea salir de Sistema ?', mtInformation, [mbYes, mbNo], 0) = mrYes then
        CanClose := true
    else
        CanClose := false;
end;

Salutes