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