Criar TabSheet em tempo de execução
27/10/2003
0
Preciso criar tabsheets em tempo de execução, mas estou tendo problemas. Verifiquei que ele está criando os tabsheets mas não mostra.
meu codigo:
var
tab : ttabsheet;
i : integer;
begin
tabela.first;
while not tabela.eof do
begin
inc(i);
tab := ttabsheet.create(self);
tab.parent := pagecontrol1;
tab.name := ´tabsheet´ + inttostr(i);
tab.tabindex := i -1;
tab.show;
tabela.next;
end;
end;
meu codigo:
var
tab : ttabsheet;
i : integer;
begin
tabela.first;
while not tabela.eof do
begin
inc(i);
tab := ttabsheet.create(self);
tab.parent := pagecontrol1;
tab.name := ´tabsheet´ + inttostr(i);
tab.tabindex := i -1;
tab.show;
tabela.next;
end;
end;
Mutz
Curtir tópico
+ 0
Responder
Post mais votado
31/01/2014
Coloque assim:
tabsheet.pagecontrol := seupagecontrol;
tabsheet.pagecontrol := seupagecontrol;
Denis Machado
Responder
Clique aqui para fazer login e interagir na Comunidade :)