Ŭ¶ó¿ì (Á¶´ëÇö)
|
|
FMX¸é ½±°Ô ÇÒ ¼ö ÀÖ½À´Ï´Ù.
´ë·«ÀûÀ¸·Î ´ÙÀ½°ú °°Àº ¹æ¹ýÀ¸·Î °¡´ÉÇÕ´Ï´Ù.
<Table¸í : TreeList>
--------------------------
selfkey, parentkey, text
--------------------------
100,0,°æ±â
101,100,¼ö¿ø
102,100,¿À»ê
103,100,ȼº
200,0,Ãæ³²
201,200,´ëÀü
202,200,õ¾È
203,200,ûÁÖ
204,200,³í»ê
--------------------------
1) Å×À̺íÀ» Àоî¼
2) ³ëµå¸¦ ¸¸µì´Ï´Ù.
ti := TTreeViewItem.Create(nil);
3) ³ëµå¿¡ ÀÚ±âÅ°¶û ºÎ¸ðÅ°¸¦ ÀÔ·ÂÇÕ´Ï´Ù. ºÎ¸ðÅ°¸¦ ³ÖÀ» °÷ÀÌ µüÈ÷ ¾ø¾î¼ TagString¿¡ ³ÖÀ»°Ô¿ä.
ti.Tag := iMyKey;
ti.TagString := iParentKey.ToString;
4) ºÎ¸ð¿¡ ÇØ´çÇÏ´Â ³ëµå¸¦ ã¾Æ¼ ÇØ´ç ºÎ¸ð¿¡ AddObject·Î Ãß°¡ÇÕ´Ï´Ù.
tiParent := FindNodeByKey(iParentKey);
tiParent.AddObject(ti);
5) ÀÚµ¿À¸·Î Æ®¸®°¡ ±¸¼ºµË´Ï´Ù. 2018-04-17 ¿ÀÈÄ 5:04:53
|
|