Browse Source

* Mark THandleObject as abstract

git-svn-id: trunk@45875 -
michael 5 years ago
parent
commit
a5db62a300
1 changed files with 1 additions and 1 deletions
  1. 1 1
      packages/fcl-base/src/syncobjs.pp

+ 1 - 1
packages/fcl-base/src/syncobjs.pp

@@ -52,7 +52,7 @@ type
       destructor Destroy;override;
    end;
 
-   THandleObject = class(TSynchroObject)
+   THandleObject = class abstract  (TSynchroObject)
    protected
       FHandle : TEventHandle;
       FLastError : Integer;