Klasse soll Anwendung nur bei best. Änderung benachrichtigen

[DeddyH]

Delphi-Quellcode:

type TMyForm = class(TForm)
  ...
private
  procedure DoChange; //eine Methode mit identischer Signatur wie in der Klasse
...
end;

...

procedure TMyForm.DoChange;
begin
  ShowMessage('Status geändert');
end;

procedure TMyForm.Wuppdi;
begin
  MyClass := TMyClass.Create;
  ...
  MyClass.OnChange_Func := DoChange; //Zuweisung der Routine
  ...
end;

[edit] Einen Tick zu spät [/edit]