Нужно создать событие...

[xabik]

Короче такая ситуация.

Есть класс TMyClass1 имеющий поле FMyField:integer;
Есть класс TMyClass2 имеющий поле FmyClass: TMyClass1

Как создать событие для класса TMyClass2, которое отслеживает изменение поля FMyField класса TMyClass1?

[veniside]

type
  TOnFieldChanged = procedure(sender: TObject; NewValue: Integer) of object;

  TMyClass1 = class
  private
    FMyField: Integer;
    FOnFiledChanged: TOnFieldChanged;
    //
    procedure SetMyField(Value: Integer);
  public
    property MyField: Integer read FMyField write SetMyField;
    //
    propery OnFieldChanged: TOnFieldChanged read FOnFiledChanged write FOnFiledChanged;
  end;


  TMyClass2 = class
  private
    FMyClass: TMyClass1;
    //
    procedure FieldChanged(sender: TObject; NewValue: Integer);
  public
    constructror Create(MyClass: TMyClass1);
  end;


{ TMyClass1 }

procedure TMyClass1.SetMyField(Value: Integer);
begin
  if (FMyField <> Value) then begin
    //
    FMyField := Value;
    //
    if (Assigned(FOnFiledChanged)) then
      FOnFiledChanged(self, Value);
  end;
end;


{ TMyClass2 }

constructror TMyClass2.Create(MyClass: TMyClass1);
begin
  FMyClass := MyClass;
  FMyClass.OnFieldChanged := FieldChanged;
  //
  inherited Create();
end;

procedure TMyClass2.FieldChanged(sender: TObject; NewValue: Integer);
begin
  // поле FMyField у FMyClass походу изменилось, надо что-то делать
end;

зы. компилировал "в уме", могут быть неточности.