32 lines
420 B
ObjectPascal
32 lines
420 B
ObjectPascal
type TProc = procedure(sender: object);
|
|
|
|
type TClass = class
|
|
event OnClick : TProc;
|
|
procedure MyProc(sender : object);
|
|
begin
|
|
writeln(9);
|
|
end;
|
|
constructor Create;
|
|
begin
|
|
OnClick += MyProc;
|
|
OnClick(self);
|
|
OnClick -= MyProc;
|
|
end;
|
|
procedure RaiseMethod;
|
|
begin
|
|
OnClick(self);
|
|
end;
|
|
end;
|
|
|
|
procedure MyProc(sender : object);
|
|
begin
|
|
writeln(5);
|
|
end;
|
|
|
|
var t : TClass;
|
|
|
|
begin
|
|
t := new TClass;
|
|
t.OnClick += MyProc;
|
|
t.RaiseMethod;
|
|
end. |