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

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

•  TDictionary Custom Sort  6 483

•  Fast Watermark Sources  6 281

•  3D Designer  9 224

•  Sik Screen Capture  6 615

•  Patch Maker  6 994

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

•  ListBox Drag & Drop  5 867

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

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

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

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

•  Canvas Drawing  5 741

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

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

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

•  Paint on Shape  2 803

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

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

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

•  Пазл Numbrix  2 481

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

•  Игра HIP  2 132

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

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

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

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

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

•  HEX View  2 591

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

 
скрыть

Добавляем пункты в системное меню Windows



Автор: MAD Rodrguez

Вы, наверное, задавались вопросом, почему системное меню постоянно одно и тоже ? Пример показывает, как добавить туда такие пункты как "About" или "Information", или что-нибудь ещё.

Совместимость: Delphi 3.x (или выше)

Нам понадобится две вещи, первая это Item ID, который может быть любым целым числом. Второе это Описание(Caption) для нашего пункта меню. Нам понадобится также процедура, которая будет принимать сообщения Window для определения нажатия на наш пункт меню.

unit OhYeah;
interface uses SysUtils,
  WinTypes, WinProcs, Messages, Classes, Graphics, Controls, Forms, Dialogs,
  Menus;
type
  TForm1 = class(TForm)
    procedure FormCreate(Sender:
      TObject);
  private {Private
  declarations} public {Public declarations}
    procedure WinMsg(var Msg:
      TMsg; var Handled: Boolean);
    procedure DoWhatEever;
  end;
var
  Form1: TForm1;
implementation{$R *.DFM}const
  ItemID = 99; // ID номер для пункта меню.  Может быть  любым

procedure Tform1.WinMsg(var Msg: TMsg; var Handled: Boolean);
begin
  if
    Msg.Message = WM_SYSCOMMAND then
    if Msg.WParam = ItemID then
      DoWhatEver;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Application.OnMessage := WinMsg;
  AppendMenu(GetSystemMenu(Form1.Handle, False), MF_SEPARATOR, 0, '');
  AppendMenu(GetSystemMenu(Form1.Handle,
    False), MF_BYPOSITION, ItemID, '&My menu');
  AppendMenu(GetSystemMenu
    (Application.Handle, False), MF_SEPARATOR, 0, '');
  AppendMenu(GetSystemMenu(Application.Handle, False),
    MF_BYPOSITION, ItemID, 'My menu minimized');
end;

procedure TForm1.DoWhatEver;
begin
  Exit; // Вы можете добавить здесь всё, что угодно
end;
end.

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

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