|
#1
|
||||
|
||||
Галка в меню
Как сделать галку в меню, для отображения подпунктов в еще одной колонке, как на рисунке
galkadelphi.JPG? для этого нужен какой-то осбый компонент или нет? извиняюсь, если некорректно выбрал тему Последний раз редактировалось march, 21.10.2009 в 07:32. |
#2
|
||||
|
||||
Если нужно именно так как на экране, то - да, нужен более продвинутый вариант меню. В DevExpress такой вариант есть.
Жизнь такова какова она есть и больше никакова. Помогаю за спасибо. |
#3
|
||||
|
||||
нет, необходима только галочка обведенная в кружок, остальные графические навороты и галки не нужны;
и что такое "DevExpress"? |
#4
|
||||
|
||||
Когда создаешь SumMenu, то галочка сама появляется...
Создать его так... На интересующем пункте меню в редакторе жмешь на правую клавишу, там есть такой пункт Create SubMenu...и все... В начале был Бит, потом Байт и только потом появилось Слово... |
#5
|
||||
|
||||
спс огромное;
а программно создавая подпункты этого меню как соблюсти иерархию? (в каком подпункте какой, в том числе и с "галкой") Последний раз редактировалось march, 24.10.2009 в 15:34. |
#6
|
||||
|
||||
прошу прощения, но все ж таки АП!
|
#7
|
||||
|
||||
А вот так например:
Код:
procedure TForm33.FormCreate(Sender: TObject); begin ScanMenu(MainMenu1.Items); end; procedure TForm33.ScanMenu(MenuItem: TMenuItem); Var i: Integer; begin for i := 0 to MenuItem.Count-1 do if MenuItem[i].Count<>0 then ScanMenu(MenuItem[i]) else MenuItem[i].Caption := 'Здесь был Вася'; end; Жизнь такова какова она есть и больше никакова. Помогаю за спасибо. |