Заглавное меню

← →
Gu (2010-12-07 01:57) [0]

У некоторых прог в MainMenu пункт "справка" (или подобный) прижат к правому краю окна. как такое реализовать со стандартным mainmenu?

← →
Германн © (2010-12-07 02:44) [1]

> как такое реализовать со стандартным mainmenu?

То ли ЮЗ, то ли ИШ как-то публиковали решение этой задачи. Но найти в архивах не смог. :(

← →
P (2010-12-07 05:24) [2]

procedure TForm1.FormCreate(Sender: TObject); begin ModifyMenu(MainMenu1.Handle, 2, MF_BYPOSITION or MF_POPUP or MF_HELP, MenuIntem.Handle, PChar(MenuIntem.Caption)); end;

← →
Gu (2010-12-07 08:44) [3]

спасибо

← →
12 © (2010-12-07 12:49) [4]

так еще делаю
procedure TMainForm.FormCreate(Sender: TObject);
var
mii: TMenuItemInfo;
MainMenu: hMenu;
Buffer: array[0..79] of Char;
begin
MainMenu := Menu.Handle;
mii.cbSize := SizeOf(mii);
mii.fMask := MIIM_TYPE;
mii.dwTypeData := Buffer;
mii.cch := SizeOf(Buffer);
GetMenuItemInfo(MainMenu, miAbout.command , false, mii);
mii.fType := mii.fType or MFT_RIGHTJUSTIFY;
SetMenuItemInfo(MainMenu, miAbout.Command, false, mii);

← →
Anatoly Podgoretsky © (2010-12-07 18:31) [5]

> Gu (07.12.10 01:57)

Поубивал бы.

← →
Германн © (2010-12-08 01:54) [6]

> Anatoly Podgoretsky © (07.12.10 18:31) [5]

Слишком сурово.
Пункт меню "Справка" я тоже стремился бы таким образом выделить, если бы у меня сей пункт был бы когда-нибудь.
В левой части располагались бы пункты действия, в правой - пункт "А что это такое". Лично мне было бы так удобнее. Что было бы удобнее пользователю - это сложный вопрос. Пользователь ведь не любит читать справку.
P.S.
Кстати вспомни старый Word со "скрепкой". Она тоже тяготела к правой стороне окна.

← →
Gu (2010-12-08 06:05) [7]

> Gu (08.12.2010 06:05:07) [7]

Не, просто рука сразу тянется к пистолету.

← →
Gu (2010-12-08 09:08) [9]

просто не читайте мои сообщения и спите спокойна, раз вы такой нервный :)

Заглавное меню Найти похожие ветки