Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by arbu man,
28. Mär 2008
Ich hab es jetzt geschafft, der Fehler lag darin das die Collection von TCollection abgeleitet war. Damit man Events benutzen kann muss man die Collection von TOwnedCollection ableiten.
mfg, Björn
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by arbu man,
11. Mär 2008
Also ich habe eine normale Komponente die halt eine Collection hat...
type
TScriptFunctions = class;
TScriptFunction = class(TCollectionItem)
private
FOwner: TScriptFunctions;
FFunctionName: string;
FOnExecute: TExecuteFunction;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by arbu man,
11. Mär 2008
Ich habe für das Event einen Eigenen Typ definiert:
TExecuteFunction = procedure(Sender: TObject; const AParams: array of Variant;
var ReturnValue: Variant) of object;
Das Event selbst ist eine einfache property:
published
...
property OnExecute: TExecuteFunction read FOnExecute write FOnExecute;