Статьи
|
В большинстве приложений все пункты меню верхнего уровня выровнены по левой стороне меню. Но наверное, Вы видели приложения, в который пункты меню были выровнены по правой стороне. В большинстве случаев это был пункт меню "Help".
Есть способ выровнять пункт меню "Help" с правой стороны в строке меню:
- Добавьте компонент TMainMenu на форму (Form1)
- Добавьте несколько пунктов меню верхнего уровня с подпунктами
- Переименуйте пункт справки на HelpMenuItem
- Запишите код ниже в событие формы OnCreate
- Запустите проект. Обратите внимание, что элемент "Help" теперь находится с правой стороны меню.
procedure TForm1.FormCreate(Sender: TObject) ;
var
mii: TMenuItemInfo;
MainMenu: hMenu;
Buffer: array[0..79] of Char;
begin
MainMenu := Self.Menu.Handle;
//GET Help Menu Item Info
mii.cbSize := SizeOf(mii) ;
mii.fMask := MIIM_TYPE;
mii.dwTypeData := Buffer;
mii.cch := SizeOf(Buffer) ;
GetMenuItemInfo(MainMenu, HelpMenuItem.Command, false, mii) ;
//SET Help Menu Item Info
mii.fType := mii.fType or MFT_RIGHTJUSTIFY;
SetMenuItemInfo(MainMenu, HelpMenuItem.Command, false, mii) ;
end;
|
Комментарии
Спасибо.
RSS лента комментариев этой записи