Einzelnen Beitrag anzeigen

newbe

Registriert seit: 14. Okt 2008
143 Beiträge
 
Delphi 7 Personal
 
#1

An Alle Items in einer TBX.Toolbar herankommen

  Alt 4. Mär 2010, 09:45
Moin zusammen!

Ich möchte gerne ALLE Items in einer TBX Toolbar ermitteln. Leider gibt es dort ja kein Findfirst-Findnext;

Ich muesste mich also vom Rootknoten Recursiv nach unten bewegen. Gehts das eventuell auch einfacher?

Momentan versuche ich es so

Delphi-Quellcode:
var
List: TStringlist;
For i: 0 to TBXToolbar1.Items.Count-1 do
begin
  Item:= TBXToolbar1.Items[i];
  List.add(Item.Name);
end;
aber leider erhalte ich dabei nur die Subitems/Items auf dem obersten Level. Weis jemand wie es richtig bzw Effizienter geht.

mfG Newbe
  Mit Zitat antworten Zitat