Discussion :

[Jcpan]

bonjour cette source est tirée d'une autre discutions.

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
17
18
19
20
21
22
23
24
 
type
 TCallBack=procedure of object;
 
var
 obj : TObject;
 
procedure Tform1.FreeObject;
begin
 obj.Free;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
 obj:=TButton.Create(nil);
 Test2(obj,FreeObject);
end;
 
procedure TForm1.Test2(const obj:TObject; CallBack:TCallBack);
begin
 ShowMessage(obj.ClassName);
 CallBack;
 ShowMessage(obj.ClassName);
end;

Chaque fois je me dis : ça y'est j'ai saisi toutes les notions delphi , ressortent encore qlq une que je n'est jamais vu

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
type
 TCallBack=procedure of object;

c'est quoi ce type ? quel utilité ?
un exemple accompagné de votre explication me ferai très plaisir.