Właściwość wyliczeniowa

Hej! Mam problem.. otóz potrzebuje sobie w komponencie zrobić właściwośc wyliczeniową czyli np taka jak Align. Ale teraz gdy np zadeklaruje nowy typ:

type 
  TMoj=(mtA, mtB, mtC);
  TMojTyp=set of TMoj;

TMojKomponent = class(TLabel)
  private
    FMoj: TMojTyp;
  public
    ...//konstruktor, destruktor...itd.
  published 
    property Wybor: TMojTyp read FMoj write FMoj default [mjB];
end;

To w takim wypadku robi mi się właściwość zbiorowa o podpunktach: mjA, mjB, mjC które sa typu Boolean a mnie zależy zeby było tak jak align czyli <ort>po prostu</ort> lista rozwijalna z mozliwością wyboru: mjA, mjB, mjC :( [???] </delphi>

FMoj: TMoj;

No tak ale wtedy Wybór tez musi być TMoj ??

Tak. Właściwość zbiorowa - edytor dla zbiorów (wyświetla wszystkie elementy i dla każdego True/False). Właściwość wyliczeniowa - lista (chyba, że definiujesz niestardandowe edytory :) )

Oki dzieki bardzo ... :) [soczek]