Discussion :

[the big ben 5]

Bonjour,

J'ai un truc assez spécial et à part un bug de delphi 2006 je ne me l'explique pas!

J'ai une interface:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
TIVue = interface
    function get_CalculButton_click : VueEvent;
    procedure set_CalculButton_click(ve : VueEvent);
    property CalculButton_click: VueEvent read get_CalculButton_click write set_CalculButton_click;
 
    function getValeur() : string;
  end;

Puis bien sur la class qui l'implémente et ensuite j'ai une 3ème class qui "écoute" l'évennement via un Include:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Include(Self.v.CalculButton_click, Self.CalcBtn_click);

mais il me dit toujours "Property required" or quand je fait ctrl+espace il me marque bien qu'il s'agit d'une propriété!

Par contre si je fait simplement:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Self.v.CalculButton_click := Self.CalcBtn_click;

ca ca passe sans problèmes

Alors si vous savez m'éclairer sur la question ou bien que vous avez le même problème merci à vous

Ben

[flash_math]

Ben, tout simplement c'est que ta propriété calculButton_click n'est pas un événement multicast donc tu ne peux pas utiliser Include.

[the big ben 5]

Ok mais alors comment le rendre multicast dans mon inteface???
Je devrait mettre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

property CalculButton_click: VueEvent add get_CalculButton_click remove set_CalculButton_click;

Mais il n'a pas l'air de l'accepter ... Comment puis je faire???

[flash_math]

Comment ça il a pas l'air de l'accepter ?

[the big ben 5]

Mon interface est donc devenue:

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
21
22
23
unit IVue;
 
interface
 
uses Modele;
 
type
  VueEventArgs = class (EventArgs)
  end;
 
  VueEvent = procedure (sender : system.object; e : EventArgs) of object;
 
  TIVue = interface
    function get_CalculButton_click : VueEvent;
    procedure set_CalculButton_click(ve : VueEvent);
    property CalculButton_click: VueEvent add get_CalculButton_click remove set_CalculButton_click;
 
    function getValeur() : string;
  end;
 
implementation
 
end.

Et il me fait comme erreur:
[Pascal Error] IVue.pas(16): E2008 Incompatible types
[Pascal Fatal Error] V.dpk(39): F2063 Could not compile used unit 'IVue.pas'

[flash_math]

Dans l'aide il est spécifié que les interfaces ne peuvent contenir que des procédures ou des fonctions mais pas de propriétés.