PopupMenu

[TaTT DoGG]

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

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

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

точно, а про это я совсем забыл
и ещё я попробовал, чтобы когда нажимаешь на пункт popup'a в лейбл выводился caption пункта меню... вот кусок:

procedure TForm1.test(Sender: TObject);
begin
with Sender as TMenuItem do
Form1.label1.caption:=i.Caption;
end;

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

i:=TMenuItem.Create(PopupMenu1);
i.Caption:='1';
i.OnClick:=test;
PopupMenu1.Items.Add(i);
end;

несмотря на то, что я нажимаю на пункт 4, в лэйбл мне выводит 1
как решить данную проблему

[mutabor]

Внимательно изучи тот код что я дал, там создание неизвестного заранее количества пунктов меню (Фильтры), а также создание при старте и добавление по одному (с заменой если их становится больше 10) - Журнал.
У тебя не получается потому что ты забываешь про нумерацию, обращаться нужно к конкретному пункту.
Попробуй так:

with Sender as TMenuItem do  
  Form1.label1.caption:=Items[MenuIndex].Caption;

Если у тебя меню статичное, не мучайся и в редакторе заполни.

[TaTT DoGG]

mutabor, спс, работает
у меня не статичное
у меня в popupmenu должны считываться названия таблиц из бд
т.е. считывается из бд в popup и в listbox

[mutabor]

Ну тогда смотри процедуру InitFilters, там все что тебе надо есть.
Filters там это TStringList, пункты меню создаются из него, заменишь на листбокс, и загрузку свою сделаешь вместо ListFileDir.