Fenster Menue erstellen

[dor557]

So die Letzte antwort hat mir nun geholfen.

so sieht der Fertige Code aus :

Delphi-Quellcode:

    Fenster.Clear;
    for I := 0 to Screen.FormCount-1 do
    begin
    Fenster_Item := TMenuItem.Create(MainForm);
      Fenster_Item.Caption := Screen.Forms[i].Name;
      Fenster.add(Fenster_Item);
    end;

und es Funktioniert. Nur die Caption will er irgendwie nicht nehmen...

Was anderes. warum wird wenn es 2 Formulare sind ein FormCount von 3 angezeigt ??? aber nur 2 Formulare in das Menü geschrieben ??