Component for editing a variable of an enumeration-defined type.
The list of possible values can be filled in the oninit event, using the typeinfopo property, as in the following example.
uses
main_mfm,
typinfo;
type
TFruit = (Apple, Apricot, Cherry, Pear);
procedure tmainfo.editinit(const sender: tenumtypeedit);
begin
sender.typeinfopo := PTypeInfo(TypeInfo(TFruit));
end;
 |