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 :
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
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;
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.
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;
Je me trompe ?
Partager