Post: Adicionando Propriedades ao Form

Alessandro Medeiros

Compartilhar no whatsapp
Compartilhar no facebook
Compartilhar no twitter
Compartilhar no linkedin
Compartilhar no facebook

Fala ai Radizeiros e Radizeiras, tudo bem com vocês?

No post anterior falamos de herança de formulários, vimos como é simples ter vários forms seguindo  padrão implementado do formulário padrão.

Agora nesse post estaremos vendo como criar novas propriedades em seu formulário, esse post é uma introdução ao nossos próximos posts.

Vamos adicionar propriedades a formulários já existentes.

Vamos ao nosso form padrão que criamos em nosso post anterior, nele iremos fazer um contador de cliques.

É algo bem simples, mas que você possa entender como trabalhar com as propertys no Delphi.

Como já falei diversas vezes, dentro do Delphi criamos um Form e ele já cria tudo orientado a objeto.

A partir desse momento já podemos criar propertys, atributos, métodos, tudo dentro dessa nossa nova classe.

Dentro da nossa classe do formulário padrão, iremos em public criar a nossa property


type
    TFormPadrao = class(TForm)
...
    private
        FClicks: Integer;
        procedure SetClicks(const Value: Integer);
        { Private declarations }
    public
        { Public declarations }
        property Clicks : Integer read FClicks write SetClicks;
    end;
...

Observe que em nosso código acima temos uma variável privada FClicks que está encapsulada, o método SetClicks para setar os cliques, no código iremos fazer uma pequena alteração.


type
    TFormPadrao = class(TForm)
...
    private
        FClicks: Integer;
        procedure SetClicks(const Value: Integer);
        function GetClicks: Integer;
        { Private declarations }
    public
        { Public declarations }
        property Clicks : Integer read GetClicks write SetClicks;
    end;
...

A unica alteração que foi feita foi a inclusão do método GetClicks na property, para que não ter acesso diretamente a propriedade.

Agora temos uma nova variável encapsulada com as propertys, quem trabalha de fora não tem acesso direto a minha variável, vai chamar os métodos Get Set da minha property.

O que vou fazer agora?

Vou em nosso formulário padrão, e ele tem os eventos, e vamos no evento OnMouseDown, toda vez que for clicado com o mouse nós iremos setar na property SetClicks um valor onde todas as vezes que alguém clicar no mouse irá chamar essa ação.


...
procedure TFormPadrao.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Single);
begin
    SetClicks(1);
end;
...

No nosso SetClicks, ele está atribuindo o valor que ele recebe a variável FClicks, então irei alterar ele para que ao receber o valor ele possa incrementar, onde ao passar no SetCliks o valor 1 ele irá acrescentar mais um na variável FClicks.

[codel language=”delphi”]


procedure TFormPadrao.SetClicks(const Value: Integer);
begin
FClicks := FClicks + Value;
end;

[/code]

Iremos colocar um label em nosso formulário padrão.

Todas as vezes que clicar no formulários iremos dentro do método SetClicks iremos colocar que esse label receba o incremento de nosso método.


procedure TFormPadrao.SetClicks(const Value: Integer);
begin
    FClicks := FClicks + Value;
    Label2.Text := IntToStr(FClicks) + ' Cliques';
end;

Agora com nossa aplicação rodando, vamos nos formulários que herdam desse FormPadrao.

Viu uma das vantagem da orientação a objeto quando trabalhamos com herança?

Implementamos no FormPadrao e ele replicou para aqueles que herdam dele.

Todos os cliques que damos nos nossos formulários ele vai contando os cliques, simplesmente adicionamos uma property ao formulário, trabalhando com a herança do formulário padrão e isso já foi implementado para todos os forms de uma unica vez.

Essa é a vantagem de se trabalhar com POO, viu como fica fácil uma manutenção, como eu reutilizo o código facilmente, como eu consigo escalar qualquer tipo de alteração, consigo centralizar as alterações, para não fica dando Ctrl+C Ctrl+V, e depois esquecer de replicar alguma alteração para algum lugar, então trabalhar POO é só vantagem para você.

Esse post é mais um que faz parte da Certificação especialista em programação orientada a objetos.

A Certificação Especialista Orientada a Objetos dará a você a oportunidade de melhorar seu software, otimizar o seu tempo e te dar a possibilidade de atender melhor os seus clientes. Conhecer a fundo esse paradigma e utilizar todos os seus benefícios irá facilitar muito a sua vida quando houver necessidade por parte de um cliente de um update rápido ou resolver um problema.

CLIQUE AQUI PARA SABER MAIS SOBRE A CERTIFICAÇÃO ESPECIALISTA EM PROGRAMAÇÃO ORIENTADA A OBJETOS

 





Faça sua busca

CATEGORIAS

POSTS RECENTES

E caso você tem interesse de conhecer mais sobre Adicionando Propriedades ao Form, acesse o nosso portal do CLUBE DE PROGRAMADORES EM DELPHI
Você não terá só conteúdos relacionados ao Adicionando Propriedades ao Form, mas uma quantidade enorme de conteúdos que poderá lhe ajudar muito no seu dia a dia, é uma verdadeira NETFLIX para os programadores Delphi.
Gostou?
Compartilhe:
Compartilhar no whatsapp
Compartilhar no facebook
Compartilhar no twitter
Compartilhar no linkedin
Compartilhar no facebook

Embarque no foguete com milhares de devs para aprender desenvolvimento, evoluir de forma contínua e se manter relevante no mercado.

Sobre
Dúvidas
Cadastre-se em nossa lista

Para ter acesso em primeira mão, a tudo que acontece na Academia do Código, basta se cadastrar em nossa lista

Grupo Thulio Bittencourt | Academia do Código

#FaçaPartedaHistória

Copyright © 2021 – Todos os direitos reservados