| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как расположить пункт .... [D6, WinXP]

TMenuItem ©   (2004-08-18 11:59:00) 

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

---

TMenuItem   (2004-08-18 13:41:00) [1]

>  [4] ssk ©

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

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

---

ssk   (2004-08-18 13:36:00) [2]

>clickmaker

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

---

clickmaker   (2004-08-18 13:08:00) [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))

---

TMenuItem   (2004-08-18 12:47:00) [4]

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

---

ssk   (2004-08-18 12:06:00) [5]

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;

---

Наверх