8 lines
95 B
ObjectPascal
8 lines
95 B
ObjectPascal
uses events4u;
|
|
var t : TClass;
|
|
|
|
begin
|
|
t := new TClass;
|
|
t.OnClick += MyProc;
|
|
t.RaiseMethod;
|
|
end. |