Assigner une procédure sans pointeur
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:
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:
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 ?
