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.