Текущий архив: 2004.09.05;
Скачать: CL | DM;

Вниз

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

← →
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))

---

← →
ssk ©   (2004-08-18 13:36) [4]

>clickmaker

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

---

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

>  [4] ssk ©

Это я догодался.

Всем спасибо.

---

Страницы: 1 вся ветка

Текущий архив: 2004.09.05;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.052 c