Создать пункт меню в правой части MainMenu

← →
AlexeyT © (2006-12-30 09:53) [0]

Как создать пункт меню, выровненный по правому краю MainMenu? Например, это может быть пункт Help, который хочется "запузырить" вправо.

← →
begin...end © (2006-12-30 13:09) [1]

MENUITEMINFO.fType, MFT_RIGHTJUSTIFY. См. MSDN.

← →
Savek (2006-12-30 13:09) [2]

В Caption вместо "Help" напиши "_________HELP" :-)))

← →
AlexeyT © (2006-12-30 15:04) [3]

> begin...end © (30.12.06 13:09) [1]
> MENUITEMINFO.fType, MFT_RIGHTJUSTIFY. См. MSDN.

Спасибо. Буду смотреть.
А изменить это в VCL значит нельзя - Жаль...

← →
так себе (2007-01-03 11:20) [4]

Может так...
procedure MenuHelpRight(MainMenu:TMainMenu; NameMenuItem:TMenuItem); begin ModifyMenu(MainMenu.Handle, NameMenuItem.MenuIndex, mf_ByPosition or mf_Popup or mf_Help, NameMenuItem.Handle, PChar(NameMenuItem.Caption)) end; procedure TForm1.FormCreate(Sender: TObject); begin MenuHelpRight(MainMenu1,N3) end;

Создать пункт меню в правой части MainMenu Найти похожие ветки