[delphi-br] Formulário de Cadastro Padrão

Thu, 27 Mar 2008 11:05:54 -0700 

Estou fazendo um form de cadastro padrão, para herdar todas as 
funções já prontas. (é lógico)

Nele gostaria de colocar uma rotina do tipo abrir o form no registro 
desejado:

procedure TfrmCadPadrao.abrirFormulario(aClasseFormulario: 
TFormClass; aFVormulario: TForm; ID: integer);
begin
{: Abrir o formulário }
  if not Assigned(aFormulario) then
    Application.CreateForm(aClasseFormulario, aFormulario)
  else
    aFormulario.BringToFront;

{: Chamar o registro no ID passado }
  With (DS.DataSet as TClientDataSet) do
  begin
    Close;
    FetchParams;
    Params[0].AsInteger := ID;
    Open;
  end;
end;

Alguém tem idéia de como fazer isso? Quero colocar isso no formPai e 
herdar sem ter que me preocupar com essas rotinas...

Desde já obrigado a todos

Responder a