نحوه کار کردن با TreeView - تو رو خدا کمک کنید

[ho_abedin]

سلام بر دوستان عزیز

من شدیداً نیاز پیدار کردم تا با TreeView کار کنم ولی از اون هیچ چیز نمی دونم
اگه ممکنه دوستان به من کمک کنند تا بتونم با TreeView کار کنم
چطور میشه شاخه اصلی ساخت ؟
چطور میشه زیر شاخه ساخت ؟
چطور میشه برای یک زیر شاخه یا شاخه کد نویسی کرد ؟
چطور میشه از ایندکس شاخه ها استفاده کرد؟
چطور میشه شاخه ها رو بصورت اتوماتیک از بانک ساخت ؟

قبلاً از همکاری و محبتتون تشکر می کنم

[MToloo]

به نظر کار باهش ساده میاد. روی سه نقطه پروپرتی ITems که کلیک کنین میتونین به صورت Visuallی تو اون پنجره ای که باز میشه هم شاخه اصلی درست کنین (با New Item) هم زیر شاخه (با New SubItem) .
از توی برنامه هم با پروپرتی های TreeNode.Items کار کنین. انواع و اقسام Add ها یا Insert ها در درخت اطلاعات وارد میکنند و توابع دیگه ای که خروجیشون TTreeNode هست امکان دسترسی به اطلاعات و فراهم میکنن.

[nilufari]

اینجوری


procedure Tuser_define1.FormShow(Sender: TObject);
var i, j : integer;
node : TTReeNode;
Cap1, Cap2 : string;
begin
node:=nil;
for i:=0 to form1.MainMenu1.Items.Count-1 do
begin
Cap1:=trim(form1.MainMenu1.Items.Items[i].Caption) ;
Node:=TreeView1.Items.Add(nil,Cap1);
for j:=0 to form1.MainMenu1.Items.Items[i].Count-1 do
begin
Cap2:=trim(form1.MainMenu1.Items.Items[i].Items[j] .Caption);
TreeView1.Items.AddChild(Node,Cap2);
end;
end;
end;


دوست من توجه کن که کد فوق Caption های یک منو را بصورت یک TreeView در میاورد ... ضمنا در فرم جاری باید یک کنترل TreeView داشته باشی .

[m-khorsandi]

درود

این یه نمونه ساده ست ، ولی میشه ازش ایده گرفت