Recherche:

Simplement


type tProcedure=procedure of object;
type oProcedure=class
Private
...
Public
constructor create(UneProcedure:tProcedure);
...

Bonjour à tous

J'ai ceci :
type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
private
{ Déclarations privées }
public
{ Déclarations publiques }