Fórum destruir objeto #329055

11/09/2006

0

Delphi

bom dia!
estou criando objetos, em tempo de execução, mas não estou conseguindo destrui-los, so consigo destruir, quando o form e fechado gostaria de destrui-los ?

constructor TRadioList.Create(AOwner: TComponent;CaptionList: TStringList);
begin
with TRadioGroup.Create(AOwner) do begin
Parent := AOwner as TWinControl;
end;
end;


destructor TRadioList.Destroy;
begin
inherited Destroy;
end;


Airto

Airto

Responder

Posts

11/09/2006

Marco Salles 

bom dia! 
estou criando objetos, em tempo de execução, mas não estou conseguindo destrui-los, so consigo destruir, quando o form e fechado gostaria de destrui-los ?


acho que é porque o proprietário do objeto é a propria aplicação...
sempre que voce criar um componente ou um formulário que terá seu
tempo de vida definido , use Nil como Proprietário.. Isto diz ao delphi , que será voce (desenvolvedor) o responsável por liberar a memoria ocupada pelos objetos criados

constructor TRadioList.Create(AOwner: TComponent;CaptionList: TStringList); begin with TRadioGroup.Create([b:6d7d062d3d]nil[/b:6d7d062d3d]) do begin Parent := AOwner as TWinControl; end; end;



Responder

Gostei + 0

11/09/2006

Rodc

Acho que seu código deveria ser assim:
private
  FRadioGroup: TRadioGroup;
....

constructor TRadioList.Create(AOwner: TComponent;CaptionList: TStringList); 
begin 
  FRadioGroup.Create(Self);
  with FRadioGroup do 
  begin 
    Parent := Self; 
  end; 
end; 


destructor TRadioList.Destroy; 
begin 
  FreeAndNil(FRadioGroup);
  inherited Destroy; 
end;



Responder

Gostei + 0

11/09/2006

Marco Salles

sempre que voce criar um componente ou um formulário que terá seu tempo de vida definido , use [b:d356b217fd]Nil[/b:d356b217fd] como Proprietário.. Isto diz ao delphi , que será voce (desenvolvedor) o responsável por liberar a memoria ocupada pelos objetos criados


isto é ponto.....


  Parent := Self;


esta corereto...Pois indica o que o componente criado estara contido visualmente no Formulário


Responder

Gostei + 0

11/09/2006

Airto

ok!, como e possivel, apos o objeto criado, eu destruir e cria-lo novamente sem fechar o form?


Responder

Gostei + 0

11/09/2006

Massuda

Isso é perfeitamente válido...
procedure TSeuForm.AlgumBotaoClick(Sender: TObject);
begin
  // destrói e...
  FreeAndNil(FRadioGroup); 

  // ...cria de novo
  FRadioGroup.Create(Self); 
  with FRadioGroup do begin 
    Parent := Self; 
    ...
  end; 
  ...
end;



Responder

Gostei + 0

11/09/2006

Marco Salles

Isso é perfeitamente válido...Código: procedure TSeuForm.AlgumBotaoClick(Sender: TObject); begin // destrói e... FreeAndNil(FRadioGroup); // ...cria de novo FRadioGroup.Create(Self); with FRadioGroup do begin Parent := Self; ... end; ... end;


[b:2288933852]claro[/b:2288933852] , desde que seje do formulário a responsabilidade de destruir o Objeto.. mas não parece ser o caso.. O tempo de vida do objeto não esta relacionado ao tempo de vida do formulário <Pelo menos é o que parece>..


Responder

Gostei + 0

11/09/2006

Airto

isso mesmo, o tempo de vida do objeto, nao depende do formulario, ele podera ser criado e destruido, sem fechar o formulario?
ainda nao consegui entender o funcionamento para destruir o objeto, sem fechar o formulario?


obrigado


Responder

Gostei + 0

11/09/2006

Marco Salles

ainda nao consegui entender o funcionamento para destruir o objeto, sem fechar o formulario?

eu acho que talves , voce não tenha entendido , como criar o objeto

Veja , voce reclamou que não estava conseguindo destruir o formulário

Eu diisse que era porque voce estava usando como proprietário do Objeto a Applicação.. E isto no seu caso não estava certo

Depois apareceu um Self como proprietario.. Apesar disso não estar errado , pelo que eu entendi no seu caso tab não serve

Então , voce deve criar o seu objeto passando Nil como proprietário

Feito esta etapa , voce pode destruir o bojeto , recria-lo , destrui-lo novamente etcc... Qual a sua dúvida


Responder

Gostei + 0

11/09/2006

Rodc

Pelo que eu entendi você está fazendo um componente, certo? E dentro do componente você quer fazer aparecer outro componente, certo? É por isto que o Owner tem de ser Self (ou seja, o reponsável por ele é componente principal). Não entendi o que tem a ver formulário (TForm) com destruir o seu subcomponente. :roll:


Responder

Gostei + 0

11/09/2006

Airto

o que acontece e o seguinte:
Estou criando varios radiogroup, dentro de um scroolbox! da mesma forma que estou criando, gostaria de destrui-los, sem precisar fechar o form ?


TRadioList = class
procedure TOnClick(Sender: TObject);
private
public
constructor Create(AOwner : TComponent;CaptionList: TStringList);
destructor Destroy; override;


end;

var

RadioList : TRadioList;

constructor TRadioList.Create(AOwner: TComponent;CaptionList: TStringList);
begin

with TRadioGroup.Create(AOwner) do begin
Parent := AOwner as TWinControl;
Left := 150;
Font.Style:=[];
Font.Size := 8;
Name := xxx.. tag := tag;
Height := 35;
Columns := 3;
Width := 417;
Items.Add(´´);
Items.Add(´´);
Items.Add(´´);
OnClick:=TOnClick;

end;


procedure TRadioList.TOnClick(Sender: TObject);
begin

showmessage(´ok´),
end;

end;


destructor TRadioList.Destroy;
begin
inherited Destroy;
end;



RadioList := TRadioList.Create(Scr_Monitoramento,Lista_Rad);


Responder

Gostei + 0

11/09/2006

Rodc

Isto não é um componenente então, certo? Eu aconselho você afazer isto em um componente, mas blz...

Duas coisas: De que você está herdando a classe TRadioList? Outra coisa AOwner é o formulário Scr_Monitoramento, quando você passa AOwner nos parâmetros do Create você está dizendo que o responsável pela destruição do componente é o AOwner, ou seja, Scr_Monitoramento. Parent é onde o componente será exibido, no caso ele será exibido dentro do form Scr_Monitoramento. Eu imagino que você esteja querendo exibi-lo dentro de um ScrollBox.


Responder

Gostei + 0

11/09/2006

Rodc

Não entendi direito o que você quer fazer, mas tenta o código abaixo para ver se funciona...
TRadioList = class(TScrollBox) 
  procedure TOnClick(Sender: TObject); 
  private 
    Opcoes: array[0..10] of TRadioGroup;
  public 
    constructor Create(AOwner : TComponent; CaptionList: TStringList);
    destructor Destroy; override; 
end; 

var 

RadioList : TRadioList; 

constructor TRadioList.Create(AOwner: TComponent; CaptionList: TStringList); 
var x:integer;
begin 
  inherited Create(AOwner); // Chama o create do TScrollBox

  for x:=0 to CaptionList.Items.Count do
  begin 
    Opcoes[x] := TRadioGroup(Self); // o responsável por liberar a memória é o próprio TRadioList
    with Opcoes[x] do 
    begin 
      Parent := Self; // Ele será exibido dentro do TScrollBox
      Left := 50; 
      Font.Style:=[]; 
      Font.Size := 8; 
      Height := 35; 
      Top := 35 * x + 2; // Coloca um embaixo do outro
      Columns := 3; 
      Width := 417; 
      Items.Add(´´); 
      Items.Add(´´); 
      Items.Add(´´); 
      OnClick:=TOnClick;   
    end;
  end;
end; 

procedure TRadioList.TOnClick(Sender: TObject); 
begin 
  showmessage(´ok´), 
end; 

destructor TRadioList.Destroy; 
int x:integer;
begin 
  // Destroi os componentes criados
  for x:=0 to 10 do
    if Assigned(Opcoes[x]) then
      FreeAndNil(Opcoes[x])

  inherited Destroy; 
end;


Chama assim:
RadioList := TRadioList.Create(Scr_Monitoramento,Lista_Rad);


Responder

Gostei + 0

12/09/2006

Airto

esta ocorrendo esse erro : um controle não pode ter próprio como seu pai

Parent := Self;


Responder

Gostei + 0

12/09/2006

Rodc

esta ocorrendo esse erro : um controle não pode ter próprio como seu pai Parent := Self;

Tenta assim:
Opcoes[x].Parent := Self;

ou assim:
Opcoes[x].Parent := AOwner;

mas este último caso fará o componente aparecer no form, e não no Scroll.
Coloca a mensagem de erro em inglês, caso continue a acontecer...


Responder

Gostei + 0

13/09/2006

Marco Salles

independentemente do fim que levou este tópico , com estou nele desde do inicio e fui acompanhando de perto o desenrolar, gostaria de acrescentar alguns conceitos que passaram despercebidos.

[b:6a96306c6d]A pergunta inicial foi: Como destruir objetos que foram criados...[/b:6a96306c6d]

A primeira dica afirmou que não se deve usar a[b:6a96306c6d] aplicação [/b:6a96306c6d]como [b:6a96306c6d]proprietario[/b:6a96306c6d] de qualquer componente criado em [b:6a96306c6d]RumTiime [/b:6a96306c6d]

Surgiu depois um conflitante entre [b:6a96306c6d]self[/b:6a96306c6d] e [b:6a96306c6d]Nil[/b:6a96306c6d]... O fato que ainda assim o amigo , não estava conseguindo destruir os objetos criados.

Tudo ficou mais claro , para mim , quando ele resolveu colocar de maneira completa a sua classe e o modo como estava fazendo

TRadioList = class procedure TOnClick(Sender: TObject); private public constructor Create(AOwner : TComponent;CaptionList: TStringList); destructor Destroy; override; end; ......................................... var RadioList : TRadioList; constructor TRadioList.Create(AOwner: TComponent;CaptionList: TStringList); begin with TRadioGroup.Create(AOwner) do begin Parent := AOwner as TWinControl; //outras coisa mais OnClick:=TOnClick; end; procedure TRadioList.TOnClick(Sender: TObject); begin showmessage(´ok´), end; end; destructor TRadioList.Destroy; begin inherited Destroy; end; RadioList := TRadioList.Create(Scr_Monitoramento,Lista_Rad);


bem , estamos diante de um [b:6a96306c6d]erro conceitual[/b:6a96306c6d]... Na realdidade uma armadilha que muitas das vezes confude a nossa percepção , nesse assunto.

Quando for executado o comando
[b:6a96306c6d]RadioList := TRadioList.Create(Scr_Monitoramento,Lista_Rad);[/b:6a96306c6d]
sera executado o [b:6a96306c6d]método constructor [/b:6a96306c6d]da classe TRadioList , fazendo com que seje criado o [b:6a96306c6d]Objeto RadioList [/b:6a96306c6d], e alem disso sera atribuido para a variavel RadioList um[b:6a96306c6d] ponteiro [/b:6a96306c6d], para que possamos acessar os [b:6a96306c6d]métodos[/b:6a96306c6d] definidos pela classe[b:6a96306c6d] TRadioList[/b:6a96306c6d]...

Por outro lado , se [b:6a96306c6d]olharmos[/b:6a96306c6d] para o método construtor , quando for executado o comando
[b:6a96306c6d]with TRadioGroup.Create(AOwner) do [/b:6a96306c6d]
sera criado , sem nenhum [color=darkred:6a96306c6d][b:6a96306c6d]vinculo[/b:6a96306c6d][/color:6a96306c6d] com Os objetos da classe [color=darkred:6a96306c6d][b:6a96306c6d]TRadioList[/b:6a96306c6d][/color:6a96306c6d] , os objetos da classe[color=darkred:6a96306c6d][b:6a96306c6d] TradioGroupBox[/b:6a96306c6d][/color:6a96306c6d]... e o pior de tudo é que não se tem nenhum [color=darkred:6a96306c6d][b:6a96306c6d]ponteiro[/b:6a96306c6d][/color:6a96306c6d] para esses objetos , ficando a priori , sem ter como[color=darkred:6a96306c6d][b:6a96306c6d] acessa-los[/b:6a96306c6d][/color:6a96306c6d]

A destruição dos objetos da classe TRadioList , ñesse modelo que fora proposto , não tem interferencia nenhuma com os objetos RadioGroupBox criados


Se formos olhar do ponto de vista conceitual , um método constructor de uma classe serve para iniciarlizar seus atributos e não para isntanciar objetos de outra classe. Isto foge acredito eu , dos principios de POO

Claro que ate conseguimos , definindo um Proprietario correto , acessar este objetos criados... Porem isto ocore independemente do Modelo de classe criado (TradioList).. Alem do mais , se optarmos por esta solução , estaremos mais uma vez recorrendo a uma má prática que deve ser evitada..

Contudo , não me propus a criar um modelo correto.Algo que o amigo rodoc ou qualquer outro possa faze-lo. Mas sim deixar que esta mensagem , possa servir de criticas por outros usuários que futuramente lerão o tópico , mesmo que Airto nen mais o leia...

espero ter sido claro.


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar