Menu
Delphi — среда быстрой разработки, где в качестве языка программирования используется Object Pascal. На сегодняшний день позволяет разрабатывать ПО для Microsoft Windows, Mac OS, iOS и Android и входит в состав Embarcadero RAD Studio
https://delphi-hlp.ru/index.php/menu.feed
2022-09-13T04:32:09+07:00
Delphi help
info@delphi-hlp.ru
Joomla! - Open Source Content Management
Более быстрый способ добавлять пункты меню
2017-09-27T20:50:59+07:00
2017-09-27T20:50:59+07:00
https://delphi-hlp.ru/index.php/menu/bolee-bystryj-sposob-dobavlyat-punkty-menyu.html
Super User
toto44@inbox.ru
<p><span style="font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;"> <span style="color: #000000;">Обычно, когда Вы создаёте меню в приложении, то код выглядит примерно так:</span></span></p>
<p class="feed-readmore"><a target="_blank" href ="/index.php/menu/bolee-bystryj-sposob-dobavlyat-punkty-menyu.html">Подробнее...</a></p>
<p><span style="font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;"> <span style="color: #000000;">Обычно, когда Вы создаёте меню в приложении, то код выглядит примерно так:</span></span></p>
<p class="feed-readmore"><a target="_blank" href ="/index.php/menu/bolee-bystryj-sposob-dobavlyat-punkty-menyu.html">Подробнее...</a></p>
Добавляем пункты в системное меню Windows
2017-09-27T20:46:38+07:00
2017-09-27T20:46:38+07:00
https://delphi-hlp.ru/index.php/menu/dobavlyaem-punkty-v-sistemnoe-menyu-windows.html
Super User
toto44@inbox.ru
<p><span style="color: #000000; font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;">Автор: MAD Rodrguez</span></p>
<p><span style="font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;"><span style="color: #000000;"> </span><span style="color: #000000;">Вы, наверное, задавались вопросом, почему системное меню постоянно одно и тоже ? Пример показывает, как добавить туда такие пункты как "About" или "Information", или что-нибудь ещё.</span></span></p>
<p><span style="font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;"><span style="color: #000000;"> </span><span style="color: #000000;">Нам понадобится две вещи, первая это Item ID, который может быть любым целым числом. Второе это Описание(Caption) для нашего пункта меню. Нам понадобится также процедура, которая будет принимать сообщения Window для определения нажатия на наш пункт меню. </span></span></p>
<p><span style="color: #000000; font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;"> </span></p>
<p class="feed-readmore"><a target="_blank" href ="/index.php/menu/dobavlyaem-punkty-v-sistemnoe-menyu-windows.html">Подробнее...</a></p>
<p><span style="color: #000000; font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;">Автор: MAD Rodrguez</span></p>
<p><span style="font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;"><span style="color: #000000;"> </span><span style="color: #000000;">Вы, наверное, задавались вопросом, почему системное меню постоянно одно и тоже ? Пример показывает, как добавить туда такие пункты как "About" или "Information", или что-нибудь ещё.</span></span></p>
<p><span style="font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;"><span style="color: #000000;"> </span><span style="color: #000000;">Нам понадобится две вещи, первая это Item ID, который может быть любым целым числом. Второе это Описание(Caption) для нашего пункта меню. Нам понадобится также процедура, которая будет принимать сообщения Window для определения нажатия на наш пункт меню. </span></span></p>
<p><span style="color: #000000; font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;"> </span></p>
<p class="feed-readmore"><a target="_blank" href ="/index.php/menu/dobavlyaem-punkty-v-sistemnoe-menyu-windows.html">Подробнее...</a></p>
Иконки в PopupMenu
2017-09-27T21:01:09+07:00
2017-09-27T21:01:09+07:00
https://delphi-hlp.ru/index.php/menu/ikonki-v-popupmenu.html
Super User
toto44@inbox.ru
<p><span style="font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;">Ниже мы покажем вариант кода</span></p>
<p class="feed-readmore"><a target="_blank" href ="/index.php/menu/ikonki-v-popupmenu.html">Подробнее...</a></p>
<p><span style="font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;">Ниже мы покажем вариант кода</span></p>
<p class="feed-readmore"><a target="_blank" href ="/index.php/menu/ikonki-v-popupmenu.html">Подробнее...</a></p>
Как добавить пункт меню?
2017-09-27T21:03:26+07:00
2017-09-27T21:03:26+07:00
https://delphi-hlp.ru/index.php/menu/kak-dobavit-punkt-menyu.html
Super User
toto44@inbox.ru
<p> </p>
<div style="margin: 0px; padding: 0px; text-align: left; text-indent: 0px;"> </div>
<p><span style="font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;"> </span></p>
<p><span style="font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;">nmWindow - это Name пункта меню "Окна"</span></p>
<p><span style="font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;">(этот код я писал для добавления открытых окон в пункт меню "Окна", главного меню своего приложения) </span></p>
<p><span style="font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;"> </span></p>
<p class="feed-readmore"><a target="_blank" href ="/index.php/menu/kak-dobavit-punkt-menyu.html">Подробнее...</a></p>
<p> </p>
<div style="margin: 0px; padding: 0px; text-align: left; text-indent: 0px;"> </div>
<p><span style="font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;"> </span></p>
<p><span style="font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;">nmWindow - это Name пункта меню "Окна"</span></p>
<p><span style="font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;">(этот код я писал для добавления открытых окон в пункт меню "Окна", главного меню своего приложения) </span></p>
<p><span style="font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;"> </span></p>
<p class="feed-readmore"><a target="_blank" href ="/index.php/menu/kak-dobavit-punkt-menyu.html">Подробнее...</a></p>
Как заставить системное меню выпасть в указанном месте?
2017-09-27T21:06:15+07:00
2017-09-27T21:06:15+07:00
https://delphi-hlp.ru/index.php/menu/kak-zastavit-sistemnoe-menyu-vypast-v-ukazannom-meste.html
Super User
toto44@inbox.ru
<p><span style="font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;">Как в контекстное меню системы Windows?</span></p>
<p><span style="font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;"> Может быть, вы можете использовать Keybd_event для eumlate ALT + пробел. Может быть, вы можете использовать TPopupmenu.</span></p>
<p><span style="font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;"> Но у них всегда есть какие-то проблемы. Метод ниже является идеальным решением!</span></p>
<p><span style="font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;"> BTW: если ваша форма имеет borderstyle = bsNone, пожалуйста, сделайте это так:</span></p>
<p><span style="font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;"> Набор форм стиль = bsSingle; и использовать код ниже, чтобы установить бодер форма:</span></p>
<p><span style="font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;"> SetWindowLong(ручки, GWL_STYLE,GetWindowLong(ручки, GWL_STYLE) и (не WS_CAPTION) или WS_DLGFRAME или WS_OVERLAPPED);</span></p>
<p class="feed-readmore"><a target="_blank" href ="/index.php/menu/kak-zastavit-sistemnoe-menyu-vypast-v-ukazannom-meste.html">Подробнее...</a></p>
<p><span style="font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;">Как в контекстное меню системы Windows?</span></p>
<p><span style="font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;"> Может быть, вы можете использовать Keybd_event для eumlate ALT + пробел. Может быть, вы можете использовать TPopupmenu.</span></p>
<p><span style="font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;"> Но у них всегда есть какие-то проблемы. Метод ниже является идеальным решением!</span></p>
<p><span style="font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;"> BTW: если ваша форма имеет borderstyle = bsNone, пожалуйста, сделайте это так:</span></p>
<p><span style="font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;"> Набор форм стиль = bsSingle; и использовать код ниже, чтобы установить бодер форма:</span></p>
<p><span style="font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;"> SetWindowLong(ручки, GWL_STYLE,GetWindowLong(ручки, GWL_STYLE) и (не WS_CAPTION) или WS_DLGFRAME или WS_OVERLAPPED);</span></p>
<p class="feed-readmore"><a target="_blank" href ="/index.php/menu/kak-zastavit-sistemnoe-menyu-vypast-v-ukazannom-meste.html">Подробнее...</a></p>
Как показать подсказки Hints для элементов меню
2017-09-27T21:01:48+07:00
2017-09-27T21:01:48+07:00
https://delphi-hlp.ru/index.php/menu/kak-pokazat-podskazki-hints-dlya-elementov-menyu.html
Super User
toto44@inbox.ru
<p><span style="font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;"> </span></p>
<p><span style="color: #000000; font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;">В примере создается обработчик события Application.Hint - подсказки меню изображаются на status Panel: </span></p>
<p class="feed-readmore"><a target="_blank" href ="/index.php/menu/kak-pokazat-podskazki-hints-dlya-elementov-menyu.html">Подробнее...</a></p>
<p><span style="font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;"> </span></p>
<p><span style="color: #000000; font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;">В примере создается обработчик события Application.Hint - подсказки меню изображаются на status Panel: </span></p>
<p class="feed-readmore"><a target="_blank" href ="/index.php/menu/kak-pokazat-podskazki-hints-dlya-elementov-menyu.html">Подробнее...</a></p>
Как поместить TMenuItem справа у формы?
2017-09-27T20:55:31+07:00
2017-09-27T20:55:31+07:00
https://delphi-hlp.ru/index.php/menu/kak-pomestit-tmenuitem-sprava-u-formy.html
Super User
toto44@inbox.ru
<p><span style="color: #000000; font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;">Допустим, у Вас есть TMainMenu MainMenu1 и HelpMenuItem в конце панели меню (Menubar). Если Вызвать следующий обработчик события OnCreate, то HelpMenuItem сместится вправо.</span></p>
<p class="feed-readmore"><a target="_blank" href ="/index.php/menu/kak-pomestit-tmenuitem-sprava-u-formy.html">Подробнее...</a></p>
<p><span style="color: #000000; font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;">Допустим, у Вас есть TMainMenu MainMenu1 и HelpMenuItem в конце панели меню (Menubar). Если Вызвать следующий обработчик события OnCreate, то HelpMenuItem сместится вправо.</span></p>
<p class="feed-readmore"><a target="_blank" href ="/index.php/menu/kak-pomestit-tmenuitem-sprava-u-formy.html">Подробнее...</a></p>
Как поместить маленькие битмапы в TPopUpMenu?
2017-09-27T20:49:54+07:00
2017-09-27T20:49:54+07:00
https://delphi-hlp.ru/index.php/menu/kak-pomestit-malenkie-bitmapy-v-tpopupmenu.html
Super User
toto44@inbox.ru
<p><span style="color: #000000; font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;">Следующий пример демонстрирует добавление битмапа в пункт PopUpMenu при помощи API функции SetMenuItemBitmaps(). Эта функция имеет следующие параметры: дескриптор всплывающего меню, номер (начиная с нуля) пункта меню в который мы хотим добаить битмап, и два дескриптора битмапов (одна картинка для меню в активном состоянии, а вторая для неактивного состояния).</span></p>
<p class="feed-readmore"><a target="_blank" href ="/index.php/menu/kak-pomestit-malenkie-bitmapy-v-tpopupmenu.html">Подробнее...</a></p>
<p><span style="color: #000000; font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;">Следующий пример демонстрирует добавление битмапа в пункт PopUpMenu при помощи API функции SetMenuItemBitmaps(). Эта функция имеет следующие параметры: дескриптор всплывающего меню, номер (начиная с нуля) пункта меню в который мы хотим добаить битмап, и два дескриптора битмапов (одна картинка для меню в активном состоянии, а вторая для неактивного состояния).</span></p>
<p class="feed-readmore"><a target="_blank" href ="/index.php/menu/kak-pomestit-malenkie-bitmapy-v-tpopupmenu.html">Подробнее...</a></p>
Как программно заставить выпасть меню?
2017-09-27T20:51:59+07:00
2017-09-27T20:51:59+07:00
https://delphi-hlp.ru/index.php/menu/kak-programmno-zastavit-vypast-menyu.html
Super User
toto44@inbox.ru
<p><span style="color: #000000; font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;">В примере показано как показать меню и выбрать в нем какой-то пункт, эмулируя нажатие "быстрой кдавиши" пункта меню. Если у Вашего пункта меню нет "быстрой клавиши" Вы можете посылать комбинации VK_MENU, VK_LEFT, VK_DOWN, и VK_RETURN, чтобы программно "путешествовать" по меню.</span></p>
<p class="feed-readmore"><a target="_blank" href ="/index.php/menu/kak-programmno-zastavit-vypast-menyu.html">Подробнее...</a></p>
<p><span style="color: #000000; font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;">В примере показано как показать меню и выбрать в нем какой-то пункт, эмулируя нажатие "быстрой кдавиши" пункта меню. Если у Вашего пункта меню нет "быстрой клавиши" Вы можете посылать комбинации VK_MENU, VK_LEFT, VK_DOWN, и VK_RETURN, чтобы программно "путешествовать" по меню.</span></p>
<p class="feed-readmore"><a target="_blank" href ="/index.php/menu/kak-programmno-zastavit-vypast-menyu.html">Подробнее...</a></p>
Как рисовать картинки в пунктах меню?
2017-09-27T20:57:42+07:00
2017-09-27T20:57:42+07:00
https://delphi-hlp.ru/index.php/menu/kak-risovat-kartinki-v-punktakh-menyu.html
Super User
toto44@inbox.ru
<p> </p>
<div style="margin: 0px; padding: 0px; text-align: left; text-indent: 0px;"> </div>
<p><span style="font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;"> Eugeny Sverchkov показывает как это можно сделать </span></p>
<p class="feed-readmore"><a target="_blank" href ="/index.php/menu/kak-risovat-kartinki-v-punktakh-menyu.html">Подробнее...</a></p>
<p> </p>
<div style="margin: 0px; padding: 0px; text-align: left; text-indent: 0px;"> </div>
<p><span style="font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;"> Eugeny Sverchkov показывает как это можно сделать </span></p>
<p class="feed-readmore"><a target="_blank" href ="/index.php/menu/kak-risovat-kartinki-v-punktakh-menyu.html">Подробнее...</a></p>
Как сделать меню как в Дельфи?
2017-09-27T20:54:50+07:00
2017-09-27T20:54:50+07:00
https://delphi-hlp.ru/index.php/menu/kak-sdelat-menyu-kak-v-delfi.html
Super User
toto44@inbox.ru
<p><span style="color: #000000; font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;">1. Разместите на форме TControlBar. (закладка Additional) Установите Align = Client. </span></p>
<p><span style="color: #000000; font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;">2. Разместите TToolBar (закладка Win32) внутри TControlBar.</span></p>
<p><span style="color: #000000; font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;">3. Установите в True свойства Flat и ShowCaptions этого TToolBar.</span></p>
<p class="feed-readmore"><a target="_blank" href ="/index.php/menu/kak-sdelat-menyu-kak-v-delfi.html">Подробнее...</a></p>
<p><span style="color: #000000; font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;">1. Разместите на форме TControlBar. (закладка Additional) Установите Align = Client. </span></p>
<p><span style="color: #000000; font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;">2. Разместите TToolBar (закладка Win32) внутри TControlBar.</span></p>
<p><span style="color: #000000; font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;">3. Установите в True свойства Flat и ShowCaptions этого TToolBar.</span></p>
<p class="feed-readmore"><a target="_blank" href ="/index.php/menu/kak-sdelat-menyu-kak-v-delfi.html">Подробнее...</a></p>
Как сделать пункты меню с картинками?
2017-09-27T20:49:15+07:00
2017-09-27T20:49:15+07:00
https://delphi-hlp.ru/index.php/menu/kak-sdelat-punkty-menyu-s-kartinkami.html
Super User
toto44@inbox.ru
<p><span style="color: #000000; font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;">Следующий код показывает, как добавить картинку в виде объекта TImage в объект TMenuItem.</span></p>
<p class="feed-readmore"><a target="_blank" href ="/index.php/menu/kak-sdelat-punkty-menyu-s-kartinkami.html">Подробнее...</a></p>
<p><span style="color: #000000; font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;">Следующий код показывает, как добавить картинку в виде объекта TImage в объект TMenuItem.</span></p>
<p class="feed-readmore"><a target="_blank" href ="/index.php/menu/kak-sdelat-punkty-menyu-s-kartinkami.html">Подробнее...</a></p>
Как узнать о нажатии non-menu клавиши в момент когда меню показано?
2017-09-27T20:53:14+07:00
2017-09-27T20:53:14+07:00
https://delphi-hlp.ru/index.php/menu/kak-uznat-o-nazhatii-non-menu-klavishi-v-moment-kogda-menyu-pokazano.html
Super User
toto44@inbox.ru
<p><span style="color: #000000; font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;">Создайте обработчик сообщения WM_MENUCHAR.</span></p>
<p class="feed-readmore"><a target="_blank" href ="/index.php/menu/kak-uznat-o-nazhatii-non-menu-klavishi-v-moment-kogda-menyu-pokazano.html">Подробнее...</a></p>
<p><span style="color: #000000; font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;">Создайте обработчик сообщения WM_MENUCHAR.</span></p>
<p class="feed-readmore"><a target="_blank" href ="/index.php/menu/kak-uznat-o-nazhatii-non-menu-klavishi-v-moment-kogda-menyu-pokazano.html">Подробнее...</a></p>
Как узнать статус меню?
2017-09-27T20:58:36+07:00
2017-09-27T20:58:36+07:00
https://delphi-hlp.ru/index.php/menu/kak-uznat-status-menyu.html
Super User
toto44@inbox.ru
<p><span style="color: #000000; font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt; font-style: italic;">В чём вопрос: как узнать, нажат ли сейчас именно нужный пункт меню? Чтобы я в таймере мог его опрашивать на состояние. </span></p>
<p><span style="color: #000000; font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt; font-style: italic;">До тех пор, пока какая-то часть главного меню "выпала" (то есть нажат итем "Файл", и видны New, Open, Save etc.) нужно чёто делать раз в полсекунды. То есть надо отловить момент, когда это самое меню закроется, чтобы перестать чё-то делать.</span></p>
<p><span style="color: #000000; font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt; font-style: italic;"> </span></p>
<p class="feed-readmore"><a target="_blank" href ="/index.php/menu/kak-uznat-status-menyu.html">Подробнее...</a></p>
<p><span style="color: #000000; font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt; font-style: italic;">В чём вопрос: как узнать, нажат ли сейчас именно нужный пункт меню? Чтобы я в таймере мог его опрашивать на состояние. </span></p>
<p><span style="color: #000000; font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt; font-style: italic;">До тех пор, пока какая-то часть главного меню "выпала" (то есть нажат итем "Файл", и видны New, Open, Save etc.) нужно чёто делать раз в полсекунды. То есть надо отловить момент, когда это самое меню закроется, чтобы перестать чё-то делать.</span></p>
<p><span style="color: #000000; font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt; font-style: italic;"> </span></p>
<p class="feed-readmore"><a target="_blank" href ="/index.php/menu/kak-uznat-status-menyu.html">Подробнее...</a></p>
Кнопка в MainMenu с правой стороны
2017-09-27T21:04:20+07:00
2017-09-27T21:04:20+07:00
https://delphi-hlp.ru/index.php/menu/knopka-v-mainmenu-s-pravoj-storony.html
Super User
toto44@inbox.ru
<p> </p>
<div style="margin: 0px; padding: 0px; text-align: left; text-indent: 0px;">
<table style="border-width: 1px; border-style: solid; border-color: #000000 #c0c0c0 #c0c0c0 #000000; border-spacing: 0px; background-color: #ffffc4;" border="1" cellspacing="0" cellpadding="5" bgcolor="#ffffc4">
<tbody>
<tr align="left" valign="top">
<td style="border-width: 1px; border-style: solid; border-color: #c0c0c0 #000000 #000000 #c0c0c0;">
<p style="text-align: justify;"><span style="color: #000000; font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt; font-weight: bold;">Code:</span></p>
</td>
</tr>
<tr align="left">
<td style="border-width: 1px; border-style: solid; border-color: #c0c0c0 #000000 #000000 #c0c0c0;">
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000080; font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;">{©Drkb v.3}</span></p>
<p class="p_CodeExample"><span style="font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;"><span class="f_CodeExample" style="color: #000000;">ModifyMenu(MainMenu.Handle, </span><span class="f_CodeExample" style="color: #800000;">3</span> <span class="f_CodeExample" style="color: #000080;">{ индекс меню, начиная слева с нуля}</span><span class="f_CodeExample" style="color: #000000;">, </span></span></p>
<p class="p_CodeExample"><span style="font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;"><span class="f_CodeExample" style="color: #000000;"> mf_ByPosition </span><span class="f_CodeExample" style="color: #008000; font-weight: bold;">or</span><span class="f_CodeExample" style="color: #000000;"> mf_Popup </span><span class="f_CodeExample" style="color: #008000; font-weight: bold;">or</span><span class="f_CodeExample" style="color: #000000;"> mf_Help, mnuHelp.Handle, </span></span></p>
<p class="p_CodeExample"><span style="font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;"><span class="f_CodeExample" style="color: #000000;"> PChar(</span><span class="f_CodeExample" style="color: #ff0000;">'Help'</span><span class="f_CodeExample" style="color: #000000;">));</span></span></p>
</td>
</tr>
</tbody>
</table>
</div>
<p><span style="color: #000000; font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;"> </span></p>
<p> </p>
<div style="margin: 0px; padding: 0px; text-align: left; text-indent: 0px;">
<table style="border-width: 1px; border-style: solid; border-color: #000000 #c0c0c0 #c0c0c0 #000000; border-spacing: 0px; background-color: #ffffc4;" border="1" cellspacing="0" cellpadding="5" bgcolor="#ffffc4">
<tbody>
<tr align="left" valign="top">
<td style="border-width: 1px; border-style: solid; border-color: #c0c0c0 #000000 #000000 #c0c0c0;">
<p style="text-align: justify;"><span style="color: #000000; font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt; font-weight: bold;">Code:</span></p>
</td>
</tr>
<tr align="left">
<td style="border-width: 1px; border-style: solid; border-color: #c0c0c0 #000000 #000000 #c0c0c0;">
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000080; font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;">{©Drkb v.3}</span></p>
<p class="p_CodeExample"><span style="font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;"><span class="f_CodeExample" style="color: #000000;">ModifyMenu(MainMenu.Handle, </span><span class="f_CodeExample" style="color: #800000;">3</span> <span class="f_CodeExample" style="color: #000080;">{ индекс меню, начиная слева с нуля}</span><span class="f_CodeExample" style="color: #000000;">, </span></span></p>
<p class="p_CodeExample"><span style="font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;"><span class="f_CodeExample" style="color: #000000;"> mf_ByPosition </span><span class="f_CodeExample" style="color: #008000; font-weight: bold;">or</span><span class="f_CodeExample" style="color: #000000;"> mf_Popup </span><span class="f_CodeExample" style="color: #008000; font-weight: bold;">or</span><span class="f_CodeExample" style="color: #000000;"> mf_Help, mnuHelp.Handle, </span></span></p>
<p class="p_CodeExample"><span style="font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;"><span class="f_CodeExample" style="color: #000000;"> PChar(</span><span class="f_CodeExample" style="color: #ff0000;">'Help'</span><span class="f_CodeExample" style="color: #000000;">));</span></span></p>
</td>
</tr>
</tbody>
</table>
</div>
<p><span style="color: #000000; font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;"> </span></p>
Пишем свой текст в Меню
2017-09-27T20:48:36+07:00
2017-09-27T20:48:36+07:00
https://delphi-hlp.ru/index.php/menu/pishem-svoj-tekst-v-menyu.html
Super User
toto44@inbox.ru
<p><span style="font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;"><span style="color: #000000;"> </span><span style="color: #000000;">Когда играешь во встроенную в Windows игру freecell, то справа в меню постоянно пишется сколько осталось карт. Давайте посмотрим, как это делается.</span></span></p>
<p><span style="color: #000000; font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;"> </span></p>
<p><span style="color: #000000; font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;">Перво наперво положим компонент главного меню на форму.</span></p>
<p><span style="color: #000000; font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;">Теперь установим свойство OwnerDraw в true. </span></p>
<p><span style="font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;"><span style="color: #000000;"> </span><span style="color: #000000;">Далее создайте, то что Вы хотите вырисовывать в меню и создайте OnDrawItem. </span></span></p>
<p class="feed-readmore"><a target="_blank" href ="/index.php/menu/pishem-svoj-tekst-v-menyu.html">Подробнее...</a></p>
<p><span style="font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;"><span style="color: #000000;"> </span><span style="color: #000000;">Когда играешь во встроенную в Windows игру freecell, то справа в меню постоянно пишется сколько осталось карт. Давайте посмотрим, как это делается.</span></span></p>
<p><span style="color: #000000; font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;"> </span></p>
<p><span style="color: #000000; font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;">Перво наперво положим компонент главного меню на форму.</span></p>
<p><span style="color: #000000; font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;">Теперь установим свойство OwnerDraw в true. </span></p>
<p><span style="font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;"><span style="color: #000000;"> </span><span style="color: #000000;">Далее создайте, то что Вы хотите вырисовывать в меню и создайте OnDrawItem. </span></span></p>
<p class="feed-readmore"><a target="_blank" href ="/index.php/menu/pishem-svoj-tekst-v-menyu.html">Подробнее...</a></p>
Элементы меню на основе изображений
2017-09-27T20:59:47+07:00
2017-09-27T20:59:47+07:00
https://delphi-hlp.ru/index.php/menu/elementy-menyu-na-osnove-izobrazhenij.html
Super User
toto44@inbox.ru
<p><span style="color: #000000; font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;">В своем меню я хочу иметь графику. Но как мне сделать это? </span></p>
<p><span style="color: #000000; font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;"> </span></p>
<p><span style="color: #000000; font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;">Воспользуйтесь командой ModifyMenu. Тем не менее, Delphi 1.0 имеет привычку СТИРАТЬ изменения в пунктах меню, к примеру, созданных на основе изображения или отрисованных вручную. Если вы пользуетесь этими "фишками", вы НЕ должны осуществлять enable/disable или check/uncheck элементов меню через свойства. </span></p>
<p class="feed-readmore"><a target="_blank" href ="/index.php/menu/elementy-menyu-na-osnove-izobrazhenij.html">Подробнее...</a></p>
<p><span style="color: #000000; font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;">В своем меню я хочу иметь графику. Но как мне сделать это? </span></p>
<p><span style="color: #000000; font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;"> </span></p>
<p><span style="color: #000000; font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;">Воспользуйтесь командой ModifyMenu. Тем не менее, Delphi 1.0 имеет привычку СТИРАТЬ изменения в пунктах меню, к примеру, созданных на основе изображения или отрисованных вручную. Если вы пользуетесь этими "фишками", вы НЕ должны осуществлять enable/disable или check/uncheck элементов меню через свойства. </span></p>
<p class="feed-readmore"><a target="_blank" href ="/index.php/menu/elementy-menyu-na-osnove-izobrazhenij.html">Подробнее...</a></p>