Wie erzeugt man ein Event?

[DeddyH]

Deklaration eines EventHandlers:

Delphi-Quellcode:

type 
  TMyEvent = procedure(<Parameter>) of object;

  TDings = class
  private
    FOnEvent: TMyEvent;
    ...
  public
    property OnEvent: TMyEvent read FOnEvent write FOnEvent;
    ...
  end;

implementation

procedure TDings.DoSomething;
begin
  DoWork;
  if Assigned(FOnEvent) then
    FOnEvent(<Parameter>);
end;

Wobei man bei Events eines Threads (meistens) darauf achten sollte, dass man diese synchronisiert auslöst.

Delphi-Quellcode:

procedure TMyThread.Execute;
begin
  ...
  Synchronize(DoEvent);
  ...
end;

procedure TMyThread.DoEvent;
begin
  if Assigned(FOnEvent) then
    FOnEvent(<Parameter>);
end;