Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Keks,
25. Sep 2010
@Stevie
Danke für den Alternativvorschlag. Bekomme es damit aber leider auch nicht hin...
Ich nehme mal an, das müsste "LNodeData := Tree.GetNodeData(Node);" in beiden Funktionen heißen.
Dann hab ich das so versucht:
procedure TForm1.Button1Click(Sender: TObject);
var
obj1, obj2 : TObject;
begin
obj1 := GetObjectOfNode(VST.GetFirst, VST);
obj2 :=...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Keks,
25. Sep 2010
OK, verstehe. Hatte das ohne Ableitung versucht, weil ich dachte, das kommt aufs Gleiche raus.
Jetzt kompiliert das Ganze, aber getauscht werden die Knoten dennoch nicht.
procedure TForm1.VSTDragDrop(Sender: TBaseVirtualTree; Source: TObject;
DataObject: IDataObject; Formats: TFormatArray; Shift: TShiftState;
Pt: TPoint; var Effect: Integer; Mode: TDropMode);
var
AttachMode :...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Keks,
20. Sep 2010
Danke für die Antwort und sorry für die Verzögerung...
Was ist denn "TotalInternalDataSize"? Wo ist das denn deklariert?
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Keks,
8. Sep 2010
Ich würde gerne im DragDrop-Ereignis die beiden Knoten vertauschen (also FocusedNode mit DropTargetNode). Vermutlich wäre es das beste, deren beide Zeiger zu vertauschen. Leider weiß ich nicht, wie das korrekt geht. Ich denke, dieser Thread geht in eine ähnliche Richtung und ich habe mal etwas herumprobiert, aber es scheitert allein schon daran, dass "TotalInternalDataSize" nicht definiert ist....