[Demlan]

Как создать динамический PopupMenu? Значения надо брать из MS Access.

[Bargest]

Так же, как и любой другой. По динамическому созданию компонентов тысячи статей на этом форуме и на DelphiSources.ru, в гугле и в яндексе.

[Demlan]

Как создавать я знаю, но вот как брать значения из БД никак найти не могу((. Писал вот так:

Код:

var
  mi, msub: TmenuItem;
begin
  with (Sender as TPopupMenu) do
  begin
    // Удаляем все пункты меню

    // while Items.Count > 0 do Items.delete(0);
    while Items.Count > 0 do
      Items[0].Free;

    // Создаем обычный пункт "Первый"
   mi := TMenuItem.Create(self);
    with mi do
    begin
      Caption := 'Предмет';
      msub := TMenuItem.Create(self);

      with Form2.ADOTable1 do
begin First;
while not EOF do begin
with msub do
      begin
        Caption := ADOTable1РПП.AsString;
       end;
end;
end;

Админ: Пользуемся тегами для оформления кода!

Не получается, просто создает один пункт и всё.

Подскажите если не трудно. Заранее спосибо.

[Страдалецъ]

Переход на слудующую запись забыли, да и элементы меню надо-бы новые создавать для каждой записи из таблицы. Примерно так получается:

Код:

with Form2.ADOTable1 
do begin 
    First;
    while not EOF 
    do begin
        with TMenuItem.Create(self)
        do Caption := ADOTable1РПП.AsString;
        Next;
        end;
    end;

[Demlan]

Получилось примерно следующее:

Код:

procedure TForm1.PopupMenu3Popup(Sender: TObject);
var
   m: TmenuItem;
begin
  with (Sender as TPopupMenu) do
  begin
    // Удаляем все пункты меню

    while Items.Count > 0 do
      Items[0].Free;

  PopupMenu3.Items.Add(m);
  end;

  with Form2.ADOTable1
do begin
    First;
    //m:= TMenuItem.Create(nil);
    while not EOF
    do begin
        with TMenuItem.Create(self)
        do begin Caption := ADOTable1РПП.AsString;
        Next;
        end;
        end;
    end;

  end;

Но теперь выдает ошибку.