Недавно добавленные исходники

•  DeLiKaTeS Tetris (Тетрис)  4 159

•  TDictionary Custom Sort  6 224

•  Fast Watermark Sources  6 020

•  3D Designer  8 918

•  Sik Screen Capture  6 355

•  Patch Maker  6 773

•  Айболит (remote control)  6 755

•  ListBox Drag & Drop  5 630

•  Доска для игры Реверси  96 209

•  Графические эффекты  6 978

•  Рисование по маске  6 248

•  Перетаскивание изображений  5 148

•  Canvas Drawing  5 517

•  Рисование Луны  5 218

•  Поворот изображения  4 766

•  Рисование стержней  3 370

•  Paint on Shape  2 623

•  Генератор кроссвордов  3 513

•  Головоломка Paletto  2 804

•  Теорема Монжа об окружностях  3 615

•  Пазл Numbrix  2 366

•  Заборы и коммивояжеры  3 046

•  Игра HIP  2 002

•  Игра Go (Го)  1 927

•  Симулятор лифта  2 285

•  Программа укладки плитки  1 988

•  Генератор лабиринта  2 442

•  Проверка числового ввода  2 125

•  HEX View  2 460

•  Физический маятник  2 079

 
скрыть

  Форум  

Delphi FAQ - Часто задаваемые вопросы

| Базы данных | Графика и Игры | Интернет и Сети | Компоненты и Классы | Мультимедиа |
| ОС и Железо | Программа и Интерфейс | Рабочий стол | Синтаксис | Технологии | Файловая система |



Delphi Sources

Системное меню приложения



Автор: Davyd

{ **** UBPFD *********** by delphibase.endimus.com ****
>> Системное меню приложения

Если в 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;







Copyright © 2004-2025 "Delphi Sources" by BrokenByte Software. Delphi World FAQ

Группа ВКонтакте