Messagebox
Hola a todos.
El siguiente codigo se lo escribo en Delphi en el evento onClose, para un boton que cierra la aplicacion.
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if application.MessageBox('Desea Salir','Salir',mb_yesNo)=idYES then
application.Terminate;
end;
end.
Mi pregunta va por lo siguiente: si presiono el boton SI de Messagebox, cierra la aplicacion, pero lo mismo hace el boton NO. ¿Que me falta para que el boton No cierre el messagebox y se quede en la aplicacion.
Gracias por tomarnos en cuenta.
|