Hab jetzt nach Spiders Methode diesen Code geschrieben:
Delphi-Quellcode:
type
THoverEffects = class(TComponent)
private
Col,Cur,U: Boolean;
public
property Color: Boolean read Col write Col;
property Cursor: Boolean read Cur write Cur;
property Underline: Boolean read U write U;
end;
type
TLinkLabel = class(TLabel)
private
Effects: THoverEffects;
public
property HoverEffect: THoverEffects read Effects write Effects;
end;
Werd ich gleich mal testen, aber zumindest meckert der Compiler nicht...
@Der_Unwissende:
Wie funktioniert das denn mit dem Bitfeld ? Hast Du evtl. ein Code-Beispiel ?
Ursprünglich wollte ich es mit einem Record lösen, also so:
Delphi-Quellcode:
type
TLinkLabel = class(TLabel)
private
THoverEffects = Record
Color, Cursor, Underline: Boolean;
Effects: THoverEffects;
public
property HoverEffect: THoverEffects read Effects write Effects;
end;
Aber das hat meinem Compiler irgendwie nicht gefallen...