Basisklasse und davon abgeleitet drei Standardklassen

[guidok]

Vielleicht kannst du ja sowas machen:

Delphi-Quellcode:

Type 
   TExtra = class
      FWind: String;
      FEigenschaft1: Integer; 
      FEigenschaft2: Integer; 
      FEigenschaft3: Integer;
      Procedure SetWind(Const Value: Integer);
   public 
       Property Wind: String read FWind write SetWind; 
   End;

   TEditklasse = Class(TEdit) 
   private 
      FExtra: TExtra; 
   public 
       Property Extra: String read FExtra write FExtra; 
   End; 

   TLabelklasse = class(TLabel) 
       FExtra: TExtra; 
   public 
       Property Extra: String read FExtra write FExtra; 
   end; 

   TMemoklasse = Class(TMemo) 
       FExtra: TExtra; 
   public 
       Property Extra: String read FExtra write FExtra; 
   End;