Source position: msegui.pas line 1698
type shortcuteventty = procedure(
const sender: twidget;
var ainfo: keyeventinfoty;
const origin: twidget
) of object;