[Resolvido] Como criar um TabSheet para cada registro?
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
Discussão (1)
Carregando comentários...