[Voron]

Знающие люди помогите пожалуйста решить мою проблему. Программно добавляю пункты меню в MainMENU. Когда считываю параметр Count с пункта, в котором добавлял пункты меню, в нем добавленное количество не отображается, однако, если перед этим вывести ShowMessage то вернется истинное значени количества пунктов. В чем дело, помогите разобраться.

[lmikle]

Вот так все показывает павильно:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

procedure TForm1.Button2Click(Sender: TObject); var   Item : TMenuItem; begin   Item := TMenuItem.Create(Self);   aaa1.Add(Item);   ShowMessage(IntToStr(aaa1.Count)); end;   procedure TForm1.Button2Click(Sender: TObject); var   Item : TMenuItem; begin   Item := TMenuItem.Create(Self);   MainMenu1.Items.Add(Item);   ShowMessage(IntToStr(MainMenu1.Items.Count)); end;

Видимо, ты не оттуда читаешь.