Das globale Object Screen erlaubt das Auflisten aller Formulare:
Delphi-Quellcode:
for i:=0 to Screen.FormCount-1 do
begin
tmpcaption := Screen.Forms[i].Caption;
if Screen.Forms[i] = Application.MainForm then
// nichts tun (Hauptformular soll nicht ins Menü)
else
ErzeugeDynamischenMenuEintrag(tmpcaption);
end;
Jetzt muss du nur noch herausfinden, wie man zur Laufzeit einen Menüpunkt erzeugt.