Discussion :

[Papy214]

Bonjour

La documentation Embarcadero dit ceci:

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
 
type
  TProc = reference to procedure;
  TMyComponent = class(TComponent)
  private
    FMyEvent: TProc;
  public
    // MyEvent property serves as an event:
    property MyEvent: TProc read FMyEvent write FMyEvent;
    // some other code invokes FMyEvent as usual pattern for events
  end;
 
...
 
var
  c: TMyComponent;
begin
  c := TMyComponent.Create(Self);
  c.MyEvent := procedure
  begin
    ShowMessage('Hello World!'); // shown when TMyComponent invokes MyEvent
  end;
end;

Sur le principe, pas de problème ! Sauf que ça impose de définir TProc !

Mais si on veut faire de même avec un événement de type TNotifyEvent, impossible !

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
 
  TFirstClass = class
  private
    FOnTest: TNotifyEvent;
  published
    property OnTest: TNotifyEvent read FOnTest write FOnTest;
  end;
 
..
var
  FirstClass: TFirstClass;
begin
  FirstClass := TFirstClass.Create;
  FirstClass.OnTest := procedure (Sender: TObject)
    begin
      ShowMessage('Hello');
    end;
  FirstClass.Free;

[dcc32 Erreur] Unit1.pas(48): E2009 Types incompatibles : 'pointeur de méthode et procédure normale'

Il n'y a vraiment aucun moyen moyen pour contourner ça facilement ?

Papy !

[tourlourou]

et avec

Code :

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

FirstClass.OnTest := procedure (Sender: TObject) of Object

[Paul TOTH]

TProc est déclaré dans SysUtils.

[Papy214]

et avec

Code :

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

FirstClass.OnTest := procedure (Sender: TObject) of Object

Code :

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

1
2
3
4
   FirstClass.OnTest := procedure(Sender: TObject) of object
   begin
     ShowMessage('Hello');
   end;

[dcc32 Erreur] Unit1.pas(47): E2029 Déclaration attendu(e) mais 'OF' trouvé(e)

[Papy214]

TProc est déclaré dans SysUtils.

Je me suis mal exprimé. Ce que je veux dire c'est que mon événement doit être du type TProc (property MyEvent: TProc read FMyEvent write FMyEvent
ça, c'est valable si je crée moi-même le composant, mais s'il s'agit d'un composant standard, c'est un TNotifyEvent, et là, ça marche plus.

Code :

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

1
2
3
4
5
 
  Button1.OnClick  := procedure(Sender: TObject)
   begin
     ShowMessage('Hello');
   end;

[dcc32 Erreur] Unit1.pas(50): E2009 Types incompatibles : 'pointeur de méthode et procédure normale'

[tourlourou]

Il est donc plausible que les méthodes anonymes ne soient pas permises...

On peut pê en fabriquer comme suggéré ici : http://laurent-dardenne.developpez.c...resEtMethodes/ en attribuant une procédure anonyme à un TMethod ?

[ShaiLeTroll]

Et comme c'est écrit dans la documentation que Papy214 mentionne : Méthodes anonymes dans Delphi - Méthodes anonymes en tant qu'événements

Toutefois, la réciproque n'est pas vraie : vous ne pouvez pas affecter une méthode anonyme à un pointeur de méthode normal. Les références de méthode sont des types managés, mais les pointeurs de méthode sont des types non managés. Ainsi, pour des raisons de fiabilité des types, l'affectation de références de méthode à des pointeurs de méthode n'est pas supportée. Par exemple, les événements sont des propriétés de méthode évaluées en pointeur , vous ne pouvez donc pas utiliser une méthode anonyme pour un événement. Pour de plus amples informations sur cette restriction, voir la section relative à la liaison des variables.

On en avait discuté : Implémentation de procedure sur evenement pour composant dynamique

Dans ce genre de situation,
si le gestionnaire d'évènement est spécifique à un traitement, je fais une méthode privée
si le gestionnaire d'évènement est généralisable, je fais une classe et une méthode de classe que j'utilise un peu comme un Helper

Code :

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

1
2
3
4
5
6
7
8
9
10
type
  TFirstClassToolHelp = class(TObject)
  public
    class procedure TestDefaultEventHandler(Sender: TObject);
  end;
 
class procedure TFirstClassToolHelp.TestDefaultEventHandler(Sender: TObject);
begin
  ShowMessage('Hello');
end;

Code :

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

1
2
3
4
5
6
7
..
var
  FirstClass: TFirstClass;
begin
  FirstClass := TFirstClass.Create;
  FirstClass.OnTest := TFirstClassToolHelp.TestDefaultEventHandler;
  FirstClass.Free;

Sinon le code d'instanciation de TFirstClass n'est il pas dans un Objet ?
Si c'est le code d'une TForm, tu peux créer ton gestionnaire en privé
ou alors déporté l'intelligent dans un objet controleur

[Papy214]

Mettre le code d'événement dans le TForm qui utilise l'objet, je peux le faire bien sur. Je fais ça régulièrement.
Mais dans ce cas, on ne parle plus de méthode anonyme.

Je pensais qu'il y avait une astuce pour faire ça mais je m'aperçois que non. En .net, ce genre de chose est possible mais c'est sans doute du aux types managés.

Merci !