bonjour tous,
j'ai un gros souci avec une utilisation des plus basique dans les BPL.
je souhaite assigné une procedure X à une propriété (evenement perso) d'un Object chargé depuis un bpl.
malheureusement je me retrouve avec le message 'pas assez de parametres originaux'.
J'ai l'impression que Delphi ne veut pas que j'assigne ma methode comme on peut le faire avec des TNotifyEvent habituellement et demande les parametres necessaires a l'appel de cette methode.
j'ai testé SetPropValue SetMethodProp mais rien ne marche. voila le code:
Quelqu'un est t il deja passé par là?
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20 type TEventError = procedure (CatchException: Exception;TypErr: TEnumErr; Mess: String) of Object; ... procedure ThrowError(CatchException: Exception;TypErr: TEnumErr; Mess: String); ... property ErrorEvent : TEventError read FOnErrorEvent write FOnErrorEvent; ... //v : variant avec throwError assigné à ErrorEvent if IsPublishedProp(LoadObject,'OnErrorEvent') then begin v := ErrorEvent; SetPropValue(LoadObject,'OnErrorEvent',v); end; ou //v: Tmethod v := ThrowError; SetMethodProp(LoadObject,'OnErrorEvent',v);
Partager