TreeView Edit�vel.. � poss�vel??

Question

Bom dia Pessoal,Minha TreeView est� assim:[code:1:e6b2e6873d]  Texto    |-Igual         |- x[/code:1:e6b2e6873d]Eu tava querendo saber se tem jeito do usu�rio escrever nessa treeView, mais precisament...

Vinicius2k · Answer

Lucas,Escrever na TreeView � relativamente simples, mas o que eu n�o entendi � se vai haver intera��o do usu�rio em informar qual item ele quer editar (atrav�s de sele��o)... Se sim, por exemplo :[code:1:b7400e1324]procedure TForm1.Button1Click(Sender: TObject);begin  TreeView1.Items&#91;TreeView1.Selected.AbsoluteIndex&93;.Text:= Edit1.Text;end;[/code:1:b7400e1324]Se n�o vc precisar� armazenar em uma vari�vel o AbsoluteIndex do node que vc quer editar e aplicar no Items[xxx] da rotina acima...� isso q vc precisa?T+...

Lucas Silva · Answer

2k,O que eu estou querendo � o usuario clicar e alterar um dado na treeview,se poss�vel escrevendo nela mesmo....Vamos supor que eu tenha a treeview:[code:1:22f9e6eb61]     Nome       |- Igual          |- Lucas[/code:1:22f9e6eb61]Tem jeito de clicar na palavra [b:22f9e6eb61]Lucas[/b:22f9e6eb61], e sair editando???N�o sei se isso � poss�vel......

Vinicius2k · Answer

Entendi... bem, com o TreeView convencional n�o conhe�o... e me arriscaria a dizer q n�o tem jeito, mas posso estar enganado...

Acho que seria melhor para esta situa��o vc procurar por algum componente de 3� que tenha esta funcionalidade...

T+

Lucas Silva · Answer

[quote:0e2a022669=�vinicius2K�]Entendi... bem, com o TreeView convencional n�o conhe�o... e me arriscaria a dizer q n�o tem jeito, mas posso estar enganado...Acho que seria melhor para esta situa��o vc procurar por algum componente de 3� que tenha esta funcionalidade...T+[/quote:0e2a022669]Valeu...Vou dar uma procurada aqui......

Nildo · Answer

Lucas, use o m�todo:TreeView1.Selected.EditText;...

Vinicius2k · Answer

[quote:f2a95180fa=�nildo�]Lucas, use o m�todo:TreeView1.Selected.EditText;[/quote:f2a95180fa] :oops: comprovado que eu estava enganado... pensando bem, seria muito estranho a TreeView n�o ter este recurso mesmo......

Xanatos · Answer

Bom...nao precisa de mudar nada pra editar � s� mudar a propriedade readonly para false! e voce mudar como um arquivo ou pasta do windows!...

Michael · Answer

Ol� amigo Lucas!O componente TTreeView tem a propriedade ReadOnly que define se os labels dos seus itens ser�o edit�veis ou n�o. Se esta propriedade for setada para false, ent�o quando o usu�rio der um clique sobre um �tem selecionado da lista o Windows permitir� a sua edi��o. Uma desvantagem decorrente deste procedimento � que todos os �tens poder�o ser alterados pelo usu�rio. Em alguns casos � necess�rio que apenas determinados itens sejam edit�veis, e outros n�o. Infelizmente os objetos TTreeNode n�o tem uma propriedade ReadOnly individual, o que facilitaria em muito o trabalho. Mas como pessoalmente o Delphi � a ferramenta mais flexiv�l que existe, nada o que um pouco de c�digo n�o resolva n�o �?Imagine que voc� tenha o seguinte TreeView:[code:1:26dcdd00ef]Cadastro  |- Dados pessoais          |- Nome      |- Michael Benford[/code:1:26dcdd00ef]Apenas o nome �Michael Benford� deveria ser edit�vel, e n�o os outros. Para que isso seja poss�vel, basta adicionar no evento OnClick do TreeView:[code:1:26dcdd00ef]procedure TForm1.TreeView1Click(Sender: TObject);begin  { Evita que seja gerado um erro de Access Violation se nada foi   selecionado }  if TreeView1.Selected = nil then exit;  TreeView1.ReadOnly := not (TreeView1.Selected.Level = 3);end;[/code:1:26dcdd00ef]O �macete� aqui � utilizar a propriedade Level do TTreeNode para saber em qual n�vel nosso �tem est� localizado. Como a contagem come�a de 0, ent�o nosso nome est� no n�vel 3. Existem outras maneiras de se obter o mesm...

Lucas Silva · Answer

�timo pessoal...Funcionou legal...S� mais uma d�vida aqui.[code:1:799920e887]procedure TForm1.TreeView1Click(Sender: TObject);begin  { Evita que seja gerado um erro de Access Violation se nada foi selecionado }  if TreeView1.Selected = nil then exit;  if TreeView1.Selected.Level = 2 then   TreeView1.Selected.EditText;end;[/code:1:799920e887]Com este c�digo quando clico no nivel 2 do TV ele deixa para a edi��o.Quando digito alguma coisa e clico em outro TreeNode ele n�o sai (fica com o foco s� no TreeNode edit�vel (de n�vel 2) ), a n�o ser que eu d� um enter no TreeNode de n�vel 2, e depois clique em outro TreeNode;Alguem j� passou por isto??Lucas!...

Vinicius2k · Answer

Lucas,o que o colega xanatos sugeriu eu sabia, mas imaginei que vc n�o quisesse tornar todos os �tens edit�veis...bem, ent�o pode-se aliar a isso a t�nica do colega michel, mas talvez de uma forma mais simples... sem usar o OnClick... seria o m�todo convencional do windows de um click depois outro para entrar em edi��o (n�o duplo)... vc protegeria o n�vel que pode ser editado no evento OnEditing, dessa forma, por exemplo:[code:1:87f639a28c]procedure TForm1.TreeView1Editing(Sender: TObject; Node: TTreeNode;  var AllowEdit: Boolean);begin  if Node.Level < 2 then AllowEdit:= False; //s� permite edi��o no level 3end;[/code:1:87f639a28c]tamb�m pode usar a leitura da propriedade HasChildrens para permitir a edi��o apenas de quem n�o tem filhos, ou seja, o �ltimo...creio que ficaria sem este problema que vc est� enfrentando agora...T+...

Xanatos · Answer

Ou voce pode usar o ImageIndex como se fosse uma tag e no evento onEditing![code:1:545c7a4895]  if Node.ImageIndex <> 1 then    AllowEdit:= false;[/code:1:545c7a4895] 8)...

Lucas Silva · Answer

Gostaria que quando o usu�rio abrisse o Node ele j� viria em codi��es de edi��o.
Este c�digo que voc� me passou ai 2k, tem um problema (n�o � bem um problema), o usu�rio tem que abrir o node, clicar em cima dele 2 vezes, e ai sim ele abre para edi��o...

Teria jeito que resolver isto?

Michael · Answer

Para fazer o que voc� quer precisamos salvar o item que est� selecionado e ent�o verificar no momento da edi��o se ele n�o foi o �ltimo membro da TreeView que foi modificado: Eis o procedimento adequado para o seu prop�sito Lucas:

procedure TForm1.TreeView1Click(Sender: TObject);
{$J+}
const UltimoItemEditado : TTreeNode = nil;
{$J-}
begin
  { Evita que seja gerado um erro de Access Violation se nada foi selecionado }
  if TreeView1.Selected = nil then exit;

  { Permite a edi��o apenas se o item selecionado estiver no nivel 2 }
  TreeView1.ReadOnly := not (TreeView1.Selected.Level = 2);

  if not TreeView1.ReadOnly and (TreeView1.Selected <> UltimoItemEditado) then
    begin
      UltimoItemEditado := TreeView1.Selected;
      TreeView1.Selected.EditText;
    end;
end;

Era assim que voc� queria que funcionasse?

Ao amigo Vinicius2k: meu nome � Michael, e n�o Michel! ;-)

Abra�os!

Lucas Silva · Answer

Funcionou sim.Agora s� falta alguns ajustes aqui..Qual � a fun��o dos [b:cb97f79fec]{$J+} [/b:cb97f79fec]e [b:cb97f79fec]{$J-}[/b:cb97f79fec][code:1:cb97f79fec]{$J+} const UltimoItemEditado : TTreeNode = nil; {$J-} [/code:1:cb97f79fec]Notei que se n�o colocar d� um erro de c�digo....

Nildo · Answer

voce quer editar com condi��o? � facil...

no evento OnEditing voc� coloca assim:

AllowEdit := (Condicao);

E voc� pode usar o objeto NODE deste evento. Por exemplo:

AllowEdit := ( Node.text = �tal� );

F�rum TreeView Edit�vel.. � poss�vel?? #238434