Property CustomData : TObject or so, as a public property.
Or more flexible:
CstomData: packed record
case integer of
0 : (i64: int64);
1 : (lo32, hi32 : Cardinal);
2 : (Words : Array[0..3] of Word);
3 : (Bytes : Array[0..7] of Byte);
4 : (p : pointer);
5 : (obj : TObject);
end;
Benito
--
_______________________________________________
Lazarus mailing list
[email protected]
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
