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
- procedure TFrmPrincipal.Button1Click(Sender: TObject);
- begin
- Caption := Edit1.Text;
- Showmessage(Caption);
- 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