Hallo Zusammen!
Ich such einen Weg, wie ich soetwas wie TFontStyles selber machen kann.
Das heisst, ich will konkret folgendes können:
Code:
...
var MyType: TMyType;
begin
MyType := [subtyp1, subtyp2, ...];
end;
Habe mir schon mal gedacht, dass die "subtypes" bestimmt soetwas wie Enumeratoren sind, also etwas in der art definiertes:
Code:
type TAnyType = (subtyp1, subtyp2, subtyp2);
Konkret würde das bedeuten, dass ich etwas in der Art wie TFontStyles selber erstellen wil (ich nutz das für Attribute eines Selbstdefinierten Objekts, das hat nicts mit Fonts zu tun! Ich würde es nur gerne genauso bedienen)
Damit meine ich, dass man ja TFontStyles so handhabt:
Code:
AFontStyles := [fsBold, fsItalic];
das fsBold, etc. sollte bei mir der TAnyType Enumerator ja schon sein, aber wie bekomme ich das jetzt so hin, dass ich die aneinander Reihen kann wie bei FontStyles?
Vielen Dank und Grüße,
Sebastian