Como destruir uma classe de dentro dela mesmo
Saudações, estou criando uma classe com o objetivo de ao ser instanciada, criar um marcador de tempo, será possível criar n marcadores de tempo no form, este marcador de tempo, é composto por alguns componentes, dentre eles um botão para excluir o próprio timer. Segue trechos do código:
procedure TForm1.FormCreate(Sender: TObject);
begin
elementos := TList<TMinhaClasse>.Create;
end;
procedure TForm1.ButtonClick(Sender: TObject);
var
elemento: TMinhaClasse;
begin
elemento := TMinhaClasse.Create(parent);
elementos.add(elemento);
end;
procedure TMinhaClasse.btCloseClick(Sender: TObject);
begin
Destroy;
end;
mesmo com a codificação acima, consigo acessar os marcadores de tempo criados na lista através de elementos.items[index].
Como seria a forma certa de eu liberar este componente?
A forma que usei de armazenamento dos marcadores de tempo é eficaz?
procedure TForm1.FormCreate(Sender: TObject);
begin
elementos := TList<TMinhaClasse>.Create;
end;
procedure TForm1.ButtonClick(Sender: TObject);
var
elemento: TMinhaClasse;
begin
elemento := TMinhaClasse.Create(parent);
elementos.add(elemento);
end;
procedure TMinhaClasse.btCloseClick(Sender: TObject);
begin
Destroy;
end;
mesmo com a codificação acima, consigo acessar os marcadores de tempo criados na lista através de elementos.items[index].
Como seria a forma certa de eu liberar este componente?
A forma que usei de armazenamento dos marcadores de tempo é eficaz?
Wijloc
Curtidas 0