Source position: mseclasses.pas line 161
type setintegerindexeventty = procedure(
const sender: tobject;
var avalue: Integer;
var accept: Boolean;
const aindex: Integer
) of object;