Im Menü auf der rechten Seite des Fensters

Im Menü auf der rechten Seite des Fensters

Im Menü auf der rechten Seite des Fensters : Mehreren tausend Tipps, um Ihr Leben einfacher machen.

Ist das Menü auf der rechten Seite des Fensters?
var
MENUITEMINFO: TMENUITEMINFO;
Puffer: Array [0..79] char; in der menu.pas deklariert. Ich frage mich, warum 79.
beginnen
FillChar (MENUITEMINFO, SizeOf(MENUITEMINFO), 0);
// !! Verwenden Sie keine SizeOf(MENUITEMINFO), da sie für Windows 95 benötigt hat
// !! Vgl. Menu.pas
MENUITEMINFO.cbSize: = 44;
MENUITEMINFO.fMask: = MIIM_TYPE;
MENUITEMINFO.dwTypeData: = Buffer;
MENUITEMINFO.cch: = SizeOf(Buffer);
Info erhalten
Wenn GetMenuItemInfo (MainMenu1.Handle, 1, TRUE, MENUITEMINFO) dann
beginnen
MENUITEMINFO.fType: = MENUITEMINFO.fType oder MFT_RIGHTJUSTIFY;
Wenn SetMenuItemInfo (MainMenu1.Handle, 1, TRUE, MENUITEMINFO) dann
DrawMenuBar(Handle); nicht erforderlich, wenn im OnCreate-Ereignis getan
Ende;