Atenção: por essa edição ser muito antiga não há arquivo PDF para download. Os artigos dessa edição estão disponíveis somente através do formato HTML.
Crie um Editor de Texto
Aprenda a programar na melhor ferramenta do mercado através de exemplos práticos
O objetivo deste nova coluna, voltada para iniciantes na ferramenta, é demonstrar o uso dos objetos básicos do Delphi, a criação de menus e a funcionalidade das DialogBoxes, que podem ser encontradas na palheta Dialogs.
Um exemplo bem prático, que reúne todos estes conceitos, é a construção de um editor de textos - como o WordPad do Windows.
Para criarmos nosso novo Word, não precisaremos de mais do que um formulário - que será nosso próprio editor, contendo um menu com todas as opções .
Para iniciar, insira um objeto MainMenu (palheta standard) no formulário. Este objeto é chamados de não-visual, pois não é exibido quando o programa é executado.
O próximo passo é montar nossa estrutura de menus. Dê um duplo clique sobre o objeto MainMenu1, para abrir o criador de menus do Delphi.
A primeira opção de menu, em branco, já aparece selecionada. Modifique sua propriedade Name para identificá-lo futuramente. Você também deve alterar a propriedade Caption, digitando o texto que será exibido para o usuário. Preencha de acordo com a tabela abaixo:
Name = MnuArquivo (Mnu é uma abreviatura para menu)
Caption = &Arquivo
O caracter &, utilizado antes do caption 'Arquivo', server para sublinhar a letra 'A' no item de menu. Este recurso cria uma tecla de atalho, acionada através de ALT + letra sublinhada. Neste exemplo, se o usuário pressionar ALT+A, o menu Arquivo será aberto.
Após configurar as propriedades, já é possível visualizar o menu com a opção 'Arquivo' dentro de nosso formulário.
Na figura acima, você pode visualizar como é criado um menu de opções no Delphi. Para criar um menu filho de 'Arquivo', clique no menu dentro do Montador de menus do Delphi. Um submenu será automaticamente aberto.
Siga a lista abaixo e crie sete submenus para o menu 'Arquivo':
A sigla ITM, que vem na frente do nome do menu, é apenas uma abreviatura para Item de Menu (ITM). O quarto item será utilizado como um traço de divisão dentro das opções de Menu. Este serve como divisão e organização dos menus.
A estrutura completa de Menus do nosso editor deverá ser criada de acordo com a lista abaixo:
Em seguida, insira um objeto TrichEdit (palheta Win95), no formulário, e configure suas propriedades:
Name : AreaTexto
Font : Times New Roman , 12, Normal , Cor Preta
Align : alClient
Lines : (clique duas vezes e elimine o conteúdo desta propriedade)
A propriedade align, setada para alClient, fará com que o objeto RichEdit se estenda por toda a área do Formulário, independente do seu tamanho. Por exemplo, se o formulário for maximizado, o objeto RichEdit será automaticamente redimensionado.
Quando o usuário clicar com o botão inverso do mouse sobre o objeto Richedit, um menu flutuante será exibido, com algumas opções. Para criar este menu, insira um objeto TpopMenu (palheta standard) no form. Em seguida, configure a propriedade PopMenu, do objeto RichEdit1, setando como valor 'PopMenu1'.
A criação do PopMenu (Menu de Atalho), é idêntica à criação do Menu principal. Clique duas vezes sobre o objeto PopMenu, e configure-o da seguinte forma:
Na figura acima, você pode visualizar como ficará o PopMenu já configurado (em tempo de edição) .
Já que progredimos bastante no projeto, salve o seu aplicativo o mais rápido possível.
Depois de salvo, o seu projeto irá receber as primeiras linhas de código. Ao clicar sobre a opção 'Novo' do menu 'Arquivo', automaticamente será exibida a tela de código referente ao evento OnClick, que será executado quando o usuário clicar no menu.
O Item Novo criará um documento em branco. Para isto, escreva a linha de código abaixo:
procedure TForm1.ItmNovoClick(Sender: TObject);
begin
AreaTexto.Clear;
end;
Lembre-se que configuramos a propriedade Name do objeto RichEdit para AreaTexto. Isto significa que o objeto de nome AreaTexto executará o método Clear (Apagar). Caso prefira, você pode colocar um comentário ao lado da linha de código, para, no futuro, lembrar o seu significado.
procedure TForm1.ItmNovoClick(Sender: TObject);
begin
AreaTexto.clear ;
// Apagará todo o conteúdo da area de texto do editor.
end;
Para iniciar a construção dos menus 'Abrir' e 'Salvar', insira um objeto TopenDialog e um TsaveDialog, ambos da palheta Dialogs. Configure suas propriedades de acordo com a tabela abaixo:
TopenDialog
Name: OpenDialog1
Filter: *.RTF|*.RTF|*.TXT|*.TXT
TsaveDialog
Name: saveDialog1
Filter: *.RTF|*.RTF|*.TXT|*.TXT
No item de menu 'Abrir', digite a seguinte instrução:
procedure TForm1.ItmAbrirClick(Sender: TObject);
begin
if opendialog1.execute then
// se objeto OpenDiaolog for executado então
Areatexto.Lines.loadFromFile (Opendialog1.filename);
// Objeto AreaTexto na propriedade Lines através do método loadfromfile
// (carregar do arquivo) irá receber como parâmetro o documento escolhido pelo usuário
end;
Este código utiliza o comando IF para verificar se o objeto OpenDialog1 foi executado e se usuário confirmou a janela. Caso positivo, o documento escolhido será aberto na área de texto do editor.
Para o menu Salvar, temos o código abaixo:
procedure TForm1.itmSalvarClick(Sender: TObject);
begin
if SaveDialog1.execute then
// Se o objeto Save Dialog1 for executado então
AreaTexto.Lines.SaveToFile (SaveDialog1.filename);
// Objeto AreaTexto na propriedade Lines através do método SaveToFile
// (SalvaArquivo) irá receber como parâmetro um nome de documento escolhido pelo usuário.
end;
Menu Editar - Recortar:
procedure TForm1.itmCutClick(Sender: TObject);
begin
AreaTexto.CutToClipBoard;
// recorta o texto selecionado para a área de transferência
end;
Menu Editar - Copiar:
procedure TForm1.itmCopyClick(Sender: TObject);
begin
AreaTexto.CopyToClipBoard;
// copia o texto selecionado para a área de transferência
End;
Menu Editar - Colar:
procedure TForm1.itmPasteClick(Sender: TObject);
begin
AreaTexto.PasteFromClipBoard;
// Cola o texto selecionado para a área de transferência
End;
Menu Sair:
procedure TForm1.itmSairClick(Sender: TObject);
begin
close; // fechar aplicação
End;
Como exercício, implemente o código das opções do menu flutuante (popmenu). No site do ClubeDelphi (, na seção Primeiros Passos, é possível acessar a segunda parte desta matéria, onde alguns recursos mais rebuscados são inseridos. Lá também é possível baixar o aplicativo completo.
