Beschreibung | uses | Klassen, Schnittstellen und Objekte | Funktionen und Prozeduren | Typen | Konstanten | Variablen |
Name | Beschreibung |
---|---|
Klasse EMenuError |
|
Klasse TMenuActionLink |
|
Klasse TMenuItem |
|
Klasse TMenu |
|
Klasse TMainMenu |
|
Klasse TPopupMenu |
function ShortCut(const Key: Word; const Shift : TShiftState) : TShortCut; |
procedure ShortCutToKey(const ShortCut : TShortCut; var Key: Word; var Shift : TShiftState); |
function NewMenu(Owner: TComponent; const AName: string; const Items: array of TMenuItem): TMainMenu; |
function NewPopupMenu(Owner: TComponent; const AName: string; Alignment: TPopupAlignment; AutoPopup: Boolean; const Items: array of TMenuItem): TPopupMenu; |
function NewSubMenu(const ACaption: string; hCtx: THelpContext; const AName: string; const Items: array of TMenuItem; TheEnabled: Boolean = True): TMenuItem; |
function NewItem(const ACaption: string; AShortCut: TShortCut; AChecked, TheEnabled: Boolean; TheOnClick: TNotifyEvent; hCtx: THelpContext; const AName: string): TMenuItem; |
function NewLine: TMenuItem; |
procedure Register; |
TMenuChangeEvent = procedure (Sender: TObject; Source: TMenuItem; Rebuild: Boolean) of object; |
TMenuActionLinkClass = class of TMenuActionLink; |
TMenuItemHandlerType = (...); |
TMenuItemClass = class of TMenuItem; |
TFindItemKind = (...); |
TPopupAlignment = (...); |
cHotkeyPrefix = '&'; |
cLineCaption = '-'; |
cDialogSuffix = '...'; |
DesignerMenuItemClick: TNotifyEvent; |
ActivePopupMenu: TPopupMenu; |
OnMenuPopupHandler: TNotifyEvent; |
function ShortCut(const Key: Word; const Shift : TShiftState) : TShortCut; |
procedure ShortCutToKey(const ShortCut : TShortCut; var Key: Word; var Shift : TShiftState); |
function NewMenu(Owner: TComponent; const AName: string; const Items: array of TMenuItem): TMainMenu; |
function NewPopupMenu(Owner: TComponent; const AName: string; Alignment: TPopupAlignment; AutoPopup: Boolean; const Items: array of TMenuItem): TPopupMenu; |
function NewSubMenu(const ACaption: string; hCtx: THelpContext; const AName: string; const Items: array of TMenuItem; TheEnabled: Boolean = True): TMenuItem; |
function NewItem(const ACaption: string; AShortCut: TShortCut; AChecked, TheEnabled: Boolean; TheOnClick: TNotifyEvent; hCtx: THelpContext; const AName: string): TMenuItem; |
function NewLine: TMenuItem; |
procedure Register; |
TMenuChangeEvent = procedure (Sender: TObject; Source: TMenuItem; Rebuild: Boolean) of object; |
TMenuActionLinkClass = class of TMenuActionLink; |
TMenuItemHandlerType = (...); |
Values
|
TMenuItemClass = class of TMenuItem; |
TFindItemKind = (...); |
Values
|
TPopupAlignment = (...); |
Values
|
cHotkeyPrefix = '&'; |
cLineCaption = '-'; |
cDialogSuffix = '...'; |
DesignerMenuItemClick: TNotifyEvent; |
ActivePopupMenu: TPopupMenu; |
OnMenuPopupHandler: TNotifyEvent; |