TKOLMainMenu

← →
серый мЫш © (2005-03-06 05:08) [0]

Как заставить появиться один из пунктов главного меню с правого конца окна? Так обычно поступают с пунктом "Помощь". В исходниках я этого не видел.

← →
ECM © (2005-03-09 15:59) [1]

ИМХО: заставить один экземпляр меню так отрисовываться - нельзя.
По-моему нет такой возможности в Win32 API...
Есть какое-нибудь стандартное приложение от MS, где есть
такое меню?
Можно попытаться как-то проиммитировать... при помощи двух
меню раскиданных на панелях и (или) фреймах.
Но это того не стоит...

← →
BeZ (2005-03-09 16:34) [2]

Total Commander 6.0 пример, там вынесено вправо два меню

← →
ECM © (2005-03-09 16:49) [3]

Total Commander - это не MS разработка (кажется он на Делфи
написан) и вполне возможно, что там собственная прорисовка
меню (т.е. не из встроенных в Win32 вещей.) А это доп. код в библиотеку. Для VCL-то все равно - а тут дело принципа.
Для получения мин. кода - максимально используем встроенный
в АПИ код!
Не устраивает? - всегда есть возможность пожертвовав размером написать отрисовку самостоятельно.

← →
ECM © (2005-03-09 18:27) [4]

Да уж... был неправ! (Спасибо -SeM- поправил)
Оказывается очень даже просто.

procedure TMainForm.KOLFormFormCreate(Sender: PObj); var i: Integer; begin i := MainMenu1.ItemHandle[miHelp]; ModifyMenu(MainMenu1.Handle, i, MF_BYCOMMAND or mf_Help, i, PChar(MainMenu1.ItemText[miHelp])) end;

miHelp - я так назвал пункт главного меню (это константа соответсвующая ItemIndex для данного пункта меню)

Спасибо, все работает :)

← →
Владимир Кладов (2005-03-16 15:16) [6]

замечательно однако обнаружить, что в MSDN не описан MF_HELP и еще пара флажков, рядом с другими MF_, а есть просто в виде ответов как раз на вот такой вопрос :)

TKOLMainMenu Найти похожие ветки