HMENU SysMenu = GetSystemMenu(Handle,false);
DeleteMenu(SysMenu, SC_MAXIMIZE,MF_BYCOMMAND); //удалить
InsertMenu(SysMenu,100,MF_BYPOSITION|MF_SEPARATOR,0,NULL);
InsertMenu(SysMenu,100,MF_BYPOSITION,1,"Пункт &1"); //вставить
Как добавить свои пункты к системному меню
Как добавить свои пункты к системному меню. Вот к тому которое по правой кнопки мыши вылазиет
Цитата:
Originally posted by SEDEGOFF
Как добавить свои пункты к системному меню. Вот к тому которое по правой кнопки мыши вылазиет
Как добавить свои пункты к системному меню. Вот к тому которое по правой кнопки мыши вылазиет
Если я правильно понял вопрос о системном меню, то:
Код:
1. Как привизать обработчик
2. Как добавить пункт к контекстному меню (которая появляется при правом клике на Memo)
Цитата:
Originally posted by SEDEGOFF
Да - почти, но всеравно спасибо. Но вот еще 2 вопроса
1. Как привизать обработчик
2. Как добавить пункт к контекстному меню (которая появляется при правом клике на Memo)
Да - почти, но всеравно спасибо. Но вот еще 2 вопроса
1. Как привизать обработчик
2. Как добавить пункт к контекстному меню (которая появляется при правом клике на Memo)
1. Попробуйте обработать сообщение WM_SYSCOMMAND:
в Unit1.h
Код:
private:
void __fastcall OnMyMenu(TMessage & Msg);
protected:
BEGIN_MESSAGE_MAP
VCL_MESSAGE_HANDLER(WM_SYSCOMMAND, TMessage, OnMyMenu)
END_MESSAGE_MAP (TForm)
void __fastcall OnMyMenu(TMessage & Msg);
protected:
BEGIN_MESSAGE_MAP
VCL_MESSAGE_HANDLER(WM_SYSCOMMAND, TMessage, OnMyMenu)
END_MESSAGE_MAP (TForm)
в Unit1.cpp
Код:
void __fastcall TForm1::OnMyMenu(TMessage& Msg)
{
if (Msg.WParam == (посмотрите help на WM_SYSCOMMAND ))
{
//обработка
}
DefWindowProc(Handle, Msg.Msg, Msg.WParam, Msg.LParam);
}
{
if (Msg.WParam == (посмотрите help на WM_SYSCOMMAND ))
{
//обработка
}
DefWindowProc(Handle, Msg.Msg, Msg.WParam, Msg.LParam);
}
по п.2, скорее всего, что-то типа:
AppendMenu(GetSystemMenu(Handle, False), MF_POPUP, Handle итема вашего меню,
PChar(Caption итема вашего меню));
По 2: не работает
Цитата:
Originally posted by SEDEGOFF
По пункту 1: Спасибо
По 2: не работает
По пункту 1: Спасибо
По 2: не работает
Посмотрите здесь http://borland.xportal.ru/forum/viewtopic.php?t=8973
там есть ссылки, м.б. помогут.