Código Delphi [-] procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean); begin with Application do CanClose := MessageBox('¿Desea cerrar?', PChar(Title), MB_ICONQUESTION + MB_YESNO) = IDYES; end;
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean); begin with Application do CanClose := MessageBox('¿Desea cerrar?', PChar(Title), MB_ICONQUESTION + MB_YESNO) = IDYES; end;