Source position: zglGui.pas line 134
type zglTPopupEvent = procedure(
Sender: zglTGUIObject;
X: Integer;
Y: Integer;
var CanPopup: Boolean
) of object;