Criar form e passar nome como parâmetro

Delphi

06/07/2004

No codigo abaixo faço a chamada à um form para cadastros de cartórios. Terei também outras tabelas que terei que chamar como fornecedor, centro de custo, etc.

Queria poder fazer uma função onde eu passasse o nome do formulário e a tabela e fosse criado o form de acordo com minha escolha.

O nome da tabela eu já consegui, se não me engano utilizei TDataset ou TTable e está ok, mas e para o form ?

procedure TfrmFaf.Label26Click(Sender: TObject);
begin
  frmCartorio:=TfrmCartorio.Create(self);
  frmCartorio.ShowModal;
  frmCartorio.free;
  tbCartorio.Close;
  tbCartorio.Open;
end;



Walace

Walace

Curtidas 0

Respostas

Rômulo Barros

Rômulo Barros

06/07/2004

Já respondi algo parecido: :arrow: http://delphiforum.icft.com.br/forum/viewtopic.php?t=43947&highlight=chamartela

Pesquise antes de postar...


GOSTEI 0
Crash

Crash

06/07/2004

procedure CriaForm(var Form: TForm; AOwner: TComponent; 
  Classe: TCustomFormClass);
begin
  //implementação
end;


qualquer coisa me mande um email.


GOSTEI 0
Walace

Walace

06/07/2004

[quote:9cfa15bdcc=´Undeclared Identifier´]...
Pesquise antes de postar...[/quote:9cfa15bdcc]

Já pesquisei e não achei, se tivesse achado não tinha perguntado, mas obrigado.


GOSTEI 0
Rômulo Barros

Rômulo Barros

06/07/2004

[quote:0d5a358e08=´Undeclared Identifier´]... Pesquise antes de postar...


Já pesquisei e não achei, se tivesse achado não tinha perguntado, mas obrigado.[/quote:0d5a358e08]

http://delphiforum.icft.com.br/forum/viewtopic.php?t=43947&highlight=chamartela


GOSTEI 0
Walace

Walace

06/07/2004

Ae Undeclared Identifier, funcionou perfeitamente...

Valeu mesmo !


GOSTEI 0
POSTAR