Laboratório de
Programação I
Carlos Oberdan Rolim
Ciência da Computação
Sistemas de Informação
Editor de textos simples
Objetivo
Implementar um editor de textos simples para exercitar o uso
de menus e caixas de dialogo
Aparência final
Componentes
Coloque os seguintes componentes no form
TLabel
TMemo
TOpenDialog
TSaveDialog
TMainMenu
TPopupMenu
Componentes
Propriedades a alterar
Alterar as seguintes propriedades
OpenDialog
Propriedade Filter (alterar a tabela para)
FilterName: arquivos de texto *.txt
Filter: *.txt
SaveDialog
Propriedade Filter (alterar a tabela para)
FilterName: arquivos de texto *.txt
Filter: *.txt
Main menu
Crie o menu principal da seguinte forma
Popup menu
Crie o popup menu da seguinte forma
Vincule o popup menu a Propriedade PopupMenu do form
Eventos
Coloque o seguinte código nos eventos onClick de cada uma
das opções do menu
Eventos
Sair
void __fastcall TForm1::Sair1Click(TObject *Sender)
{
//Application->Terminate();
Close();
}
Eventos
Abrir
void __fastcall TForm1::Abrir1Click(TObject *Sender)
{
if (OpenDialog1->Execute())
Memo1->Lines->LoadFromFile(OpenDialog1 -> FileName);
else
MessageBeep(0);
}
Eventos
Salvar
void __fastcall TForm1::Salvar1Click(TObject *Sender)
{
if (SaveDialog1 -> Execute())
Memo1 -> Lines -> SaveToFile(SaveDialog1 ->FileName);
else
MessageBeep(0);
}
Eventos
Novo
if (Memo1->Lines->Count > 0)
{
int userResponse = MessageDlg(
String("O documento corrente será apagado. ")
+ "Voce quer continuar ?", mtInformation,
TMsgDlgButtons() << mbYes << mbNo, 0);
if (userResponse == mrYes) {
Memo1->Clear();
}
}