Criando componente em tempo de execução.

[Anderson Nunes 0]

Pessoal, bom dia. Estou usando o codigo abaixo para inserir em um tabcontrol um frame com alguns componetes.

 

var

frame: tframe;

begin

frame := TFRMusica.Create(nil);

frame.Parent := TabSheet1;

frame.Visible := True;

end;

 

Esta tudo certo, eu consigo inserir o conteudo do frame no tabsheet do tabcontrol, mas acontece que o frame criado mantem a mesma instancia para todas as tasheets, ou seja, quando altero o texto de uma delas o texto das outras tambem são alterados. Eu queria que fossem todas imdepentendes, ou seja, uma não intereferisse na outra.

 

Eu sei que é simples mas não estou conseguindo.

 

Valeu.

[Ace Stryker™ 0]

Tente isto:

var
frame: tframe;
begin
frame := TFRMusica.Create(TabSheet1);
frame.Visible := True;
end;