Source position: msetabs.pas line 502
type getsubformeventty = procedure(
const sender: ttabpage;
var submoduleclass: widgetclassty;
var instancevarpo: pwidget
) of object;