TMenuItem wird nicht angezeigt unter componentes?

[mimi]

jetzt habe ich doch deinen code verwendet: Lannes
aber leider rufe ich ihn anscheid falsch auf:

Delphi-Quellcode:

procedure TForm1.GetMenuItems(aMenuItem: TMenuItem;aNode2: TTreeNode;TreeView:TTReeView);
var z     : Integer;
    aItem : TMenuItem;
    aNode : TTreeNode;
    s     : string;
begin
  for z := 0 to aMenuItem.Count-1 do
    begin
    aItem := aMenuItem.Items[z];
    aNode := ANode2;
    s := aItem.Name;
    aNode := TreeView.items.Addchild(aNode,s);
    if aItem.Count > 0 then
      GetMenuItems(aItem,aNode,TreeView);//rekursiv
    end;//Ende for z
end;

procedure TForm1.BearbeitenClick(Sender: TObject);
begin
  Form5.TreeView1.Items.Clear;
  GetMenuItems(Fovoriten1,nil,Form5.TreeView1);
  Form5.ShowModal;
end;

aber den code leicht geändert.....

[Lannes]

Hallo,

welche Fehlermeldung liegt vor,
oder was läuft nicht?
Eventuell > "Undefinierter Bezeichner: 'Fovoriten1'" ?
Kann es sein,
das dass Problem da begraben ist : 'Favoriten1' ungleich 'Fovoriten1' ?

[mimi]

nein kein fehlermeldung das menu wird in der TreeView falsch angezeigt:
dort stetht bearbeiten programm alles punkte die im menu vorkommen aber ich möchte ja nur das Favoriten menu auslesen und nicht die ganzen menus !

[Lannes]

Hallo,

kann eigentlich nicht sein,
das wenn Favoriten als Variable beim Aufruf genutzt wird,
die anderen Items mit in das TreeView eingebaut werden.
Was passiert wenn z.B. Bearbeiten abgefragt wird?

[mimi]

Das Problem ist das bearbeiten und Updaten Untermenupunkte von Favoriten menu sind und es werden in der TreeView angezeigt:
Bearbeiten(1 Eintrag)
Updaten(2 Eintrag)
und der Trennstrich(-)
aber erst ab den Trennstrich geht es los....
Edit:
ich rufe die funktion so auf:
  GetMenuItems(Style_favoriten,form5.TreeView1.Items.GetFirstNode,Form5.TreeView1); habe den namen des menus geändert *G* geht aber immer noch nicht !

[mimi]

Lösung gefunden
du hattes einen kleinen fehler bei dir eingebaut:
s := aItem.Caption; bei dir statt da .name und nicht .caption
jetzt wird es richtig angezeigt allerding mit 3 punkten die nicht angezeigt werden soll und das änder ich per tag glaube ich!

[mimi]

Delphi-Quellcode:

procedure TForm1.GetMenuItems(aMenuItem: TMenuItem;aNode2: TTreeNode;TreeView:TTReeView);
var z     : Integer;
    aItem : TMenuItem;
    aNode : TTreeNode;
    s     : string;
begin
  for z := 0 to aMenuItem.Count-1 do begin
    if aMenuItem.Items[z].Tag <> -2 then begin
      aItem := aMenuItem.Items[z];
      aNode := ANode2;
      s := aItem.Caption;
      aNode := TreeView.items.Addchild(aNode,s);
      if aItem.Count > 0 then
        GetMenuItems(aItem,aNode,TreeView);//rekursiv
    end;//Ende for z
  end;
end;

so sieht der code jetzt aus und er funktioniert so. alle einträge die nicht angezeigt werden sollen, müssen mit -2 gekennzeichnet werden. dann klappt es wunderbar.
Vielen dank für deine hilfe