NUNCA MAIS PASSE RAIVA POR NÃO CONSEGUIR RESOLVER UM PROBLEMA COM O EXCEL - GARANTIDO!

UNIVERSIDADE DO VBA - Domine o VBA no Excel Criando Sistemas Completos - Passo a Passo - CLIQUE AQUI

Você está em: PrincipalArtigosLivrodelphibas › Capítulo 4 : 02
Quer receber novidades e e-books gratuitos?
« Anterior Δ Página principal ¤ Índice Próxima »
Delphi Básico
Autor: Rodrigo Costa e Silvio Ferreira
Lição 23 de 29 - Criando a funcionalidade do Menu

Dê um clique duplo no MainMenu, selecione o item Novo e vá até o evento OnClick, pois a ação será executada quando o usuário clicar no menu. Digite o seguinte código que irá limpar o memo para a inserção de um novo texto:

  memo1.Clear;

No evento OnClick do menu Abrir, digite o seguinte código:

  opendialog1.Execute;
  memo1.Lines.LoadFromFile(opendialog1.FileName);
  memo1.SetFocus;
  statusbar1.Panels[0].Text:='Arquivo Aberto';

O objeto OpenDialog é o responsável por abrir a tela onde podemos escolher o arquivo a ser aberto. O código acima desta fazendo o seguinte: execute o objeto OpenDialog, carregue o arquivo selecionado pelo OpenDialog para o objeto Memo, coloque o cursor no Memo e exiba a mensagem “Abrindo arquivo” no StatusBar (lembre-se de criar um panel no mesmo como fizemos na calculadora).

Para o menu Salvar, digite o seguinte código em seu evento Onclick:


Código do evento OnClick do menu Salvar

Neste código criamos uma variável chamada “nome_arquivo” para receber o nome do arquivo e uma variável chamada “i” para nos dizer se existe algum caractere “.” No nome do arquivo, pois se existir, suposmos que o usuário já especificou a extensão “.txt”.

Se o “i” for igual a zero significa que não foi achado o caractere “.” no nome do arquivo e então acrescentamos a extensão “.txt”. Utilizamos o método SaveToFile para armazenar o conteúdo do Memo em um arquivo texto simples.

No menu Editar, selecione o item Copiar e no evento OnClick digite o código:

memo1.CopyToClipboard;

O método CopyToClipboard copia tudo o que estiver no Memo para a área de transferência.

Selecione o menu Recortar e digite o código também no evento OnClick:

memo1.CutToClipboard;

O método CutToClipboard funciona da mesma maneira que a função anterior, só que recorta ao invés de copiar.

Selecione o Menu Colar e aplique o código abaixo no evento OnClick:

  memo1.PasteFromClipboard;

O método PasteFromClipboard cola o que estiver na área de transferência.

No menu Formatar, selecione o item Fonte e vá até o evento OnClick. Digite o código abaixo:

  fontdialog1.Execute;
  memo1.Font:=fontdialog1.Font;

Este código executa o objeto FontDialog e aplica ao Memo a fonte que foi definida pelo usuário.

Agora vamos até o menu Fundo > Azul e aplique o código abaixo ao evento Onclick:

  memo1.Color:=clBlue;

Estamos dizendo que o Memo na propriedade Color receberá a cor clBlue (Azul). Faça o mesmo para as outras cores deste submenu com base nos dados a seguir: Vermelho = clRed, Branco = clWhite, Amarelo = clYellow e Verde = clGreen.
Na opção Outra, vamos chamar o objeto ColorDialog que disponibiliza todas as cores disponíveis. Para isso, digite o código abaixo no evento OnClick:

  colorDialog1.Execute;
  memo1.Color:=colordialog1.Color;

« Anterior Δ Página principal ¤ Índice Próxima »

* Você pode baixar (fazer download) do conteúdo completo deste curso, em formato PDF, com 179 páginas, comprando o seguinte e-book:

DELPHI BÁSICO

LIVROS INDICADOS DE DELPHI:

Gostou deste artigo?

Quer receber novidades e e-books gratuitos?

Cursos Online

  • Banco de Dados
  • Carreira
  • Criação/Web
  • Excel/Projetos
  • Formação
  • + Todas as categorias
  • Contato: Telefone: (51) 3717-3796 | E-mail: webmaster@juliobattisti.com.br | Whatsapp: (51) 99627-3434

    Júlio Battisti Livros e Cursos Ltda | CNPJ: 08.916.484/0001-25 | Rua Vereador Ivo Cláudio Weigel, 537 - Universitário, Santa Cruz do Sul/RS, CEP: 96816-208

    Todos os direitos reservados, Júlio Battisti 2001-2019 ®

    [LIVRO]: MACROS E PROGRAMAÇÃO VBA NO EXCEL 2010 - PASSO-A-PASSO

    APRENDA COM JULIO BATTISTI - 1124 PÁGINAS: CLIQUE AQUI