Hola amigos, estoy tratando de enviar un mensaje de confirmacion de cierre de programa de la siguiente manera...
Código Delphi
[-]
procedure Tform_principal.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
form_salir.showmodal;
end;
Aqui llamé a la ventana que hara la pregunta si realmente se quiere salir....
el boton aceptar
Código Delphi
[-]
procedure Tform_salir.cxButton1Click(Sender: TObject);
begin
exit;
end;
y el boton cancelar
Código Delphi
[-]
procedure Tform_salir.cxButton2Click(Sender: TObject);
begin
form_salir.close;
end;
pero resulta que el "aceptar" no hace nada...... y coloco cancelar y se cierra la ventana pero no el programa.....
Alguna idea por favor..... parece facil pero no se me ocurre...