Source position: msegui.pas line 1692
type mouseeventty = procedure(
const sender: twidget;
var ainfo: mouseeventinfoty
) of object;