Hallo, ich lese eine Baumstruktur aus einer MySQL-Datenbank aus und will diese Struktur in Form eines Menüs in der Toolbar2000-Komponente ausgeben. Ich habe bloß keine Ahnung wie ich einem Submenü (was ich ja schon hinbekomme) weiter Submenüs sowie die Items zur Laufzeit hinzufügen kann?

Die Struktur der DB sieht so aus => id, parent_id,url,description,type (type ist die angabe ob "[dir]" oder "[url]")

Ich gebe die Baumstruktur rekursiv in folgender Prozedure aus (mit Zeos):
(Zum Test mal in einer Listbox)

zusammenfalten · markieren

Delphi-Quellcode:

procedure get_bookmarks(parent_id:integer;ebene:string);
var
  TempQuery : TZReadOnlyQuery;
begin
  TempQuery:=TZReadOnlyQuery.Create(nil);
  TempQuery.Connection:=form1.SqlConnection;
  TempQuery.SQL.Text:='SELECT * FROM bookmarks WHERE parent_id='+inttostr(parent_id);
  TempQuery.Open;
  while not TempQuery.Eof do
  begin
     form1.listbox1.Items.Add(ebene + '['+TempQuery.FieldByName('type').AsString+'] '+TempQuery.FieldByName('description').AsString);
     get_bookmarks(TempQuery.FieldByName('id').AsInteger, ebene + '- ');
     TempQuery.Next;
  end;
  FreeAndNil(TempQuery);
end;

Das Ergebnis in der Listbox sieht so aus (also es funzt alles) :

Zitat:

[dir] sub1
- [url] link1-1
- - [url] link1-1-1
- [url] link1-2
[dir] sub2
- [url] link2-1
- [dir] untersub2-1
- - [url] unterlink2-1-1
[dir] sub3

Soweit so gut. Jetzt hab ich bloß keine Ahnung wie ich die Prozdure um schreiben muss das ich diese Struktur als Menü in eine Toolbar2000 bekomme???

Kann mir jemand weiterhelfen ???

Danke

Kann mir keiner weiterhelfen???