Reihenfolge Menüeinträge für TMainMenu

[Hansa]

Hi,

habe hier diverse Forms, bei denen muss eine unterschiedliche Anzahl an TMainMenu-Items erzeugt werden. Deshalb wird das erst zur Laufzeit gemacht :

Delphi-Quellcode:

for i := 0 to ComponentCount - 1 do begin
...
  menu.Items.Add (NewItem);
...

So, das Menü ist da, aber die Einträge sind wie Kraut und Rüben durcheinander. Wie wird die Reihenfolge bestimmt ? Taborder ists offenbar nicht.

[mirage228]

Also entweder direkt über Insert oder mit Exchange (oder Move )

Viele Grüße

[Hansa]

Das Add ist also quasi ein Zufallsgenerator ?

[mirage228]

Ach sorry, hab Deine Frage nicht ganz richtig gelesen.

Dann würde ich eher die Components[] Eigenschaft Deines Controls verantwortlich zeichnen, diese wird ja beim Entfernen und Hinzufügen von neuen Komponenten immer wieder geändert... da könntest Du dann ja mal mit den Nachforschungen ansetzen...

[Hansa]

Zitat von mirage228:

..wird ja beim Entfernen und Hinzufügen von neuen Komponenten immer wieder geändert...

Da wird NICHTS immer wieder geändert. Lediglich im Formcreate werden die Dinger erzeugt. Aber bisher in willkürlicher Reihenfolge.

[jfheins]

Zitat von Hansa:

Da wird NICHTS immer wieder geändert. Lediglich im Formcreate werden die Dinger erzeugt. Aber bisher in willkürlicher Reihenfolge.

Nö - in der Reihenfolge, wie die Komponenten im Components[] Array drinstehen. Das wird wahrscheinlich dieselbe sein, in der du die Komponenten aufs Formular getan hast ...

[Christian Seehase]

Moin Hansa,

Du solltest mal ein bisschen mehr Code herausrücken.
Bei dem Bisschen kann ich den Fehler nicht reproduzieren.

[Hansa]

Die paar Zeilen sind kein Problem. Bzw. sie zu posten.

Delphi-Quellcode:

procedure TfrmMenue.FormCreate(Sender: TObject);
var i : Integer;
    c : TComponent;
    NewItem: TMenuItem;
begin
  inherited;
  men := TMainMenu.Create(self);
  for i := 0 to ComponentCount - 1 do begin
    c := Components [i];
    if c is TmyPanel then
      NeuerMenueEintrag (men,c as TmyPanel);
  end;
end;

procedure TfrmMenue.NeuerMenueEintrag (var men : TMainMenu;c : TmyPanel);
var NewItem : TMenuItem;
    i : Integer;
    st : string;
begin
  NewItem := TMenuItem.Create(men);
  NewItem.Caption := c.Caption;
  NewItem.Name := 'men' + copy (c.Name,4,length(c.Name));
ShowMessage(NewItem.Name+' '+IntToStr (c.TabOrder));
  NewItem.OnClick := c.OnClick;
  menu.Items.Add (NewItem);
end;

Vielleicht sieht ja einer was.

[mirage228]

Wo ist der Unterschied zwischen menu (letzte Zeile) und men (Parameter)? Vielleicht liegts ja daran...

[Hansa]

Ne, men= menu (Schreibfehler)