Gibt es in einer Form eine Liste der PopUp Menus

[Amateurprofi]

Mit

Delphi-Quellcode:

for I:=0 to ControlCount-1 do
   S:=S+Controls[I].Name+#13;
ShowMessage(S);

kann ich die in einer Form enthaltenen Controls auflisten

PopUp-Menus sind da nicht enthalten.

Gibt es eine Möglichkeit, ähnlich wie bei Controls, eine Liste der vorhandenen PopUp-Menus auszuwerten?

[Redeemer]

Was du suchst ist Components, das enthält alle Komponenten. Controls enthält alle Steuerelemente, also sichtbare, die sich in einem Parent befinden. Und ein PopupMenü ist nicht sichtbar sondern eins von diesen Dingern, die zur Entwurfszeit nur als kleines Quadrat mit Text auftauchen, und die auch kein Parent haben - man kann sie ja nur auf der Form, aber sonst nirgendwo rein schieben. Siehe OH.

[himitsu]

Dein Controls ist ja Self.Controls, was Alles an der Form rausgibt.
Was z.B. auf einem Panel liegt, ist dort nicht drin, sondern in dem Panel. Und dazu noch das Erwähnte, mit mit den nur "Sichtbaren", also was nicht sichbar ist (nein, Visible=False ist nicht gemeint) fehlt da natürlich auch.

x.Controls : TWinControl -> y.Parent = x -> alle sichtbaren Komponenten direkt auf der Komponente

x.Components : TComponent (inkl. TWinControl und den TPopupMenü's auf der Form) -> y.Owner = x -> alles was mit Ty.Create(x) erstellt wurde ... und alles was im FormDesigner draufgepackt wurde, hat als Besitzer die Form

[Amateurprofi]

Zitat von Redeemer:

Was du suchst ist Components, das enthält alle Komponenten. Controls enthält alle Steuerelemente, also sichtbare, die sich in einem Parent befinden. Und ein PopupMenü ist nicht sichtbar sondern eins von diesen Dingern, die zur Entwurfszeit nur als kleines Quadrat mit Text auftauchen, und die auch kein Parent haben - man kann sie ja nur auf der Form, aber sonst nirgendwo rein schieben. Siehe OH.

Danke, Redeemer.
Genau danach suchte ich.

[Amateurprofi]

Zitat von Frühlingsrolle:

Mit ddr Funktion GetMenu() bekommst du das gesuchte PopupMenu direkt - zumindest dessen Handle (HMENU).

Nein.
GetMenu() liefert das Handle des Menus, dass dem Fenster zugewiesen ist und nicht ein PopUp-Menu.

[Amateurprofi]

Zitat von himitsu:

Dein Controls ist ja Self.Controls, was Alles an der Form rausgibt.
Was z.B. auf einem Panel liegt, ist dort nicht drin, sondern in dem Panel. Und dazu noch das Erwähnte, mit mit den nur "Sichtbaren", also was nicht sichbar ist (nein, kein Visibe=False) fehlt da natürlich auch.

x.Controls : TWinControl -> y.Parent = x -> alle sichtbaren Komponenten direkt auf der Komponente

x.Components : TComponent (inkl. TWinControl und den TPopupMenü's auf der Form) -> y.Owner = x -> alles was mit Ty.Create(x) erstellt wurde ... und alles was im FormDesigner draufgepackt wurde, hat als Besitzer die Form

Danke, himitsu für die Erläuterungen.