Event zur DesignTime benutzen

[arbu man]

Ich habe für das Event einen Eigenen Typ definiert:

Delphi-Quellcode:

  TExecuteFunction = procedure(Sender: TObject; const AParams: array of Variant;
      var ReturnValue: Variant) of object;

Das Event selbst ist eine einfache property:

Delphi-Quellcode:

  published
    ...
    property OnExecute: TExecuteFunction read FOnExecute write FOnExecute;
  end;