JvDBTreeView und DragnDrop

[marabu]

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