Как разместить Item справа на MainMenu?

← →
Korona (2002-08-27 21:13) [0]

Мастера, подскажите, пожалуйста. Как разместить динамически создаваемый Item справа на MainMenu?

← →
McSimm (2002-08-28 11:50) [1]

Приблизительно так:

procedure TForm1.SetRightMenuItem(MenuItem: TMenuItem);
var
Menu: TMenu;
MInfo: TMenuItemInfo;
Buffer: array[0..79] of Char;
begin
Menu := MenuItem.GetParentMenu;
MInfo.cbSize := 44;
MInfo.fMask := MIIM_TYPE;
MInfo.dwTypeData := Buffer;
MInfo.cch := SizeOf(Buffer);
if GetMenuItemInfo(Menu.Handle, Menu.Items.IndexOf(MenuItem), True, MInfo) then
begin
MInfo.fMask := MIIM_TYPE;
MInfo.fType := (MInfo.fType or MFT_RIGHTJUSTIFY);
MInfo.dwTypeData := Buffer;
MInfo.cch := SizeOf(Buffer);
if not SetMenuItemInfo(Menu.Handle, Menu.Items.IndexOf(MenuItem), True, MInfo) then
ShowMessage(SysErrorMessage(GetLastError));
end else
ShowMessage(SysErrorMessage(GetLastError));
DrawMenuBar(Handle)
end;

Как разместить Item справа на MainMenu? Найти похожие ветки