Class TCustomPopupMenus97 (unit Menus97)

Inherits from

TCustomMenus97

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;



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;