Extindeți nodul copac folosind tastatura

Extindeți nodul copac folosind tastatura

Bună dimineața, domnilor!
Spuneți-mi cum să implementați un anumit nod de copaci prin apăsarea oricărei taste de pe tastatură.






Eu scriu următoarele
procedura TEnterpriseF.TreeView1KeyDown (Expeditor: TObject; var Cheie: Word;
Shift: TShiftState);
var r: boolean;
începe
r: = Adevărat;
caz cheie de
13. începe // tasta Enter
i: = 0;
În timp ce (nu TreeView1.Items [i]. Selected) și (ii: = i + 1;
TreeView1 Expansiune (TreeView1, TreeView1.Items [i], r);
se încheie;
se încheie;
se încheie;
Dar dupa ce ati facut asta - fara rezultat!






ajutor, pls
Mulțumesc!

TreeView1Expanding este similar cu apelarea evenimentului OnExpanding.

Tot drumul. Acest eveniment trebuie apelat de către distribuitor.

Pentru a extinde un element, trebuie fie să îl setați la Expanded: = True; sau apelați metoda Expand (True / False), unde puteți specifica ca parametru dacă doriți să vă despachetați recursiv sau doar acest element.

dacă este atribuită (TreeView1.Selected) atunci
TreeView1.Selected.Expand (True);

Nu este clar ce vrei.
De ce treci prin toate nodurile copacului?
În primul rând, este o operație lungă, este mai bine să nu accesați nodurile în general și, în al doilea rând, puteți obține nodul selectat folosind TreeView1.Selected. O "extinde" - TreeView1.Selected.Expand

Multe mulțumiri tuturor celor care au răspuns.
Măiestria pe care nu o vei consuma. ))

Articole similare

• Stylus din lemn cu mâinile proprii

Trimiteți-le prietenilor: