Cuidado com as cópias de ponteiros
Repare que você copia Form2 para a sua variável frm_Form. Na verdade, o
que está sendo copiado é o ponteiro.
Isso quer dizer que Form2 e frm_Form estão apontando para o mesmo objeto, a
mesma posição de memória.
Assim, quando no final vc está liberando
Pessoal,
Pq esta estrutura nao dah certo?
procedure TForm3.btn1Click(Sender: TObject);
var
frm_Form : TForm;
i: Integer;
begin
if Form2 = nil then
Form2 := TForm2.Create(Self);
frm_Form := Form2;
mmo1.Lines.Clear;
for i := 0 to frm_Form.ComponentCount - 1
2 matches
Mail list logo