MainMenue Eintrag am Rechten Rand ausrichten

[pertzschc]

Mit einem normalen Menu kann man es folgendermaßen machen:

Delphi-Quellcode:

...im FormCreate...
// mache info-menu rechtsbündig
AlignMenuRight(GetMenuItemCount(MainMenu1.Handle)-1, self);


procedure AlignMenuRight(AbItem: Integer; Form: TForm);
var
 m : TMenuItemInfo;
 h : hMenu;
 s : shortstring;
begin
 h:=GetMenu(Form.Handle);
 m.cbSize:=SizeOf(m);
 m.cch:=SizeOf(s);
 m.dwTypeData:=pchar(@s[1]);
 m.fMask:=MIIM_TYPE;
 GetMenuItemInfo(h,AbItem,true,m);
 m.ftype:=m.ftype or MFT_RIGHTJUSTIFY;
 SetMenuItemInfo(h,AbItem,true,m);
end; {copyright by Mario Mueller}

Vielleicht funktioniert SetMenuItemInfo ja auch mit Deinem Menu.