Aha. Kling sinnig. Gut zu wissen.
Wäre dann die Lösung
width nicht zu verwenden?
Also so:
Delphi-Quellcode:
procedure TCustomElTree.StartDragTransfer(Sender : TObject; var DragObject : TDragObject);
{ Transfers FView OnStartDrag event to the outside world. }
begin
DragObject.DragPos.y := DragObject.DragPos.y + FView.Top;
DragObject.DragPos.X := DragObject.DragPos.X + FView.Left;