Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > PopupMenu

Автор: Sponger 12.4.2006, 13:07

Есть массив TImage созданных программно. Каждому Timage присваивается PopupMenu. Как узнать какому Timage принадлежит меню.

Автор: Matematik 12.4.2006, 13:16

Когда-то я делал так

Код


    mi := Sender as TMenuItem;
    if mi.GetParentComponent is TPopupMenu then
    begin
      pm := mi.GetParentComponent as TPopupMenu;
      if pm.PopupComponent is TTreeView then
      begin
        tv := pm.PopupComponent as TTreeView;
      end
    end

Автор: Sponger 12.4.2006, 13:52

Спасибо. Помогло.