n-dimens/pascalabcnet: The new generation Pascal programming language for .NET

TestSamples/CompilationSamples/events2.pas

32 строки420 B

Бондарев Иван

initial commit

14 май 2015, 22:35

14 май 2015, 22:35e6e67c1

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.