Delphi - Criando TFrame por Código

Delphi

18/09/2013

Olá pessoal, beleza?

Tenho uma tela aonde eu crio/deleto frames a todo o momento e essa tela depois de um tempo acaba travando o sistema.

Gostaria de saber se alguém ja teve alguma experiência em relação a criação/destruição de TFrames e possa me ajudar.


Para criar:
        xArvoreTarefa := TfraArvoreTarefa.create(self);
        xArvoreTarefa.Parent := xScrollControle;
        xArvoreTarefa.align := alTop;
        xArvoreTarefa.name := '_'+CreateUniqueID()


Para Deletar:
   vComponent := FindComponent('NOME DO FRAME');
    if vComponent<>NIL then
    begin
        TfraArvoreTarefa(vComponent).xUnicoArvoreAtividade := nil;
        FreeandNil(TfraArvoreTarefa(vComponent).xUnicoArvoreAtividade);
        FreeandNil(TfraArvoreTarefa(vComponent));         
    end;
  vComponent := nil;
   Application.ProcessMessages;
Bruno Galli

Bruno Galli

Curtidas 0
POSTAR