Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как разместить Item справа на MainMenu? [D6, Win95/98, WinXP]

Korona © (2002-08-27 21:13:00)
Мастера, подскажите, пожалуйста. Как разместить динамически создаваемый Item справа на MainMenu?

McSimm (2002-08-28 11:50:00) [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;

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »