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

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

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

AlexeyT ©   (2006-12-30 09:53:00) 

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

---

так себе   (2007-01-03 11:20:00) [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;

procedure TForm1.FormCreate(Sender: TObject);
begin
MenuHelpRight(MainMenu1,N3)
end;

---

AlexeyT   (2006-12-30 15:04:00) [2]

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


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

---

begin...end   (2006-12-30 13:09:00) [3]

MENUITEMINFO.fType, MFT_RIGHTJUSTIFY. См. MSDN.

---

Savek   (2006-12-30 13:09:00) [4]

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

---

Наверх