OnChangeValue ?

[Der schöne Günther]

Mach das doch mit einer Property dessen Setter-Methode ein "OnChange"-Event auslöst:

Delphi-Quellcode:

  TMeineKlasse = class
     private
      var FMeinWert: Integer;
      procedure setMeinWert(const value: Integer);
     public
      var OnValueChange: TNotifyEvent;
      property MeinWert: Integer read FMeinWert write setMeinWert;
  end;

procedure TMeineKlasse.setMeinWert(const value: Integer);
begin
   if (FMeinWert = value) then Exit;
   FMeinWert := value;
   if Assigned(OnValueChange) then OnValueChange(self);
end;