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

[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;