// Es werden MenuItem eines MainMenu nach rechts geschoben.
// Ist AbItem > 0 dann wird das MainMenu getrennt, ein Teil
// bleibt links, der andere wird rechtsbündig ausgerichtet.

// Getestet mit D4 unter Win98

procedure SchiebeNachRechts(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;

procedure TForm1.FormCreate(Sender: TObject);
begin
schiebenachrechts(0,form1);
end;