Nyisd ki a fát a billentyűzet
Nyisd ki a fát a billentyűzet
Jó reggelt, uraim!
Megmutatja, hogyan kell telepíteni egy adott csomópont a fa bármely gomb megnyomásával a billentyűzeten.
Írok az alábbi
eljárás TEnterpriseF.TreeView1KeyDown (Sender: TObject; var Key: Szó;
Shift: TShiftState);
var r: logikai;
kezdődik
R: = True;
ügy kulcsa
13. kezdődik // Enter billentyűt
i: = 0;
Bár (nem TreeView1.Items [i] .Selected) és (i
TreeView1Expanding (treeview1, TreeView1.Items [i], R);
végén;
végén;
végén;
De miután ezt - nincs eredmény!
segítsen pls
Köszönjük!
TreeView1Expanding tűnik kihívást OnExpanding eseményeket.
Egészen körül. Ez az esemény ne okozzon a felvezető.
Bővíteni egy elemet, akkor vagy telepítse a Saint-Expanded: = True; vagy hívja a módszer Nagyítás (Igaz / hamis), ahol a paraméter, megadhatja - razvarachivat rekurzív vagy csak ez az elem.
ha Címzett (TreeView1.Selected), majd
TreeView1.Selected.Expand (True);
Nem világos, hogy mit akar.
Miért megy át a fa csomópontjait?
A - Először is, ez egy hosszú folyamat, akkor jobb, ha a csomópontok általában nem érvényesek, és - másrészt annak, hogy a kiválasztott - Használhatja a csomópont TreeView1.Selected. „Kinagyított” ez - TreeView1.Selected.Expand
Sok köszönet mindenkinek, aki válaszolt.
Ügyességi nem költ italra. ))