Hab ein ähnliches Problem. Verwende die
OLE-Demo als Vorlage und arbeite mit Objects und nicht mit Records.
Verschieben per DragDrop funktioniert bestens, beim kopieren sind die Daten weg.
Delphi-Quellcode:
PNodeDataBasic = ^TNodeDataBasic;
TNodeDataBasic = class
Caption : string;
end;
NodeDataGroup = ^TNodeDataGroup;
TNodeDataGroup = class(TNodeDataBasic)
Filename : string;
end;
NodeDataFile = ^TNodeDataFile;
TNodeDataFile = class(TNodeDataGroup)
Status : integer;
List : TStringList;
end;
NodeDataTest = ^TNodeDataTest;
TNodeDataTest = class(TNodeDataBasic)
Nr : integer;
Count : integer;
List : TStringList;
end;
Auch bei Rocords mit Objects besteht dieses Problem.
Delphi-Quellcode:
PNodeData = ^TNodeData;
TNodeData = record
Caption: String;
List: TStringList;
Daten:string;
end;
Wie werden die einzelen Knoten mit den Daten kopiert? Muss ich da LoadNode und SaveNode oder sonst noch was füttern.
Erich