Komponente erstellen: Untereinträge

[Martin K]

Okay, also ich habe jetzt praktisch zwei Möglichkeiten:

1.

Delphi-Quellcode:

type
  THoverEffect = (heColor, heCursor, heUnderline);
  THoverEffects = set of THoverEffect;

  TLinkLabel = class(TLabel)
  private
    he: THoverEffects;
  published
    property HoverEffect: THoverEffects read he write he;
  end;

2.

Delphi-Quellcode:

type 
  THoverEffects = class(TPersistent) 
  private 
    Col,Cur,U: Boolean; 
  published
    property heColor: Boolean read Col write Col; 
    property heCursor: Boolean read Cur write Cur; 
    property heUnderline: Boolean read U write U; 
  end; 

type 
  TLinkLabel = class(TLabel) 
  private 
    he: THoverEffects; 
  published
    property HoverEffect: THoverEffects read he write he; 
  end;

Welche