Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Почтовая рассылка

Подписчиков: -1
Последний выпуск: 19.06.2015

Как добавить свои пункты к системному меню

293
24 февраля 2004 года
SEDEGOFF
586 / / 06.10.2002
Как добавить свои пункты к системному меню. Вот к тому которое по правой кнопки мыши вылазиет
5.4K
24 февраля 2004 года
SergKO
29 / / 24.02.2004
Цитата:
Originally posted by SEDEGOFF
Как добавить свои пункты к системному меню. Вот к тому которое по правой кнопки мыши вылазиет



Если я правильно понял вопрос о системном меню, то:

 
Код:
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"); //вставить
293
25 февраля 2004 года
SEDEGOFF
586 / / 06.10.2002
Да - почти, но всеравно спасибо. Но вот еще 2 вопроса
1. Как привизать обработчик
2. Как добавить пункт к контекстному меню (которая появляется при правом клике на Memo)
5.4K
25 февраля 2004 года
SergKO
29 / / 24.02.2004
Цитата:
Originally posted by SEDEGOFF
Да - почти, но всеравно спасибо. Но вот еще 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)

в Unit1.cpp
 
Код:
void __fastcall TForm1::OnMyMenu(TMessage& Msg)
{
if (Msg.WParam == (посмотрите help на WM_SYSCOMMAND ))
    {
    //обработка
    }
DefWindowProc(Handle, Msg.Msg, Msg.WParam, Msg.LParam);
}

по п.2, скорее всего, что-то типа:

AppendMenu(GetSystemMenu(Handle, False), MF_POPUP, Handle итема вашего меню,
PChar(Caption итема вашего меню));
293
25 февраля 2004 года
SEDEGOFF
586 / / 06.10.2002
По пункту 1: Спасибо
По 2: не работает
5.4K
27 февраля 2004 года
SergKO
29 / / 24.02.2004
Цитата:
Originally posted by SEDEGOFF
По пункту 1: Спасибо
По 2: не работает



Посмотрите здесь http://borland.xportal.ru/forum/viewtopic.php?t=8973
там есть ссылки, м.б. помогут.

Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог