Construção do Editor de Textos

Segunda parte

Agora dê um duplo clique no menu Sair. Abrir-se-á o Editor Properties que é o Editor de Códigos do programa. Digite:

Close();

O Código deve ficar assim:

void __fastcall TForm1::Sair1Click(TObject *Sender)
{
Close();
}

Para ativar o PopupMenu, no evento OnCreate do Form1 digite:

PopupMenu1->AutoPopup = true;
RichEdit1->PopupMenu = PopupMenu1;

O Código deve ficar assim:

void __fastcall TForm1::FormCreate(TObject *Sender)
{
        PopupMenu1 -> AutoPopup = true;
        RichEdit1 -> PopupMenu = PopupMenu1;
}

Rode o Programa (Tecla F9). Você perceberá que criou um Editor de Textos bem estranho. Digite ou delete letras e palavras.

Para fechar o programa, dê um clique com o botão direito do mouse sobre o Editor e escolha a opção Sair no menu Arquivo.

Se você seguiu os passos corretamente, e o programa fechou sem problemas, na propriedade WindowState do Form1 escolha a opção: wsMaximized, e rode novamente o programa. Ele ocupará toda a tela do Windows. Siga o mesmo procedimento para encerrar o programa. Uma outra forma de encerrar o aplicativo é pressionando simultaneamente as teclas alt + F4.