Лучший ответ
-
2 0
lame 6 (13580)3725 15 лет
циклом бежатся по майнменю и заполнять treeview
Обратится к майтменю можно так:
var S:string;
S:=MAinMenu1.Items.Items[0].Items[0].Caption;
в S у нас будет имя первого элемента майн меню(File->name)
ну или заголовок
S:=MAinMenu1.Items.Items[0].Caption;
в S у нас будет имя заголовка майн меню(File->name)
П.С а зачем тебе именно TreeView не проще использовать ListBox?
Ответы
-
-
0 0
Дима (39) 7 (31959)476234 15 лет
procedure TForm1.Button1Click(Sender: TObject);
//treeview is named tv
var i:integer;
begin
tv.Items.Clear;
for i:= 0 to form1.componentcount-1
do if components is tmenuitem then
tv.Items.Add(nil,(components as tmenuitem).name);
end;
тебе осталось разобраться с левелами