Советы по Delphi
         

Пункт меню "Помощь" в правой части окна


Пример помещения корневого пункта меню в правую часть окна:

unit ODMenuU;

interface

uses
SysUtils, Windows, Messages, Classes, Graphics, Controls, Forms,Dialogs, Menus, StdCtrls;

type
TForm1 = class(TForm)MainMenu1: TMainMenu;FileItem1: TMenuItem;ExitItem1: TMenuItem;HelpItem1: TMenuItem;About1: TMenuItem;procedure FormCreate(Sender: TObject);private{ Private declarations }public{ Public declarations }end;
var
Form1: TForm1;
implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
begin
{ Перемещаем корневой пункт меню "Помощь" в правую часть окна }{ Windows 95/NT 4 поддерживают это таким образом ... }{$IFNDEF ALTERNATIVEWAY}ModifyMenu(MainMenu1.Handle, 1, mf_ByPosition or mf_Popup or mf_Help,HelpItem1.Handle, '&Помощь');{$ELSE}{ ... а Win 3.xx таким образом: }HelpItem1.Caption := #8 + HelpItem1.Caption;{$ENDIF}end;

end.

Это все! Просто? :)

Даже несмотря на то, что Microsoft в Windows Styles Guides говорит о недопустимости правого расположения пунктов меню, вы наперекор этому можете это сделать. Вам необходимо проверить файл электронной справки с описанием второго и третьего параметров функций GetMenuItemInfo и SetMenuItemInfo.



procedure TForm1.FormCreate(Sender: TObject);
var
MMI: TMenuItemInfo;MyMenu: hMenu;Buffer: array[0..79] of Char;begin
MyMenu := GetMenu(Handle);// Handle является дескриптором формы, содержащей менюMMI.cbSize := SizeOf(MMI);MMI.fMask := MIIM_TYPE;MMI.dwTypeData := Buffer;MMI.cch := SizeOf(Buffer);GetMenuItemInfo(MyMenu, 1, True, MMI);// (..., 1, True, ...) означает что "Помощь" является вторым пунктом меню.MMI.fType := MMI.fType or MFT_RIGHTJUSTIFY;SetMenuItemInfo(MyMenu, 1, True, MMI);end;

И сразу после опубликования совета пришло мне письмо:

Все хорошо, но мне кажется правильнее так: (Меню постоянно меняется, и помнить о индексе?? Зачем, наименование не изменно, заголовок как правило тоже...)

procedure TForm1.FormCreate(Sender: TObject);
begin

{ Перемещаем корневой пункт меню "Помощь" в правую часть окна }
{ Windows 95/NT 4 поддерживают это таким образом ... }
{$IFNDEF ALTERNATIVEWAY}
ModifyMenu(MainMenu1.Handle, 1, mf_ByPosition or mf_Popup or mf_Help,

>>> ModifyMenu(MainMenu1.Handle, HelpItem1.MenuIndex, mf_ByPosition or
mf_Popup or mf_Help, (мнение автора)

HelpItem1.Handle, '&Помощь');
{$ELSE}
{ ... а Win 3.xx таким образом: }
HelpItem1.Caption := #8 + HelpItem1.Caption;
{$ENDIF}
end;

С уважением, Вадим В. Приставко, pristavko@writeme.com Кольская АЭС [000178]



Содержание раздела