Обработка меню ))

[Volkogriz]

Короче, вроде один вопрос одна тема)))
Вот:

PHP код:

ListMenu: array[1..999] of string;

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

procedure TForm1.MyMenuClick(Sender: TObject);
begin
SetClipboardText(Handle,#13#10#13);
Memo1.PasteFromClipboard;
SetClipboardText(Handle,ListMenu[]);
Memo1.Paragraph.Numbering := TNumberingStyle(nsBullet);
Memo1.PasteFromClipboard;
end; 


Но как индексс меню указать ))

SetClipboardText(Handle,ListMenu[]);

Просто хоть идею!
Заранее благодарен!
С уважением,
Volkogriz!

[Аватар]

ListMenu[k]:=newini.ReadString('Menu' + Format('%.3d', [n]), 'Text', '');
Что за не инициализированный k? Наверно n. Так это n в newItem.Tag загоняйти при создании. И в MyMenuClick TMenuItem(Sender).Tag и даст индекс

[Volkogriz]

Аха он))
Во ща пробавать буду.
Спасибо!