Hallo Andreas,
wenn ich dein Problem richtig verstehe, dann geht es dir nur um die Ermittlung des korrekten Datensatzes zu einem bestimmten Knoten im JvDBTreeView und alles andere sind Hintergrundinfos?
Delphi-Quellcode:
procedure TDemoForm.DemoPanelDragOver(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean);
begin
Accept := (Source is TJvDBTreeView) and Assigned(TJvDBTreeView(Source).Selected);
end;
procedure TDemoForm.DemoPanelDragDrop(Sender, Source: TObject; X, Y: Integer);
begin
with Source as TJvDBTreeView do
TPanel(Sender).Caption := DataLink.DataSet.Fields[0].AsString;
end;
So sollte es funktionieren.
Freundliche Grüße vom marabu