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

Вниз

Создать пункт меню в правой части 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;

---

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

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

Наверх

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