Como evitar que el usuario cierre la form!

[Waldo]

Hola.

Tengo el siguiente problema.

Necesito evitar que el usuario cierre la form con la X situada en la esquina superior derecha, cuando se este realizando alguna operación llamese alta o algun otro proceso. Que debo hacer para que el usuario no la cierre, almenos que no se realice ninguna operacion sobre la form!!!
De antemano Gracias :)

[roman]

Usa el evento OnCloseQuery y, dependiendo de si se está llevando a cabo o no una operación pones el parámetro CanClose en false o true.

// Saludos

[madman]

Para ampliar la respuesta de roman.

En tu aplicación coloca en el OnClose y OnCloseQuery de la Form:



procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action:=caNone;
end;

ó

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
CanClose:=False;
end;


Cualquiera funciona para que no lo cierren con ALT+F4. Puedes usar uno de ellos o los dos.

http://www.clubdelphi.com/foros/showthread.php?s=&threadid=2560&highlight=Onclose

Otros temas que te pueden ayudar.

http://www.clubdelphi.com/foros/showthread.php?s=&threadid=2184

http://www.clubdelphi.com/foros/showthread.php?s=&threadid=2003