Архив исходников программ, модулей и компонентов на Delphi


Начальная страница

Поиск по базе



Операционная система
Настройка приложения
Взаимодействия приложений
Файлы и директории
Строки и символы
Математика
Базы данных
Интернет и сеть
Мультимедиа
Аппаратная часть
VCL
Другие разделы [0]
 

Количество записей в базе - 537
Сегодня добавлено – 0

Управление приложением



Вернуться к списку функций
 Системное меню приложения

 Прислал: Davyd (Самара) ( 4 апреля 2003 г. )
©  Собственное написание (Давид)
 Описание:
Если в HNDL указать Application.Handle, то меню добавиться к меню при клике правой кнопокой мыши на панели задач.
Если Form1.Handle (или любая ваша форма и даже не ваша), то к системному меню окна клик на иконке окна (слева сверху в углу).

 Зависимости:
SysUtils, Menus

 Исходный текст:
{ **** UBPFD *********** by http://kladovka.net.ru/delphibase/ ****
>> Системное меню приложения

Если в HNDL указать Application.Handle, то меню добавиться к меню при клике правой кнопокой мыши на панели задач.
Если Form1.Handle (или любая ваша форма и даже не ваша), то к системному меню окна клик на иконке окна (слева сверху в углу).

Зависимости: SysUtils, Menus
Автор:       Davyd, davyd@pisem.net, ICQ:163118406, Самара
Copyright:   Собственное написание (Давид)
Дата:        4 апреля 2003 г.
***************************************************************** }

procedure ExtendSysMenu(HNDL: THandle; AddMenu: TMainMenu);
  var i:integer;
  begin
    If (AddMenu=nil) or (HNDL=0) then Exit; //Проверяем ссылку на объект

    AppendMenu(GetSystemMenu(HNDL,False),
             MF_SEPARATOR,0,''); //Добавляем разделитель

    with AddMenu do
      for i:=0 to Items.Count-1 do
        AppendMenu(GetSystemMenu(HNDL,False),
                   MF_POPUP,Items[i].Handle,
                   PChar(Items[i].Caption));
  end;

 Пример использования:
//На форму кидаем MainMenu (компоненту)
procedure TForm1.FormCreate(Sender: TObject);
begin
 ExtendSysMenu(Application.Handle, MainMenu1);
 ExtendSysMenu(Form1.Handle, MainMenu1);
end;


Вернуться к списку функций

Наверх ▲