Ich glaube es liegt daran:
Delphi-Quellcode:
constructor TeVCLqueryTable.Create(
const VST: TVirtualStringTree;
const MySQL:TmySQLe);
begin
FVST := VST;
FMySQL :=
MySQL;
//Hier weise ich Funktionen und Proceduren zu, welche sich innerhalb des Objekts befinden.
FVST.OnGetText := onGetText;
FVST.OnFreeNode := onFreeNode;
FVST.OnBeforeCellPaint := onBeforeCellPaint;
FsearchMode := false;
//Optische einstellungen treffen!
//FVST.Header.AutoSizeIndex := 0; //, hoVisible, hoColumnResize, hoHeaderClickAutoSort
FVST.Header.Options := FVST.Header.Options + [hoAutoResize];
FVST.TreeOptions.PaintOptions := [toShowRoot, toThemeAware];
//FVST.TreeOptions.AutoOptions := [toAutoChangeScale];
FVST.TreeOptions.MiscOptions := [toFullRepaintOnResize];
end;
Ich weise dem VirtualStringTree ein paar Proceduren und Funktionen zu, welche sich innerhalb des Objekts befinden.
Wie dumm auch ^^ Dann ist es klar, dass es nach dem Free nicht mehr geht.
Nun muss ich mir was überlegen, wie man dies am besten löst, so dass der VirtualStringTree weiterhin seine Daten anzeigt.