Динамические компоненты, События

[Dvoishnik]

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, Buttons, ComCtrls, Menus;
 procedure CreateForm2 () ;
var
  Form2: TForm;
    Panel2:TPanel;
    BitBtn2:TBitBtn;
    BitBtn3:TBitBtn;
    TreeView2:TTreeView;
    PopupMenu2:TPopupMenu;

implementation

procedure  N1Click (Sender: TObject);
Begin
TreeView2.Items.addChild(TreeView2.Items.Item[0],(Sender as TMenuItem).Caption);
end;

procedure CreateForm2 () ;
Begin
Form2:=TForm.Create(Application);
Form2.Name:='Form2';
Form2.Position:=poScreenCenter;
Form2.Caption:='Конструктор Фильтров';

  Panel2:=TPanel.Create(Form2);
  Panel2.Parent:=Form2;
  Panel2.Align:=alBottom;
  Panel2.Height:=25;

    BitBtn2:=TBitBtn.Create(Form2);
    BitBtn2.Parent:=Panel2;

    BitBtn3:=TBitBtn.Create(Form2);
    BitBtn3.Parent:=Panel2;
    BitBtn3.Left:=Panel2.ClientWidth-BitBtn3.Width;

  PopupMenu2:=TPopupMenu.Create(Form2);
    PopupMenu2.Items.Clear;
    PopUpMenu2.Items.Add(NewItem('добавить ', 0, False, False, nil, 0, 'L1'));
    PopUpMenu2.Items.Add(NewItem('Запись 1 ', 0, False, True, N1Click() , 0, 'N1'));

не получается добавить пункт меню с обработчиком событий
ругается на N1Click
пробовал по разному каждый раз дает новую ошибку
я так понимаю какой то параметр нужно передать процедуре вот только какой ??

[TaLadno]

var MenuItem: TMenuItem;
begin
  MenuItem := TMenuItem.Create(PopupMenu);
  MenuItem.Caption := Random(1000).ToString;
  MenuItem.OnClick := MenuItemClick;

  PopupMenu.Items.Add(MenuItem);
End;

[Dvoishnik]

MenuItemClick что за зверь такой??
и как мне обращаться с процедуре N1Click тогда?

да и чем отличается ?

PopUpMenu2.Items.Add(NewItem('Запись 1 ', 0, False, True, N1Click() , 0, 'N1'));

от

  MenuItem := TMenuItem.Create(PopupMenu);
  MenuItem.Caption := Random(1000).ToString;
  MenuItem.OnClick := MenuItemClick;

  PopupMenu.Items.Add(MenuItem);

[evg_m]

сравни !!!
procedure N1Click (Sender: TObject);
procedure TForm2.MenuTemClick(sender: TObject);

событие (event) для обработки ДОЛЖНО БЫТЬ методом (процедурой КАКОГО-ЛИБО класса), а не "ПРОСТО" процедурой.

и даже более того ОЧЕНЬ ЖЕЛАТЕЛЬНО чтобы ЭТО была метод конкретного объекта (т.е. УЖЕ созданного экземпляра класса).

 ( ..., form2.MenuItemclick, ...);

[Dvoishnik]

Т.Е. чтоб это правильно сделать нужно описать класс формы которой я создаю в ней описать метод N1Click клик для N1?

Type
  TForm2 = class(TForm)
    Panel2:TPanel;
    BitBtn2:TBitBtn;
    BitBtn3:TBitBtn;
    TreeView2:TTreeView;
    PopupMenu2:TPopupMenu;
    MenuItem: TMenuItem;
    L1:TMenuItem ;
    procedure  L1Click  (Sender: TObject);
  ............
Var
Form2:TForm2;
...........
procedure  TForm2.L1Click  (Sender: TObject);
Begin
TreeView2.Items.addChild(TreeView2.Items.Item[0],(Sender as TMenuItem).Caption);
end;
........
.........
  PopupMenu2:=TPopupMenu.Create(Form2);
  PopupMenu2.Items.Clear;
    L1:=TMenuItem.Create(PopupMenu2);
    L1.Name:='L1';
    L1.Caption:='добавить';
    L1.OnClick:=TForm2.L1Click;// также ругается 
  PopupMenu2.Items.Add(L1);

не накидаете примерчик?

[evg_m]

L1.OnClick:=TForm2.L1Click;// также ругается

и даже более того ОЧЕНЬ ЖЕЛАТЕЛЬНО чтобы ЭТО была метод конкретного объекта (т.е. УЖЕ созданного экземпляра класса).

 ( ..., form2.MenuItemclick, ...);

L1.Onclick:=form2.L1Click; //можно так
L1.OnClick:=L1Click; // и так 
L1.OnClick:=self.L1Click; // или так

[Dvoishnik]

evg_m, спасибо.