Ich kling nur so unfreundlich, weil das da absolut "dahingeschusselt" aussieht. Fast so, als ob du selbst nicht wirklich wüßtest, was du da machst.
Afaik werden Check- und Comboboxes auch nicht SO in den Baum gebracht, sondern über Property-Links oder wie das heisst.
Zitat:
Ich habe die get_entry Methode geändert. Bringt auch nichts.
Ja, weil du's damit noch schlimmer gemacht hast. Wie wäre es so?
Delphi-Quellcode:
function TForm1.add_entry(node:PVirtualNode;bez,f1,f2,f3,f4,f5,f6:string):PVirtualNode;
var daten:TOmeinedaten;
begin
daten:=TOmeinedaten.Create;
daten.Bezeichnung:=bez;
daten.Feld[1]:=f1;
daten.Feld[2]:=f2;
daten.Feld[3]:=f3;
daten.Feld[4]:=f4;
daten.Feld[5]:=f5;
daten.Feld[6]:=f6;
result:=vst.addchild(node,daten);
end;