DragDrop im Treeview - wo bin ich?

[fillibuster]

Hallo,

ich verschiebe Items per DragDrop in einem Treeview. Ist es möglich zu visualisieren, wo ich mit dem Item gerade bin (Linie/Hintergrund des darunterliegenden Items ändern ...)? In welchem Event?

Dnake ...

[fillibuster]

Putsch :stupid:

[Bummi]

Irgendetwas in der Art ...

Delphi-Quellcode:

procedure TForm2.TreeView1DragOver(Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean);
begin
  if Assigned(TreeView1.DropTarget) then TreeView1.DropTarget.Focused := true;
end;

[fillibuster]

Hi,

da passiert leider nichts. Habe es jetzt einmal so getestet, aber da geht auch nichts:

Delphi-Quellcode:

procedure Tmain.assignmentsTreeDragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
var
  tnode : TTreenode;
begin
  if Assigned(assignmentsTree.DropTarget) then
  begin
    tnode := assignmentsTree.GetNodeAt(X,Y);
    tnode.Focused := true;
  end;
  Accept := ((Source = articles.articleList) or (Source = assignmentsTree));
end;

Viele Grüße ...

[Bummi]

Dann habe ich Dich falsch verstanden, oder wir machen es unterschiedlich ....
Ich habe mal Source und "Echse" angehängt

[fillibuster]

Hallo,

erst einmal vielen Dank für deine Mühe. Ich verwende einen HTMLTreeview von TMS. Dieser ist aber vom Treeview abgeleitet. Dann muss der Fehler wohl in der Komponente liegen :?

Viele Grüße ...

[Bummi]

ich habe sogar noch eine VM wo der Kram installiert ist, man kann etwas damit hinmogeln, ob Du es so machen willst überlasse ich Dir ....

Delphi-Quellcode:

var
FDragNode:TTreeNode;//gehört in die Klasse oder zumindest initial genilt

procedure TForm2.Treeview1DragDrop(Sender, Source: TObject; X, Y: Integer);
begin
   if Assigned(FDragNode) then
      begin
       FDragNode.MoveTo(TreeView1.DropTarget,naAddChild);
       FDragNode := nil;
      end;
end;

procedure TForm2.Treeview1DragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
begin
  if Assigned(TreeView1.DropTarget) then
    begin
    TreeView1.DropTarget.Selected := true;
    end;
end;

procedure TForm2.Treeview1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
   Treeview1.BeginDrag(false);
   FDragNode := TreeView1.Selected;
end;