VCL TreeView / BeginDrag / DragMode=dmManual

[ituerk]

Beim automatischen Starten von DnD (DragMode=dmAutomatic) muss die Maus erst ein Stück bewegt werden, bevor der Drag-Cursor angezeigt wird.

Ich versuche gerade erfolglos, das gleiche im DragMode=dmManual zu erreichen.
Ich verwende das MouseDown-Ereignis und rufe dort BeginDrag auf.
Die Parameter Immediate und Threshold sind ja extra dafür da, damit das Ziehen nicht sofort initiiert wird.
Tatsächlich scheinen sie aber völlig wirkungslos zu sein, auf jeden Fall wird bereits beim Anklichen eines TreeNodes der Drag-Cursor angezeigt, solange die Maustaste gedrückt ist.

Hat da jemand einen Tip?

[ConnorMcLeod]

Funktioniert bei mir auf diese Weise:

Delphi-Quellcode:

procedure TMainForm.Edit1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  Edit1.BeginDrag(False, 5);
end;