Bonjour,

Petite question spéciale, il me semble avoir vu cette syntaxe une fois, mais impossible de la reproduire.

Ex

J'ai un form principal avec juste un bouton. La déclaration :

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
 
type
  TCallback = procedure;
 
  TMainForm = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
    callBack : TCallback;
  end;
 
var
  MainForm: TMainForm;
Il me semble qu'il était possible d'écrire quelque chose comme ça:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
 
procedure Init;
begin
 
  MainForm.callBack := procedure
  begin
    ShowMessage('hello world');
  end;
 
end;
C'est à dire, ne pas être obligé de déclarer la méthode que je vais assigner a "callback" du form, juste y mettre son contenu.

Je me trompe ?