Создание меню

[Volkogriz]

Доброе время суток!
Подскажите пожалуйста что не так.

procedure TForm1.PopupMenuActivate;
var
  newItem: TMenuItem;
  ini: TIniFile;
  n:integer;
begin
PopupMenu1.AutoHotkeys:=maManual;
newItem:=TMenuItem.Create(PopupMenu1);
  ini := TIniFile.Create(extractfilepath(Application.ExeName)+'FilesProgram\ParametersForm.prm');
  begin
       for n := 1 to ini.ReadInteger('[MenuParam]', 'Amount', 0) do
       begin
       newItem.Caption:=ini.ReadString('Menu' + Format('%.3d', [n]), 'MenuName', '');
       newItem.OnClick:=MyMenuClick;
       PopupMenu1.Items.Add(newItem)
  end;
 end;
end;

в ини файле пишу так:

[MenuParam]
Amount=003
[Menu001]
MenuName=Menu1
[Menu002]
MenuName=Menu2
[Menu003]
MenuName=Menu3

Но меню не хочет создаваться(
Что я не то делаю?
Заранее благодарен!
С уважением,
Volkogriz!

[Пепел Феникса]

создается лишь один пункт?

[Volkogriz]

Вообще не пунктика(((

[Аватар]

А откуда знаешь, что ни одного? Попуп чем-то активизируется? А вообще каждый вставляемый TMenuItem нужно отдельно создавать, а не один для трех пунктов

[Volkogriz]

да активизируется!

procedure TForm1.sSpeedButton4Click(Sender: TObject);
begin
popupMenu1.Popup(sSpeedButton3.Left*Form1.Left,sSpeedButton3.Top*Form1.Top);
end;

Создаётся при создании формы.

А вообще каждый вставляемый TMenuItem нужно отдельно создавать, а не один для трех пунктов

Немного не понял, можно пояснить?

[Аватар]

for i:=0 to 5 do begin
  newItem:=TMenuItem.Create(Self);
  newItem.Caption:='Тра-ля-ля';
  newItem.OnClick:=MyMenuClick;
  PopupMenu1.Items.Add(newItem)
end;

[Volkogriz]

Понял)))!
ща исправлю посмотрю

[Volkogriz]

Просто не дагоню как из положения выйти

	
 for n := 1 to newini.ReadInteger('[MenuParam]', 'Amount', 0) do
       begin
       newItem:=TMenuItem.Create(PopupMenu1);
       newItem.Caption:=newini.ReadString('Menu' + Format('%.3d', [n]), 'MenuName', '');
       newItem.OnClick:=MyMenuClick;
       PopupMenu1.Items.Add(newItem)

Может о чём то не о том мысли, но не выходит нечего(

[саша40]

Интересно и зачем вы его сам рисуете? Если он ресуется при клике ПКМ автоматом(по умолчанию). У компонента есть свойство Menu, то есть то, что вам нужно создать самим. Дополняйте его. Если хотите создать разное меню(например, на разные компоненты), то дополнительные TPopupMenu и свойство PopupMenu в помощь.

[Stilet]

но не выходит нечего(

Пошаговку конечно же не делал?