Fazendo e Utilizando Pacotes (Delphi)

Introdução

Pacotes são utilizados para modularização e distribuição de objetos. São mais fáceis de ser implementados, já que utilizam a codificação padrão da linguagem Delphi, logo são DLLs nativas.

Oferecem como vantagem redução do tamanho do executável, distribuição do código, facilidade de manutenção, dentre outras.

Exemplo

Primeiro vamos criar o projeto que será utilizado pelo pacote:

Crie uma nova aplicação, adicionando um label (Nome), um edit e um botão (Confirmar), salve a aplicação com o nome de "Unit_Tpkt.pas" e "Prj_Tpkt.dpr" (o nome do Form continua como padrão), feito isso compile e feche a aplicação.
* (Note que nosso programa não possui uma finalidade, estamos apenas
demonstrando a criação de um pacote)

Agora vamos criar o pacote com base no programa criado anteriormente:

Navegue até "File -> New -> Other -> e na aba New escolha Package, na janela que se abriu clique no botão "add", navegue até a pasta onde foi salvo o programa que criamos e selecione "Unit_Tpkt.pas", salve o pacote com o nome de "Package_Tpkt.dpk", clique em compilar, se ocorrer algum erro confirme, após a compilação procure um arquivo chamado "Package_Tpkt.dcp"

(\arquivos de programas\borland\delphi6\bin ou \arquivos de
programas\borland\delphi7\Projects\Bpl) e coloque na pasta onde estão os arquivos fontes do pacote.

Utilizando o pacote:

Crie um nova aplicação e insira um botão no formulário, feito isso, navegue até Project -> Options, na janela que se abrir escolha a aba Packages, em runtime packages clique no botão "add" e selecione o arquivo "Package_Tpkt.dcp", feito isso adicione o seguinte código:-abaixo de implementation escreva:

uses Unit_Tpkt;-no evento onclick do botão coloque o seguinte código:
Form1:= Tform1.create(application);
try
Form1.showmodal;
finally
freeandnil(Form1);
end;
* (Perceba que no código acima estamos chamando o "Form1", logo, o formulário do programa
atual deve possuir outro nome)

Finalizando

No exemplo acima utilizamos pacotes de forma estática, e podemos ter uma idéia da utilidade em se implementar pacotes, tornando nossas aplicações mais limpas e uniformes.
Um exemplo sobre pacotes pode ser baixado aqui.

Desabilitar POST do ENTER ASP .NET

Caso não seja necessário uma atualização de página a cada vez que o usuário pressionar a tecla “ ENTER ” podemos codificar uma pequena função em javascript anulando esse comportamento, segue o código: < script language ="javascript"> function desabilitaPostDoEnter(e) { var key; if (window.event) key = window.event.keyCode; //IE else key = e.which; //firefox if (key == 13) return false ; else return true ; } </ script > Agora nos objetos que se deseja c...

Lista de políticos com ficha suja

ATUALIZAÇÃO (08/03/2012 ano de eleição) Representantes de duas pessoas da lista (Eliseu Padilha e Alex Canziani) entraram em contato e pediram que esses fossem removidos, alegando que não houve condenação. É justo essa requisição, porém vale lembrar que escândalos nacionalmente reconhecidos de corrupção não deram em nada, por isso o que realmente conta nesse ano de eleição é uma pesquisa minuciosa sobre os candidatos escolhidos, eu particularmente, por não estar nem um pouco satisfeito, não irei votar em ninguém que já tenha sido eleito. Estou voltando a postar por um motivo nobre, meu tempo continua apertado mas esse post é rápido, na verdade nem meu ele é (visitem o espaço de nosso amigo Lord ), estou apenas repassando essa valiosa informação. Teremos eleição esse ano, e é importante não repetirmos erros passados, vamos ficar atentos em relação a esses nomes e exclui-los de vez do cenário politico nacional. Façamos nossa parte, publicando em nossos blog...

Limpando objetos dinamicamente (Delphi)

Muitas vezes nos deparamos com situações onde devemos remover o conteúdo de determinados objetos, como por exemplo Edits ou mesmo Labels e dependendo da complexidade da tela setar manualmente cada campo pode ser trabalhoso.Sendo assim mostraremos hoje como montar um esquema automático e genérico para esse caso: procedure TForm1.Button1Click(Sender: TObject); procedure LimparEdits(AControl: TComponent); var vLoop: Integer; begin { ComponentCount retorna a qtde de componentes que o parent é o AControl, ou seja, somente os componentes que estão ligados a ele } for vLoop := 0 to AControl.ComponentCount-1 do begin ...

PROGRAMERO

Pesquisar este blog