[march]

Как сделать галку в меню, для отображения подпунктов в еще одной колонке, как на рисунке
galkadelphi.JPG?
для этого нужен какой-то осбый компонент или нет?
извиняюсь, если некорректно выбрал тему

[Страдалецъ]

Если нужно именно так как на экране, то - да, нужен более продвинутый вариант меню. В DevExpress такой вариант есть.

[march]

нет, необходима только галочка обведенная в кружок, остальные графические навороты и галки не нужны;
и что такое "DevExpress"?

[NIch]

Когда создаешь SumMenu, то галочка сама появляется...
Создать его так...
На интересующем пункте меню в редакторе жмешь на правую клавишу, там есть такой пункт Create SubMenu...и все...

[march]

спс огромное;
а программно создавая подпункты этого меню как соблюсти иерархию? (в каком подпункте какой, в том числе и с "галкой")

[march]

прошу прощения, но все ж таки АП!

[Страдалецъ]

А вот так например:

Код:

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;