TMainMenu und TPopUpMenu

[roderich]

hallo Michaela_,

soviel ich weiß nicht, hatte zumindest beim gleichen Problem irgendwann entnervt aufgegeben und mir daher diese Prozedur selbsgebastelt:

Delphi-Quellcode:

procedure Menu2PopupMenu(aMenuItem: TMenuItem;
                         aPopupMenu: TPopupMenu);
var
  i: integer;
  NewMenuItem: TMenuItem;
begin
  aPopupMenu.Items.Clear;
  for i := 0 to aMenuItem.Count-1 do
    begin
      NewMenuItem := TMenuItem.Create(aMenuItem);
      NewMenuItem.Caption := aMenuItem[i].Caption;
      NewMenuItem.OnClick := aMenuItem[i].OnClick;
      NewMenuItem.ImageIndex := aMenuItem[i].ImageIndex; // nur Images dieselben !
      NewMenuItem.Tag := aMenuItem[i].Tag;
      NewMenuItem.Enabled := aMenuItem[i].Enabled;
      NewMenuItem.Visible := aMenuItem[i].Visible;
      aPopupMenu.Items.Add(NewMenuItem);
    end; // for i
end; // Menu2PopupMenu

falls jemand was besseres kennt, her damit !!

vlG
Roderich