Explorar o código

* Solved bug #9503

git-svn-id: trunk@9120 -
joost %!s(int64=18) %!d(string=hai) anos
pai
achega
14b583455c
Modificáronse 1 ficheiros con 1 adicións e 1 borrados
  1. 1 1
      packages/fcl-db/src/fields.inc

+ 1 - 1
packages/fcl-db/src/fields.inc

@@ -380,7 +380,7 @@ end;
 procedure TField.FocusControl;
 
 begin
-  FDataSet.DataEvent(deFocusControl,ptrint(Self));
+  FDataSet.DataEvent(deFocusControl,ptrint(@Self));
 end;
 
 procedure TField.FreeBuffers;