Динамический TNotifyEvent

[kettanaito]

Задача такова: есть TPopupMenu. В него динамически добавляются элементы, которые в качестве Caption содержат директории (C:\,F:\ и тд). Нужно динамически прописать, чтобы при клике на элемент его Caption исполнялся в ShellExecute.

Возможно такое сделать?

[chertovich]

в событии OnPopup получаете ваши директории и добавляете к PopupMenu

[kettanaito]

chertovich, я использую такую процедуру добавления:

  dirPopup.Items.Clear;
  for b:=0 to Count-1 do
  begin
  menuItem:=TMenuItem.Create(dirPopup);
  menuItem.Caption:=DirList.Items[b];
  menuItem.OnClick:=nil; // Здесь присвоить TNotifyEvent;
  menuItem.Tag:=GetTickCount;
  dirPopup.Items.Add(menuitem);
  end;

Как быть в таком случае?

[Аватар]

  menuItem.OnClick:=PopupClick; // Здесь присвоить TNotifyEvent;
...

procedure TForm1.PopupClick(Sender: TObject);
begin
//TMenuItem(Sender).Caption и будет ваша дирректория
//ток не понятно что будет запускать ShellExecute
end;

[kettanaito]

Аватар, спасибо, так и думал.