dragmanager: fix typo

git-svn-id: trunk@13747 -
This commit is contained in:
paul 2008-01-14 08:54:39 +00:00
parent a2dfc721bd
commit 00d2ada452

View File

@ -139,7 +139,7 @@ var
begin
inherited Create(AManager, AControl);
AControl.DoStartDock(FDragObject);
AControl.DoStartDrag(FDragObject);
if FDragObject = nil then
begin
FDragObjectAutoFree := true;