Como pegar valor do TreeView

19/01/2021

Opa, estou com uma aplica��o de Delphi IntraWeb, onde utilizo um TreeView para listar os Usuarios, como n�o possui TreeView com liga��o ao DB, a listagem � na m�o, mas n�o consigo pegar o Numero do Codigo do Usuario, sempre pega o ultimo registro, pois pela listagem � feito um While
N�o tenho a menor ideia de como fa�o para pegar o codigo, qualquer ideia � bem vinda
Delphi Intraweb
SQL

Ramboli

Curtir t�pico + 0

Responder

Post mais votado

20/01/2021

se � voc� quem monta a TreeView, voc� pode fazer a liga��o com o banco de dados. No lugar de AddChild(), use AddChildObject(), que far� a associa��o do n� criado com um ponteiro (que pode ser qualquer coisa - mesmo, desde um valor primitivo at� um objeto da VCL).

vamos supor que o campo chave para a busca � o c�digo do usu�rio (um valor inteiro).

na montagem da TreeView:

   IDRegistro := DatasetUsuario.FieldByName('CODIGO').AsInteger;
   TreeView.Items.AddChildObject( [nohPai], DatasetUsuario.FieldByName('Nome').AsString, Pointer(IDRegistro));

da forma acima voc� acrescentou um item associado a um 'objeto' (na verdade associado a um ponteiro).

para posicionar no registro ao clicar no item:

   noh := TreeView.Selected;
   if (noh.Data <> nil) then // indica que h� informa��o de um registro a ser posicionado
      try
         IDRegistro := Integer(noh.Data); // aqui obt�m o c�digo do usu�rio associado ao n� selecionado
         // com o c�digo do usu�rio 'em m�os', use qualquer forma de posicionamento (query, locate, find)
      finally / except
         [qualquer implementa��o necess�ria]
      end;

Emerson Nascimento

Responder

Gostei + 1

Mais Posts

20/01/2021

Ramboli

   IDRegistro := DatasetUsuario.FieldByName('CODIGO').AsInteger;
   TreeView.Items.AddChildObject( [nohPai], DatasetUsuario.FieldByName('Nome').AsString, Pointer(IDRegistro));

da forma acima voc� acrescentou um item associado a um 'objeto' (na verdade associado a um ponteiro).

para posicionar no registro ao clicar no item:

   noh := TreeView.Selected;
   if (noh.Data <> nil) then // indica que h� informa��o de um registro a ser posicionado
      try
         IDRegistro := Integer(noh.Data); // aqui obt�m o c�digo do usu�rio associado ao n� selecionado
         // com o c�digo do usu�rio 'em m�os', use qualquer forma de posicionamento (query, locate, find)
      finally / except
         [qualquer implementa��o necess�ria]
      end;

Opa, deu certo aqui com algumas pequenas mudan�as
Se n�o for pedir muito, como eu alinho os itens?
quando possuo apenas 1 usuario ele vem alinhado a esquerda, mas quando possuo mais de 1 ele descofigura e fica alinhado ao meio todo bugado

Responder

Gostei + 0

20/01/2021

Emerson Nascimento

n�o entendi o que quer alinhar.
pode demonstrar o que est� acontecendo e como quer que fique?

Responder

Gostei + 1

21/01/2021

Ramboli

n�o entendi o que quer alinhar.
pode demonstrar o que est� acontecendo e como quer que fique?

Bem, ao abrir uma treeview com muitos usuarios, ela abre mais ou menos assim

Gostaria q ele listasse alinhado mais ou menos assim

Usuarios
       usu1
       usu2
       usu 3
       usu4

Como posso fazer isto?
Deste ja eu agrade�o pela ajuda

Responder

Gostei + 0

21/01/2021

Emerson Nascimento

voc� pode publicar o trecho do c�digo que voc� est� utilizando para adicionar os itens?

Responder

Gostei + 1