[TTreeView] Während Drag&Drop auf Select reagieren

[toms]

Meinst du so?

Delphi-Quellcode:

procedure TForm1.TreeView1DragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
var
  Node: TTreeNode;
begin
  Node := TreeView1.GetNodeAt(X, Y);
  if Assigned(Node) then
    Node.Expand(False);
end;