Evitar cerrar una ventana
 

Hola, se que es muy facil pero ahora mismo no lo recuerdo.

¿Como hago para que cuando cierre una ventana me pregunte si estoy seguro y si le digo que no abortar esa salida?

Código Delphi [-]
if MessageDlg('Se va a cerrar la ventana ¿Quieres continuar?', mtConfirmation, [mbYes, mbNo], 0)=mrNo then
  (¿Que debo poner aqui?);

Hola,

Usa el evento de los formularios "OnCloseQuery" y su parámetro "CanClose".

Tienes 2 opciones ...
 

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var
i: integer;
begin
if MessageDlg('Se va a cerrar la ventana ¿Quieres continuar?', mtConfirmation, [mbYes, mbNo], 0)=mrNo then
Abort;
end;


procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
if MessageDlg('Se va a cerrar la ventana ¿Quieres continuar?', mtConfirmation, [mbYes, mbNo], 0)=mrNo then
CanClose := false;
end;

Muchas gracias, esto a sido rapido.

Y Como tendía que hacerse en Android?
 

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var
i: integer;
begin
if MessageDlg('Se va a cerrar la ventana ¿Quieres continuar?', mtConfirmation, [mbYes, mbNo], 0)=mrNo then
Abort;
end;


procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
if MessageDlg('Se va a cerrar la ventana ¿Quieres continuar?', mtConfirmation, [mbYes, mbNo], 0)=mrNo then
CanClose := false;
end;

Esto no funciona en android.