komponeten eigenschaften

[sakura]

Auch recht einfach:

Code:

type 
  TArt = (1, 2, 3, 4); 

type 
  TTest = class(tpanel) 
  private 
    { Private declarations } 
    Art     : TArt; 
    [color=#f50000]procedure SetArt(Value: TArt);[/color]
  protected 
    { Protected declarations } 
  public 
    { Public declarations } 
    constructor Create(AOwner: TComponent); override; 
  published 
    { Published declarations } 
    property nummer : TArt 
                         read  Art 
                         write [color=#ff0000]SetArt [/color]
                         default 3; 
  end;

[color=#f50000]procedure TTest.SetArt(Value: TArt);
begin
  if Value <> Nummer then
  begin
    // ÄNDERUNG
    Nummer := Value;
  end;
end;[/color]

......