//---------------------------------------------------------- void __fastcall TMainForm::FileNewClick(TObject *Sender) { // Abre un nuevo fichero. Primero hay que verificar // que el fichero actual tiene que guardarse. if (Memo->Modified) { // Mostrar un cuadro de mensaje. int result = Application->MessageBox( "El fichero activo ha cambiado. ¿Salvar los cambios?", "!Cuidado!", MB_YESNOCANCEL); // Si se pulsa YES, guardar el archivo actual. if (result == IDYES) FileSaveClick(Sender); // Si se pulsa CANCEL, no hacer nada. if (result == IDCANCEL) return; } // Borrar el contenido de Memo, si lo hay. if (Memo->Lines->Count > 0) Memo->Clear(); // Sustituir el valor de la propiedad FileName del cuadro // de dialogo Save por espacios en blanco. Asi se sabe // que el fichero no se ha guardado aun. SaveDialog->FileName = ""; } //-----------------------------------------------------------