[Resolvido] Como criar um TabSheet para cada registro?

[lucascolferai 0]

Olá pessoal,

 

Vamos ver se agora alguém consegue me ajudar.

 

Preciso criar dinamicamente um TabSheet (em um PageControl, claro) para cada registro de um TIBClientDataSet. No meu cadastro de fornecedores, cada fornecedor tem N contatos, e quero mostra-los (com todos os seus dados) um em cada aba. Meu estágio atual é o seguinte:

 

  // CARREGA OS CONTATOS
  // Busca os contatos
  icdConsul.close;
  icdConsul.CommandText :=
    'SELECT * FROM CONTATO '+
    'WHERE (FORCODIGO = '+dm.ibtFornecedoresFORCODIGO.AsString+') '+
    'ORDER BY CONPADRAO, CONCODIGO ';
  icdConsul.open;

  // Cria abas e frames para os dados
  icdConsul.First;
  while not icdConsul.Eof do
  begin
    fraContato1 := TfraContato.Create(TabSheet1);
    fraContato1.Parent := TabSheet1;

    icdConsul.Next;
  end;

Só que tem um problema: o nome da variável (fraContato1) não pode ser o mesmo para todos os TabSheet. Enfim, não tô tendo idéia pra resolver isso. Alguém pode me indicar algum caminho?

 

Vlw

[lucascolferai 0]

Bom, mais uma vez estou respondendo a mim mesmo. :)

 

Nesse link encontrei a resposta que procurava: http://simasware.wordpress.com/2010/01/22/tabs-dinamicas-no-delphi/

 

Obrigado aos que leram o tópico e tentaram ajudar.

 

Flw.