Meine erste Kompo: Problem mit dem Changeereignis

[mr2]

Hallo,

Du brauchst natürlich einen Setter für die Property Value.

mr2

Delphi-Quellcode:

 TIntegerComponent = class(TComponent)
  private
    FValue: Integer;  // besser Integer nehmen & alles was mit 'F' beginnt immer private lassen!
    FOnValueChange: TValueChangeEvent;
    procedure SetValue(NewValue: Integer);   
    { Private-Deklarationen }  // diese Kommentare sollten immer am Ende eines Blocks stehen
  published
    property OnValueChange: TValueChangeEvent read FOnValueChange write FOnValueChange;
    property Value: Integer read FValue write SetValue;
    { Published-Deklarationen }
  end;

procedure TIntegerComponent.SetValue(NewValue: Integer);
begin
  if (NewValue <> FValue)
  then begin
    if Assigned(FOnValueChange)
    then FOnValueChange(Self, FValue);
    FValue := NewValue;
  end;
end;