Olá galera, nesta Quick Tips irei mostrar como criarmos um modelo de componentes, tanto como layout e programação.

 

Vamos ao exemplo, adicione:

                Edit

                Button

 


                                                 Figura1

 

Button1 : Implemente o código abaixo

  1. procedure TFrmPrincipal.Button1Click(Sender: TObject);
  2. begin
  3. Caption := Edit1.Text;
  4. Showmessage(Caption);
  5. end;

 

Agora iremos criar o Template,

Selecione o Edit e o Button.

Menu Component/ Create Component Template

 


Figura2

 

                Component Name : Nome do seu Template

                Palette Page : Palheta onde o mesmo ficará alocado

                Palette Icon : Icone do Template

 

Vamos a Tool Palette e podemos encontrar o nosso Template, nele teremos a implementação do botão, com isso podemos adicionar aquele famoso quarteto-fantastico ( SQLQuery / DataSetProvider / ClientDataSet / DataSorce ), e criar um template, para não ter que ficar colando os 4 toda vez que precisarmos.


                                                                


                                                               Figura3

 

Fico por aqui até a próxima Quick Tips.

 

Um abraço

 

Wesley Y

wyamazack@rwsolution.com.br