PopupMenu

[TaTT DoGG]

помогите разобраться с параметрами
чем отличается
PopupMenu1.Items.Add(Item: TMenuItem)
от
PopupMenu1.Items.Add(const AItems: array of TMenuItem)

и как скажем добавить в popupmenu пункт 'Выход'?

[Stilet]

Вот так:

var i:TMenuItem;
begin
i:=TMenuItem.Create(PopupMenu1);
i.Caption:='adsad';
i.OnClick:=N11Click;
PopupMenu1.Items.Add(i);

end;

А отличия в том что просто вторая процедура добавляет не один тобой описанный пункт а целый массив их. Конечно пред этим ты их всех описать должен.

[TaTT DoGG]

а N11Click на имя процедуры заменить можно? мне просто надо, чтобы при нажатии выполнялась процедура

[mutabor]

Можно. N11Click кстати тоже имя процедуры.

[TaTT DoGG]

procedure test;
begin
Form1.label1.caption:='sdf';
end;

procedure TForm1.FormActivate(Sender: TObject);
var i:TMenuItem;
begin
i:=TMenuItem.Create(PopupMenu1);
i.Caption:='adsad';
i.OnClick:=test;
PopupMenu1.Items.Add(i);
end;

вот так выбивает ошибку в строке
i.OnClick:=test;

[mutabor]

вот так выбивает ошибку в строке
i.OnClick:=test;

Что пишет? Вроде все правильно, должно работать.

Вот тебе кусок рабочего кода, разбирайся:

//событие для меню Фильтры
procedure TForm1.FiltersItemEvent(Sender: TObject);
begin
with Sender as TMenuItem do
  //ShowMessage(PL_DIR+Filters.Strings[MenuIndex]+PL_EXT);
  PlugStart(PL_DIR+Filters.Strings[MenuIndex]+PL_EXT);
end;

//событие для динамически созданных пунктов меню
procedure TForm1.MenuItemEvent(Sender: TObject);
begin
with Sender as TMenuItem do
  LoadFile(LastFiles.Strings[MenuIndex]);
end;

procedure TForm1.InitFilters;
var
NewItems: array of TMenuItem;
i: shortint;
begin
ListFileDir(ExtractFilePath(Application.EXEName)+PL_DIR,
  '*'+PL_EXT,Filters,True);
SetLength(NewItems,Filters.Count);
for i:=0 to Length(NewItems)-1 do
  NewItems[i]:=TMenuItem.Create(MainMenu1);
for i:=0 to Length(NewItems)-1 do
  begin
  NewItems[i].Caption:=Filters.Strings[i];
  NewItems[i].OnClick:=FiltersItemEvent;
  N19.Add(NewItems[i]);
  end;
end; 

//заполнение журнала при старте программы
procedure TForm1.InitJournal;
var
NewItems: array of TMenuItem;
i: shortint;
begin
SetLength(NewItems,LastFiles.Count);
for i:=0 to Length(NewItems)-1 do
  NewItems[i]:=TMenuItem.Create(MainMenu1);

for i:=Length(NewItems)-1 downto 0 do
  begin
  NewItems[i].Caption:=ExtractFileName(LastFiles.Strings[i]);
  NewItems[i].OnClick :=MenuItemEvent;
  N14.Insert(0,NewItems[i]);
  end;
end;

//запись в журнал
procedure TForm1.WriteFN(FN: TFileName);
var
MyItem: TMenuItem;
begin
LastFiles.Insert(0,FN);
MyItem:=TMenuItem.Create(MainMenu1);
MyItem.Caption:=ExtractFileName(LastFiles.Strings[0]);
MyItem.OnClick :=MenuItemEvent;
if LastFiles.Count > 10 then
  begin
  N14.Insert(0,MyItem);
  N14.Delete(10);
  LastFiles.Delete(10);
  end
else
  begin
  N14.Insert(0,MyItem);
  end;
Form5.ListBox1.Items:=LastFiles;
end;

[TaTT DoGG]

пишет несовпадение типов
method pointer и regular procedure

[TaTT DoGG]

procedure TForm1.MenuItemEvent(Sender: TObject);   
begin   
with Sender as TMenuItem do   
  LoadFile(LastFiles.Strings[MenuIndex]);   
end;  

procedure TForm1.InitJournal;   
var   
NewItems: array of TMenuItem;   
i: shortint;   
begin   
SetLength(NewItems,LastFiles.Count);   
for i:=0 to Length(NewItems)-1 do   
  NewItems[i]:=TMenuItem.Create(MainMenu1);   
  
for i:=Length(NewItems)-1 downto 0 do   
  begin   
  NewItems[i].Caption:=ExtractFileName(LastFiles.Strings[i]);   
  NewItems[i].OnClick :=MenuItemEvent;   
  N14.Insert(0,NewItems[i]);   
  end;   
end;

ну вот интересующий нас кусок кода. у меня аналогично...

[Stilet]

пишет несовпадение типов

Естесственно. твою test нужно описывать так:

type
  TForm1 = class(TForm)
.......................
    procedure test(Sender: TObject);
............................
  private
    { Private declarations }
  public
    { Public declarations }
  end;

[mutabor]

ну вот интересующий нас кусок кода. у меня аналогично...

Где же аналогично?
procedure test;
procedure TForm1.MenuItemEvent(Sender: TObject);