TBeforeOpenHotZoneEvent Type

Declaration

TBeforeOpenHotZoneEvent = procedure(Sender: TObject; var NewSize: Integer; var AllowOpen: Boolean) of object;

Parameters

Name	Type
Sender	TObject
NewSize	Integer
AllowOpen	Boolean