Example of UserDefined property -
Strings in TStrings (and all descendants) class: interface uses type implementation { TssPropStringsText } function TssPropStringsText.GetValue(Dest: TObject):
string; initialization KeepPropsRegisterCustomProperty(TssPropStringsText.Create(TStrings, 'Text', 'TEXT', tkString)); end. |
||
visits since 15/May/1999 |
Copyright © 1999, Stefan Stefanov, last updated 20 Септември 1999 |