Einzelnen Beitrag anzeigen

DieDolly

Registriert seit: 22. Jun 2018
2.175 Beiträge
 
#2

AW: VCL: Drag&Drop auf TreeView - nicht auf TreeNode!

  Alt 5. Apr 2019, 17:19
Du könntest eventuell auslesen, welcher Node sich unter X und Y befindet und dann reagieren, wenn sich keiner dort befindet.
Delphi-Quellcode:
procedure TForm1.TreeView1DragDrop(Sender, Source: TObject; X, Y: Integer);
var
 Node: TTreeNode;
begin
 Node := TTreeView(Sender).GetNodeAt(X, Y);

 if Node = nil then
  begin
  
  end;
end;
Das Selektierungsproblem kann man vielleicht so lösen. Getestet habe ich es nicht
Delphi-Quellcode:
procedure TForm1.TreeView1DragOver(Sender, Source: TObject; X, Y: Integer);
var
 Node: TTreeNode;
begin
 Node := TTreeView(Sender).GetNodeAt(X, Y);

 if Node = nil then
  Node.Selected := False;
end;
Oder vielleicht im TreeView1 MouseMove abfragen, ob TreeView1.Dragging True ist und wenn ja, dann das Selektieren von Nodes nicht zulassen.

Geändert von DieDolly ( 5. Apr 2019 um 17:23 Uhr)
  Mit Zitat antworten Zitat