Einzelnen Beitrag anzeigen

Benutzerbild von spaxxn
spaxxn

Registriert seit: 19. Nov 2004
253 Beiträge
 
Delphi XE2 Enterprise
 
#6

Re: Klasse soll Anwendung nur bei best. Änderung benachricht

  Alt 26. Jun 2008, 11:26
Da bist du schon auf dem richtigen Weg.

Ich sag erstmal nur soviel, du kannst so ein Event in dein Objekt einbinden. Dem Event kannst du dann später eine Funktion z.B. aus deiner Hauptanwendung zuweisen.

Delphi-Quellcode:
interface
  TOnChange_Proc = procedure() of object;

  TmyObject = class(TObject)
  private
    FOnChange : TOnChange_Proc;
    procedure OnChange;
  public
    constructor Create;
    destructor Destroy; override;
    property OnChange_Func : TOnChange_Proc read FOnChange write FOnChange;
  end;

implementation

procedure TmyObject.OnChange;
begin
  if Assigned(OnChange_Func) then
    OnChange_Func;
end;
Ist jetzt nur auf die schnelle aus dem Kopf
  Mit Zitat antworten Zitat