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 