Вниз
Скачать: CL | DM;

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

 
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]


> Anatoly Podgoretsky ©   (07.12.10 18:31) [5]
>
> > Gu   (07.12.10 01:57)  
>
> Поубивал бы.


мозги жмут?


 
Anatoly Podgoretsky ©   (2010-12-08 07:46) [8]

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

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


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

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



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

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.004 c
6-1255266708
zoomod
2009-10-11 17:11
2012.04.15
Как проверить наличие tcp-ip соединения WinSock


15-1323693258
stas
2011-12-12 16:34
2012.04.15
подключение через VPN


1-1291528318
Дмитрий С
2010-12-05 08:51
2012.04.15
ObjComAuto.TObjectDispatch и методы с 3+ вариант-аргументами.


1-1291799940
Alexander_K
2010-12-08 12:19
2012.04.15
Уничтожение RDM


15-1323425884
Компромисс
2011-12-09 14:18
2012.04.15
Free Parent Control Software




   Наверх