Как расположить пункт ....

← →
TMenuItem (2004-08-18 11:59) [0]

Как расположить последний пункт меню (Например Help), с прижиманием к правому краю?

← →
ssk © (2004-08-18 12:06) [1]

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;

← →
TMenuItem (2004-08-18 12:47) [2]

Спасибо, вот только на команду перестал он (пункт) реагировать. Я хотел туда Exit поместить. Теперь нажимаю - не работает.

← →
clickmaker © (2004-08-18 13:08) [3]

> [2] TMenuItem (18.08.04 12:47)

Т.е. это у тебя не выпадающее меню? тогда так
ModifyMenu(MainMenu.Handle,
NameMenuItem.MenuIndex,
mf_ByPosition or mf_Popup or mf_Help,
NameMenuItem.Command,
PChar(NameMenuItem.Caption))

>clickmaker

тогда вместо mf_ByPosition or mf_Popup or mf_Help,
надо mf_ByPosition or mf_Help,

← →
TMenuItem (2004-08-18 13:41) [5]

Как расположить пункт .... Найти похожие ветки