Construção do Editor de Textos

Quinta parte

Coloque um componente SaveDialog no projeto, abra o Menu Designer e dê um duplo clique em Salvar. No Editor Properties, entre as chaves { e } que se abrirem, digite:

    if (SaveDialog1 -> Execute())
        RichEdit1 -> Lines -> SaveToFile(SaveDialog1 -> FileName);
    else
        MessageBeep(0);

Em SaveDialog, temos funcionando de forma semelhante ao funcionamento em OpenDialog, as propriedades InitialDir, FileName e Filter, com a diferença de que, no presente caso, estamos cuidando de salvar arquivos, e não abri-los.

Como experiência, no Filter Editor digite:

e escolha um diretório inicial para salvar os arquivos.