Re: [delphi-br] Erro com TreeView

Sat, 09 Jun 2007 14:42:40 -0700 

Esse é o código que alimenta o TreeView

procedure TForm1.Carrega_TreeView;
var
  node : TTreeNode;
begin
  TreeView1.Items.Clear;
  DM1.Filho.Active:=True;
  with DM1.Pai do
  begin
    Active := True;
    First;
    while not eof do
      begin
        node:=TreeView1.Items.Add(nil,FieldByName('pai').asString);
        with DM1.Filho do
        begin
          First;
          while not eof do
            begin
              TreeView1.Items.AddChild( node, FieldByName('filho').asString);
              Next;
            end;
        end;
        Next;
      end;
  end;
end;

O erro acontece quando clico no + para os nodes "pai"
No evento onclick tem um Open numa Query.


[As partes desta mensagem que não continham texto foram removidas]

Responder a