Propertys zusammenfassen

[snow]

sehr simpel

Delphi-Quellcode:

type TJTBahnhofsUhrColors = class(Tobject)
        private
          Fbkcolor          : TColor;
          FPPcolor          : Tcolor;
          FPBColor          : TColor;
        published
          property bkColor : Tcolor read FbkColor write FbkColor;
          property PPColor : Tcolor read FPPColor write FPPColor;
          property PBColor : Tcolor read FPBColor write FPBColor;
        end;

gruß snow