Suponhamos que estamos criando uma aplicação onde existem vários formulários com características e comportamento semelhantes. Um formulário (form) é uma classe, portanto suas características e comportamento podem ser herdados por outros formulários. Só precisamos criar um formulário e depois criar os outros a partir deste usando herança. Crie então o formulário que será o pai incluindo todos os componentes e métodos necessários. Depois vamos criar um novo formulário filho. Selecione no menu, File | New | Other... e clique na aba que tem o nome do seu projeto. Nessa aba aparecem todos os formulários que foram criados anteriormente na sua aplicação. Selecione aquele do qual você deseja herdar e pressione o botão OK. Um novo formulário é criado com tudo que o formulário pai tem. Importante notar que todo código escrito na unidade (unit) do formulário pai não aparece na unidade do formulário filho e você não pode alterar ou excluir qualquer objeto que tenha sido herdado. Agora você pode inserir novos objetos e métodos no formuláio filho. Note também que todo método de evento que você inclui no formulário filho apresenta uma nova palavra reservada, inherited:
procedure TfrmFilho.btnSairClick(Sender: TObject);
begin
inherited;
end;
Se você observar o arquivo de definição do formulário verá que, também, essa palavra aparece em vez da declaração object:
inherited frmFilho: TfrmFilho
Left = 222
Top = 139
Caption = 'frmFilho'
PixelsPerInch = 96
TextHeight = 13
Para ver o arquivo de definição de formulário clique com o botão direito do mouse e selecione View as text.
0 Comentários