Советы по 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]



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