اینجوری
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 داشته باشی .