Fórum Nao abre Form ao criar pela Segunda Vez - Delphi #608058
10/02/2020
0
Olá, gostaria da ajuda da comunidade para solucionar este problema.
Estou criando um TabControl e um Form é inserido numa TabItem Dinâmica, ele cria o Form2 corretamente na primeira execução, mas na segunda vez não, ele apenas cria o TabIten Dinamico sem o Form.
Este é o Botao de exclusão/fechamento da Tab criada dinamicamente
Obrigado desde já!
Estou criando um TabControl e um Form é inserido numa TabItem Dinâmica, ele cria o Form2 corretamente na primeira execução, mas na segunda vez não, ele apenas cria o TabIten Dinamico sem o Form.
procedure TForm1.criarAba(nomeAba: String);
var
i : Integer;
begin
for i := 0 to TabControl1.TabCount - 1 do
begin
showmessage(IntToStr(TabControl1.TabCount));
if(TabControl1.Tabs[i].Name = nomeAba) then
begin
showmessage('ok');
TabControl1.TabIndex := i;
exit;
end
else
begin
showmessage('ok2');
end;
end;
TabControl1.Add.Name := nomeAba;
TabControl1.TabIndex := TabControl1.TabCount - 1;
end;Este é o Botao de exclusão/fechamento da Tab criada dinamicamente
procedure TForm1.Button3Click(Sender: TObject);
var
tab: TTabItem;
begin
showmessage(IntToStr(TabControl1.Tabs[1].ControlsCount));
tab := TabControl1.Tabs[1];
if Assigned(tab) then
begin
tab.Parent := nil;
tab.Controls.Clear;
end;
FreeAndNil(tab);
end;Obrigado desde já!
Daniel
Curtir tópico
+ 0
Responder
Clique aqui para fazer login e interagir na Comunidade :)