Neste artigo irei mostrar como utilizar uma interface para padronizar os formulários de um projeto. Não irei explicar para que serve as Interfaces para não tornar o artigo muito extenso, deixando isso para um próximo artigo.
Como exemplo irei utilizar um formulário de cadastro simples. Não irei incluir a manipulação de banco de dados e componentes visuais, pois será um exemplo genérico que poderá ser aplicado em qualquer forma de armazenamento de dados.
A idéia principal é fazer com que todos os formulários de cadastro de um projeto utilizem um padrão para seus métodos de manipulação do cadastro e com isso facilitar o entendimento e a manutenção dos formulários.
Inicie o Delphi (estou utilizando a versão 7 do Delphi, mas sinta-se à vontade para utilizar a versão que mais lhe agradar), crie uma nova aplicação, o delphi irá criar automaticamente um formulário para sua aplicação, salve-o com o nome de frmCadastro, sua Unit com o nome de Cadastro.pas e o projeto com o nome Interfaces.
Feito isso inclua uma nova Unit e salve-a com o nome de MinhasInterfaces.pas, ela deverá contem o seguinte código.
Unit MinhasInterfaces;
interface
implementation
end.
Agora vamos incluir na Unit a nossa interface. Após a declaração interface, insira o seguinte código:
type
ICadastros = Interface
end;
Posicione o cursor na linha em branco entre o type e o end e precione Ctrl+Shift+G para que o Delphi crie automaticamente um novo número de ID para a interface. Veja que o valor gerado não se repete, então não se preocupe caso o valor gerado esteja diferente do que aparece nesse exemplo. A Unit deverá estar da seguinte forma:
Unit MinhasInterfaces;
interface
type
ICadastros = Interface
[{35EF018D-7AC0-4D9B-9D42-DE6F508721C7}]
end;
implementation
end.
Agora podemos incluir alguns métodos em nossa interface, como podemos ver a seguir:
Unit MinhasInterfaces;
interface
type ICadastros = Interface
[{35EF018D-7AC0-4D9B-9D42-DE6F508721C7}]
procedure Incluir;
procedure Alterar;
function Deletar(Perguntar :Boolean) :Boolean;
procedure Salvar;
procedure Cancelar;
function ValidarDados :Boolean;
end;
implementation
end.
Já temos nossa interface, agora vamos implementá-la em nossa tela de cadastro.
Volte para o nosso formulário frmCadastro e visualize sua Unit, ela deve estar da seguinte forma:
Unit Cadastro;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;
type
TfrmCadastro = class(TForm)
private
{ Private declarations }
public
{ Public declarations }
end;
var
frmCadastro: TfrmCadastro;
implementation
{$R *.dfm}
end.
Agora vamos declarar a Unit da nossa interface na Unit Cadastro, vá no Uses e inclua MinhasInterfaces.
">
...
Exibição do post interrompida. Para ler conteúdo completo,
clique aqui
23/08/2007 12:50:00 PM
2007
2007
11
3
