Bonjour ,

Dans une classe je fais ceci
(constructeur / destructeur et co = ok )

type
  TMyClass = class(TObject)
  private
     fMyEvent : TNotifyEvent;
  public
     procedure ProcedureXY;
     property MyEvent : TNotifyEvent   read fMyEvent write fMyEvent ;
   
end;

implementation

procedure TMyClass.ProcedureXY;
begin
 ...
 if(Assigned(fMyEvent )) then fMyEvent(self);
 ...
end;


quand je crée une occurrence de TMyClass je fais donc

procedure MonEventDansLautreClass
begin
 // trt quelconque de l'event
end;


var
 i : TMyClass;
begin
 i := TMyClass.Create( ... );
i.MyEvent := MonEventDansLautreClass;

mais ça ne compile pas , 
Types incompatibles : 'pointeur de méthode et procédure normale'

Comment k'on fait alors ?
plus sérieusement je ne comprends pas de trop donc si une âme charitable passe par ici , qu'elle m'explique cela calmement
Merci

Je tiens à preciser que j'utilise ca dans un application Console (je ne sais pas si ca à son importance ou non )

Au fait je me demande si dans une application console , il y a moyen parce que sinon il suffit de faire

type
  TForm1 = class(TForm)
    ...
public
{ Déclarations publiques }
Procedure MaReponseMenu1( Sender : TObject);
end;
 
...
 
Procedure TForm1.MaReponseMenu1( Sender : TObject); 
Begin
//La tu mets ton code 
End;

(cfr devellopez)

mais en console , comment faire ???

Merci Foxi ,
Je n'ai pas encore testé le code mais ça m'a l'air pas mal

Je regarderai à mon petit problème demain ( et je validerais certainement ta solution )

Nico

@cirec : autant pour moi , j'ai chercher dans google mais pas sur DelphiFr ...

@Guillemouze : ok , je ne savais pas que c'etait possible

@ tous : merci

@Guillemouze :

Oui on peu faire cela, mais un type procedure et non compatible avec un type methode d'objet.

un type procedure est un pointeur, alors qu'une methode d'objet est une paire de pointeur, dont l'un contient l'adresse de la methode et l'autre contient l'adresse de l'objet qui la possede.

on peu effectivement utiliser des types procedure simple, comme on le faisait en TurboPascal mais seulement dans des cas precis, surtout qu'en plus en faisant cela, on fait l'impasse sur l'utilisation des classes.

Borland / CodeGear conseil dans l'aide la methode fournie par DelphiProg et la mienne (elle sont identique en fait).

"Pour utiliser les evenements de classe en mode console, consultez DelphiProg ou f0xi sur www.delphifr.com"

---

mais ca depend de l'utilisation que tu as a en faire.
Par exemple, TList.Sort utilise un pointeur sur une procedure normale.