Criar form e passar nome como parâmetro
06/07/2004
0
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
Posts
06/07/2004
Rômulo Barros
Pesquise antes de postar...
06/07/2004
Crash
procedure CriaForm(var Form: TForm; AOwner: TComponent; Classe: TCustomFormClass); begin //implementação end;
qualquer coisa me mande um email.
07/07/2004
Walace
Pesquise antes de postar...[/quote:9cfa15bdcc]
Já pesquisei e não achei, se tivesse achado não tinha perguntado, mas obrigado.
07/07/2004
Rômulo Barros
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
07/07/2004
Walace
Valeu mesmo !
Clique aqui para fazer login e interagir na Comunidade :)