+ TWndMethod

git-svn-id: trunk@3402 -

rtl/win32/classes.pp

@@ -29,6 +29,9 @@ uses
   typinfo,
   windows;
 
+type
+  TWndMethod = procedure(var msg : TMessage) of object;
+
 {$i classesh.inc}
 
 implementation
@@ -41,7 +44,7 @@ uses
 
 initialization
   CommonInit;
-  
+
 finalization
   CommonCleanup;
 end.

rtl/win64/classes.pp

@@ -29,6 +29,9 @@ uses
   typinfo,
   windows;
 
+type
+  TWndMethod = procedure(var msg : TMessage) of object;
+
 {$i classesh.inc}
 
 implementation

rtl/wince/classes.pp

@@ -31,6 +31,9 @@ uses
   typinfo,
   windows;
 
+type
+  TWndMethod = procedure(var msg : TMessage) of object;
+
 {$i classesh.inc}
 
 implementation
@@ -43,7 +46,7 @@ uses
 
 initialization
   CommonInit;
-  
+
 finalization
   CommonCleanup;
 end.