Curso de C++ Builder


Un sencillo editor de texto



Opción: Ficheros | Nuevo

 

//----------------------------------------------------------

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 = "";
}
//-----------------------------------------------------------

 



Atrás