TMenuitem.Items auf TPopupmenu abbilden

Knulli · Verfasst: Do 24.09.15 13:26

Hi Leute,

ich suche eine elegante Möglichkeit automatisiert ein Popupmenu zu erstellen, welches die gleiche Struktur hat, wie einer der Menüpunkte im Hauptmenü (incl. deren Untermenüs).

Wenn ich irgendwann mal am Hauptmenü was ändere, soll sich das Popupmenü mit anpassen.

Also sowas in der Art wie

markieren

Delphi-Quelltext

1:
2:
3:

procedure TFMain.FormCreate(Sender: TObject);
...
Popupmenu1.Items := MBearbeiten;

oder

markieren

Delphi-Quelltext

1:
2:

  for IDX := 0 to MBearbeiten.Count-1 do
    PopupMenu1.Items.Add(MBearbeiten.Items[IDX]);

Vorschläge?

_________________
Echte Männer schreiben Windows-Programme in Assembler unter edlin.

Nersgatt · Verfasst: Do 24.09.15 13:39

Dein 2. Ansatz geht in die richtige Richtung. Gehe in einer Schleife die Items des Menüs durch.
Du musst die Items des Popupmenus einzeln erstellen und die relevanten Eigenschaften kopieren (also z.B. die Caption, den ItemIndex oder die OnClick-Procedure).

_________________
Gruß, Jens
Zuerst ignorieren sie dich, dann lachen sie über dich, dann bekämpfen sie dich und dann gewinnst du. (Mahatma Gandhi)

baumina · Verfasst: Do 24.09.15 13:45

www.delphi-treff.de/...enues/menues-klonen/

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme