Discussion :

[Clorish]

Je cherche a savoir si une proprietee evenement est bien affectee au bon gestionaire.

typiquement :

Code :

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

1
2
 
If application.OnMessage = Self.AppMsg Then ShowMessage('Ok');

Le probleme est que le compilateur me renvoie une erreur sur Application.OnMessage : "Pas assez de parametres originaux".

Je pensais qu'on pouvais tester les adresses de 2 Gestionaires .....
Quelle solutions vous me proposez ?

[e-ric]

Je cherche a savoir si une proprietee evenement est bien affectee au bon gestionaire.

typiquement :

Code :

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

1
2
 
If application.OnMessage = Self.AppMsg Then ShowMessage('Ok');

Le probleme est que le compilateur me renvoie une erreur sur Application.OnMessage : "Pas assez de parametres originaux".

Je pensais qu'on pouvais tester les adresses de 2 Gestionaires .....
Quelle solutions vous me proposez ?

Code :

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

1
2
 
If @application.OnMessage = @Self.AppMsg Then ShowMessage('Ok');

Ca devrait aller mieux ! (complément dans l'aide)

cdlt

e-ric

[Clorish]

Pas tellement mieux :
Erreur sur le "Then" : Variable requise.

J'avais essayé .....

[e-ric]

j'ai essayé le code suivant

Code :

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

1
2
3
4
5
6
7
 
procedure TInputQueryFrm.FormShow(Sender: TObject);
begin
  if @BitBtnOk.OnClick = @BitBtnCancel.OnClick then
    ShowMessage('yo!')
  // if
end;

et aucun problème tout se passe bien mais je compare deux événements entre eux.

D'après F1, le message d'erreur que tu obtiens est produit lorsqu'on essaie de prendre l'adresse d'une expression ou d'une constante.

J'ai obtenu une solution à ton problème en qualifiant la méthode avec le nom de la classe (rappelons que les méthodes sont attachées aux classes et non pas aux objets) de Self :

Code :

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

1
2
3
4
5
6
7
 
procedure TInputQueryFrm.FormShow(Sender: TObject);
begin
  if @BitBtnCancel.OnClick = @TInputQueryFrm.BitBtnCancelClick then
    ShowMessage('yo!')
  // if
end;

Ce qui peut poser un problème avec une méthode virtuelle car la classe est référencée nominativement.
En outre, je ne suis pas capable de tout expliquer sur la solution, il faut que je consulte la documentation

cdlt

e-ric

[Clorish]

Oui en effet .. j'en suis arrivé aux meme conclusions de mon coté

Merci en tout cas pour tes recherches :p