Hallo,

ich habe ca. 8 PopUp Menüs die ich teilweise dynamisch fülle und dynamisch entscheide welches genommen wird.
Soweit kein Problem. Aber alle 8 bekommen jetzt einen Untermenü mit Einträgen aus einer DB. Alle 8 quasi das Gleiche.
Deshalb dachte ich mir ich kann es mir einfach machen und die Daten einmal auslesen und allen Menüs zuweisen.
Also in etwa so etwas:

markieren

Delphi-Quellcode:

Item:= TMenuItem.Create(Self);
Item.Caption := 'Test';

Menu1.Add(Item);
Menu2.Add(Item);

Geht natürlich nicht, Menu2 wird nicht gefüllt. Irgendwie logisch, Item ist ja schon in Verwendung.
Allerdings, kann ich es - mit dem selben Namen - erneut creieren und dann an Menu2 hängen.

Wie mache ich das aber automatisch, so das ich nicht für jedes Menü das Gleiche per Hand schreiben muss?

Gruß,
Andreas

Einfach kopieren...

zusammenfalten · markieren

Delphi-Quellcode:

procedure CloneMenuItem(source, dest : TMenuItem);
begin
   dest.Action := source.Action;
   dest.Caption := source.Caption;
   dest.ShortCut := source.ShortCut;
   dest.Checked := source.Checked;
   dest.Enabled := source.Enabled;
   dest.Visible := source.Visible;
   dest.OnClick := source.OnClick;

   dest.HelpContext := source.HelpContext;
   dest.Hint := source.Hint;
   dest.RadioItem := source.RadioItem;
end;

procedure CopyMenuItems(source, dest : TMenuItem);
var
   i : Integer;
   mi : TMenuItem;
begin
   Assert(Assigned(source), 'no source menu item');
   Assert(Assigned(dest), 'no destination menu item');
   dest.Clear;

   for i :=0 to source.Count-1 do
   begin
      mi := TMenuItem.Create(dest);
      CloneMenuItem(source.Items[i], mi);
      dest.Add(mi);
      if source.Items[i].Count > 0 then
         CopyMenuItems(source.Items[i], mi); // rekursiver Aufruf ;-)
   end;
end;

CopyMenuItems(PopupMenu1.Items, PopupMenu2.Items);

Danke, klappt perfekt .