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

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

•  TDictionary Custom Sort  6 647

•  Fast Watermark Sources  6 428

•  3D Designer  9 365

•  Sik Screen Capture  6 753

•  Patch Maker  7 144

•  Айболит (remote control)  7 155

•  ListBox Drag & Drop  6 011

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

•  Графические эффекты  7 339

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

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

•  Canvas Drawing  5 875

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

•  Поворот изображения  5 105

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

•  Paint on Shape  2 907

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

•  Головоломка Paletto  3 056

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

•  Пазл Numbrix  2 547

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

•  Игра HIP  2 230

•  Игра Go (Го)  2 164

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

•  Программа укладки плитки  2 179

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

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

•  HEX View  2 665

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

 
скрыть

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



Автор: 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

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