[Voron]

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

[lmikle]

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

Код:

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;

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