| Class TCustomPopupMenus97 (unit Menus97) |
| Constructors |
constructor Create(AOwner: TComponent);| Functions |
destructor Destroy;
procedure NewTPUtilWndProc(Var Message: TMessage);
procedure CalcBannerRect;
function GetPopupMenu: TPopupMenu;
function HasBanner(Item: TMenuItem): boolean;
procedure SetPopupMenu(Value: TPopupMenu);| Properties |
property PopupMenu : TPopupMenu| Events |
| Variables |
FNewTPUtilWndProcInstance : Pointer;
FOldTPUtilWndProc : Pointer;| Constructors |
constructor Create(AOwner: TComponent);TCustomPopupMenus97
| Functions |
destructor Destroy;Set the new Proc
procedure NewTPUtilWndProc(Var Message: TMessage);
procedure CalcBannerRect;
function GetPopupMenu: TPopupMenu;
function HasBanner(Item: TMenuItem): boolean;
procedure SetPopupMenu(Value: TPopupMenu);and we release Our WndProc instance
| Properties |
property PopupMenu : TPopupMenu| Events |
| Variables |
FNewTPUtilWndProcInstance : Pointer;
FOldTPUtilWndProc : Pointer;