Objektereignisse bearbeiten

[xineohp]

moin,

Delphi-Quellcode:

tMyClass = class
private
  FOnIrgendwas: tNotifyEvent;
  procedure IrgendeineMethode;
public
  property OnIrgendwas: tNotifyEvent read FOnIrgendwas write OnIrgendwas;
end;

implementation

procedure tMyClass.IrgendeineMethode;
begin
  {...}
  If Assigned(FOnIregndwas) then
    FOnIrgendwas(self)
  {...}
end;

Ich hoffe das hilft.