Форум: "Основная";
Текущий архив: 2002.09.09;
Скачать: [xml.tar.bz2];

Вниз

Как разместить 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;

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2002.09.09;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.007 c