{....}
Uses
Toolsapi
,
Menus
;
{....}
VAR
Item
:
TMenuItem
;
Begin
{Get Reference to del Phi's Mainmenu. You can Handle It Like A Common TMAINMENU}
WITH
(
BorlandIDeServices
AS
Intaservices
).
GetMainMenu
DO
Begin
Item
: =
TMenuItem
.
Create
(
NIL
);
Item
.
CAPTION
: =
'A mewn caption'
;
Items
.
Add
(
Item
);
end
;
end
;
转载请注明原文地址:https://www.9cbs.com/read-64976.html
