Динамическое SubMenu в PopupMenu

[Anfall]

Доброго времени суток всем.
Собственно нагуглил как сделать динамические пункты меню в PopUp. Вроде работает. Но как сделать, чтобы они появлялись в СубМеню у N5 например?

Нашел в поиске:

Сообщение от mihali4

var newitem,newsubitem: TMenuItem;
begin
newitem:=TMenuItem.Create(PopupMenu1);
newitem.Caption:='3';
PopupMenu1.Items.Add(newitem);
newsubitem:=TMenuItem.Create(PopupMenu1);
newsubitem.Caption:='31';
newitem.Add(newsubitem);
end;

Но как сделать чтобы подменю появлялось именно у N8 и как добавить к ним события onclick?
Заранее благодарен.

[ov_lab]

Сообщение от Anfall

Доброго времени суток всем.
Собственно нагуглил как сделать динамические пункты меню в PopUp. Вроде работает. Но как сделать, чтобы они появлялись в СубМеню у N5 например?

Нашел в поиске:


Но как сделать чтобы подменю появлялось именно у N8 и как добавить к ним события onclick?
Заранее благодарен.

N8.Items.Insert(0,MyPopupMenu.Items );

где MyPopupMenu - это уже заполненное ваше PopUp

[Anfall]

Сообщение от ov_lab

N8.Items.Insert(0,MyPopupMenu.Items );

где MyPopupMenu - это уже заполненное ваше PopUp

Спасибо, но не работает. Пишет, что нельзя такое с n8 делать(

Нашел код:

Сообщение от Alter

Простой способ:

type
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    Button1: TButton;
    PopupMenu1: TPopupMenu;
    N3: TMenuItem;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  Procedure AddSubItm(Mi :TMenuItem; Cap :String);

implementation

{$R *.dfm}

Procedure AddSubItm(Mi :TMenuItem; Cap :String);
var Itm :TMenuItem;
begin {простая процедура для добавления пунктов}
 Itm := TMenuItem.Create(Mi);
 Itm.Caption := Cap;
 Mi.Add(Itm);
end;

procedure TForm1.Button1Click(Sender: TObject);
Var I :Byte;
begin
 For I:=1 To 25 Do
 begin
  AddSubItm(N2, Format('ПодМеню=%d', [I]));
  AddSubItm(N3, Format('ПодМеню=%d', [I]));
 end;
 TControl(Sender).Enabled := False;
end;

Но как сделать событие onlick?

[chertovich]

procedure TForm1.Button1Click(Sender: TObject);
var
  SubItem: TMenuItem;
begin
  SubItem := TMenuItem.Create(PopupMenu1);
  SubItem.Caption := 'Вход. меню';
  h8.Add(SubItem);  //Здесь h8 имя твоего меню
end;

[Alex Cones]

Компонент.OnClick := Процедура

[chertovich]

А событию просто присваивешь какую-нить процедуру и все)

[Anfall]

Спасибо.

Я вот присваиваю, например:
Itm.Onclick:= Button2Click;

А пишет: Undeclared identifier Button2Click.
хотя такая процедура создана.

[DIgorevich]

Itm.Onclick:= Button2Click(sender);

[Simply-Art]

  private
    procedure ClickM(Sender: TObject);
//бла бла бла
var
 NewItem:TMenuItem;
begin
NewItem:=TMenuItem.Create(Self);
NewItem.Caption:='Кнопа';
NewItem.OnClick:=ClickM; // здесь и присваиваем куда кликать
PopupMenu.Items[1].Add(NewItem); // тут указываем куда вклинить надо [1] первый пункт, нумерация сверху-вниз с нуля
end;
// бла бла бла
procedure TForm1.ClickM(Sender: TObject); // Важна штука!
begin

end;

Вроде так, пробуй

[Anfall]

DIgorevich, спасибо большое. Я до этого использовал код от Alter'а.
Я кода попробовал вот это:

procedure TForm1.Button1Click(Sender: TObject);
var
  SubItem: TMenuItem;
begin
  SubItem := TMenuItem.Create(PopupMenu1);
  SubItem.Caption := 'Вход. меню';
  h8.Add(SubItem);  //Здесь h8 имя твоего меню
end;

Все отлично заработало! Еще раз спасибо!

Simply-Art, спасибо! Тоже попробую!

Ребята, а вот такой вопрос.
У меня список пунктов в подменю неизвестен.
Названия берутся из listbox, например с помощью for to do.
А для каждого пункта должно быть уникальное действие.
Если проще то в пунктах субменю будут содержаться список путей к папкам. Надо, чтобы при нажатии на пункт подменю открывался проводник с этим путем. Как сделать такое действие, чтобы путь брался из названия этого подменю, например. Ну или как-то по-другому.
Попытался сделать так (сам уже понимаю что бред):

  subitem.OnClick:= ShellExecute(0,'explore',pchar(SubItem.Caption),nil,nil,SW_SHOWNORMAL);

но incompatible types.

Заранее благодарен.

Попробовал сделать отдельную процедуру, а в нее прописал:

ShellExecute(0,'explore',pchar(TMenuItem(sender).Caption),nil,nil,SW_SHOWNORMAL);

Но почему-то когда создаешь одно подменю - проводник не открывается , а если создать еще одно подменю - то открывается.
В чем же трабл!?(

procedure TForm1.Svoy;
begin
ShellExecute(0,'explore',pchar(TMenuItem(sender).Caption),nil,nil,SW_SHOWNORMAL);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  SubItem: TMenuItem;
begin
  SubItem := TMenuItem.Create(PopupMenu1);

  SubItem.Caption := 'D:\';

  n1.Add(SubItem);  //Çäåñü h8 èìÿ òâîåãî ìåíþ
     SubItem.Onclick := svoy;
  end;

Нашел проблему. В начале строки еще передается зачем-то лишний символ &
Решил проблему с StringReplace.
Вот рабочий код:

  public
    { Public declarations }
      procedure test(Sender: TObject);

{$R *.dfm}
procedure TForm1.test;
var
i:string;
begin
i:=TMenuItem(sender).Caption; 
i:=StringReplace(i, '&', '', [rfReplaceAll, rfIgnoreCase]); //убираем ненужные символы
ShellExecute(0,'explore',pchar(i),nil,nil,SW_SHOWNORMAL); //открываем проводник
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  SubItem: TMenuItem;
begin
  SubItem := TMenuItem.Create(PopupMenu1);
  SubItem.Caption := 'C:\test';
  n1.Add(SubItem);  //n1 - имя подменю
  SubItem.Onclick := test;
  end;

Тему можно закрывать... Но
И откуда берутся эти лишние символы?