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 :gruebel:)

Viele Grüße

[Hansa]

Das Add ist also quasi ein Zufallsgenerator ? :mrgreen: :gruebel:

[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:

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:

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)