Текущий архив: 2002.09.09;
Скачать: CL | DM;
Вниз
Как разместить 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;
Скачать: CL | DM;
Память: 0.46 MB
Время: 0.018 c
