Desenvolvendo uma To-Do List em Delphi: Um Projeto Para Iniciantes

Neste post iremos criar uma aplicação de To-Do List em Delphi, que é uma excelente maneira de começar a programar.

 

_{Lista de afazeres}

Índice

• Introdução
• Configurando o Ambiente
  • Estrutura do Projeto To-Do List
    • Explicação do Código
    • Executando o Projeto
    • Código fonte do exemplo
• Conclusão

Introdução

Criar uma aplicação de To-Do List em Delphi é uma excelente maneira de começar a programar. Este projeto é simples, mas abrange diversos conceitos fundamentais de programação e manipulação de componentes visuais. Vamos desenvolver uma To-Do List passo a passo, explicando cada parte do código para garantir que você compreenda completamente o processo. Então abra o seu Delphi e bora colocar a mão na massa.

Configurando o Ambiente

1. Abrindo o Delphi: Abra o Delphi e crie um novo projeto VCL Forms Application.
2. Configurando o Formulário Principal: Adicione componentes ao formulário:

• TEdit: Para entrada de texto, onde o usuário digitará a tarefa.
• TButton (Adicionar): Para adicionar tarefas à lista.
• TButton (Remover): Para remover a tarefa selecionada.
• TButton (Limpar): Para limpar todas as tarefas.
• TListBox: Para exibir as tarefas.

A aparência do formulário deve ser simples e funcional, com todos os componentes bem organizados.

Estrutura do Projeto To-Do List

O projeto terá a seguinte estrutura básica:

Delphi

function Fatorial(N: Integer): Integer;

begin
  if N <= 1 then
    Result := 1
  else
    Result := N * Fatorial(N - 1);
end;
  

Delphi

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    BtnAdd: TButton;
    BtnRemove: TButton;
    BtnClear: TButton;
    ListBox1: TListBox;
    procedure BtnAddClick(Sender: TObject);
    procedure BtnRemoveClick(Sender: TObject);
    procedure BtnClearClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.BtnAddClick(Sender: TObject);
begin
  if Edit1.Text <> '' then
  begin
    ListBox1.Items.Add(Edit1.Text);
    Edit1.Text := '';
    Edit1.SetFocus;
  end
  else
    ShowMessage('Digite uma tarefa antes de adicionar.');
end;

procedure TForm1.BtnRemoveClick(Sender: TObject);
begin
  if ListBox1.ItemIndex <> -1 then
    ListBox1.Items.Delete(ListBox1.ItemIndex)
  else
    ShowMessage('Selecione uma tarefa para remover.');
end;

procedure TForm1.BtnClearClick(Sender: TObject);
begin
  ListBox1.Clear;
end;

end.
  

Explicação do Código

1. Declaração dos Componentes: Na seção interface, declaramos todos os componentes do formulário, como TEdit, TButton e TListBox. Esses componentes serão usados para interação com o usuário.
2. Evento BtnAddClick: Este evento é acionado quando o botão "Adicionar" é clicado. O código verifica se o campo de texto não está vazio. Se não estiver, adiciona o texto à ListBox e limpa o campo de entrada. Se estiver vazio, exibe uma mensagem pedindo para digitar uma tarefa.

Delphi

procedure TForm1.BtnAddClick(Sender: TObject);
begin
  if Edit1.Text <> '' then
  begin
    ListBox1.Items.Add(Edit1.Text);
    Edit1.Text := '';
    Edit1.SetFocus;
  end
  else
    ShowMessage('Digite uma tarefa antes de adicionar.');
end;
  

    3. Evento BtnRemoveClick: Este evento é acionado quando o botão "Remover" é clicado. O código verifica se há uma tarefa selecionada na ListBox. Se houver, remove a tarefa; se não, exibe uma mensagem pedindo para selecionar uma tarefa.

Delphi

procedure TForm1.BtnRemoveClick(Sender: TObject);
begin
  if ListBox1.ItemIndex <> -1 then
    ListBox1.Items.Delete(ListBox1.ItemIndex)
  else
    ShowMessage('Selecione uma tarefa para remover.');
end;
  

    4. Evento BtnClearClick: Este evento é acionado quando o botão "Limpar" é clicado. O código simplesmente limpa todas as tarefas da ListBox.

Delphi

procedure TForm1.BtnClearClick(Sender: TObject);
begin
  ListBox1.Clear;
end;
  

Executando o Projeto

1. Adicionando Tarefas: Execute o programa e digite uma tarefa no campo de texto. Clique no botão "Adicionar" e veja a tarefa aparecer na ListBox.
2. Removendo Tarefas: Selecione uma tarefa na ListBox e clique no botão "Remover". A tarefa selecionada será removida.
3. Limpando Tarefas: Clique no botão "Limpar" para remover todas as tarefas da ListBox.

Veja abaixo a ilustração do projeto:

Ilustração do projeto.

Código fonte do exemplo

Você pode fazer o download do exemplo do projeto através do repositório do github:

https://github.com/Gisele-de-Melo/To-Do-List-Delphi-Iniciante

Conclusão

Este projeto simples de To-Do List em Delphi é uma ótima maneira de começar a entender a programação em Delphi. Ele abrange conceitos essenciais como manipulação de componentes visuais, eventos e controle de fluxo. Conforme você se sentir mais confortável com esses conceitos, poderá expandir a funcionalidade do aplicativo, adicionando recursos como persistência de dados, categorias de tarefas e muito mais.

A prática é essencial para se tornar proficiente em qualquer linguagem de programação. Portanto, continue experimentando, criando e aprimorando seus projetos. Boa sorte em sua jornada de aprendizado com Delphi!

Posts relacionados

Calculadora simples em Delphi

Hello, World! O clássio desenvolvido em Delphi.