VPF::Отловить нажатие на кнопку системного меню

NosfBlazE

Дата 11.1.2009, 11:52 (ссылка)

(нет голосов)

Загрузка ...

炎丸 =Ferro ignique!=

Профиль
Группа: Участник
Сообщений: 51
Регистрация: 16.11.2008
Где: Russia

Репутация: нет
Всего: нет

Здравствуйте. smile

Необходимо отлавливать нажатия на кнопки системного меню - Minimize, Maximize, Close, Help, <своя кнопка>. В зависимости от того , какая нажата из этих системных кнопок или, можно еще сказать, какое происходит событие, у меня выполняется соответствующая процедура.

Подскажите, пожалуйста, как это реализовать в Delphi.

P.S. Жаль у формы нет этих стандартных Событий. Или есть? о_0
P.P.S. Через поиск нашел эту тему, но там отлавливается только Close. И то, как-то непонятно. smile

Rrader

Дата 11.1.2009, 16:25 (ссылка)

(голосов:4)

Загрузка ...

Inspired =)

Профиль
Группа: Экс. модератор
Сообщений: 1535
Регистрация: 7.5.2005

Репутация: 18
Всего: 191

Код


unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
    procedure OnWMSysCommand(var Msg: TWMSysCommand); message WM_SYSCOMMAND;
  public
    { Public declarations }
  end;

const
  MyButtonID = 100;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{ TForm1 }

procedure TForm1.OnWMSysCommand(var Msg: TWMSysCommand);
begin
  case Msg.CmdType of
    SC_MINIMIZE: ShowMessage('Minimize');
    SC_MAXIMIZE: ShowMessage('Maximize');
    SC_RESTORE: ShowMessage('Restore');
    SC_CLOSE: ShowMessage('Close');
    SC_CONTEXTHELP: ShowMessage('Context Help');
    MyButtonID: ShowMessage('My Button');
  end;
  inherited;
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  Item: TMenuItemInfo;
begin
  FillChar(Item, SizeOf(TMenuItemInfo), 0);
  with Item do
  begin
    cbSize := SizeOf(TMenuItemInfo);
    fMask := MIIM_TYPE or MIIM_ID;
    fType := MFT_STRING;
    dwTypeData := '&My menu button';
    wID := MyButtonID;
  end;
  { Добавим свою кнопку }
  InsertMenuItem(GetSystemMenu(Handle, False),
    SC_CLOSE, False, Item);
end;

end.

Это сообщение отредактировал(а) Rrader - 11.1.2009, 16:27

--------------------

Let's do this quickly!
Rest in peace, Vit!

NosfBlazE

Дата 11.1.2009, 17:36 (ссылка)

(нет голосов)

Загрузка ...

炎丸 =Ferro ignique!=

Профиль
Группа: Участник
Сообщений: 51
Регистрация: 16.11.2008
Где: Russia

Репутация: нет
Всего: нет

Ух ты, здорово! Спасибо большое. smile

Вопрос снят.

P.S. Эх жалко не могу + поставить((

THandle

Дата 11.1.2009, 18:28 (ссылка)

(нет голосов)

Загрузка ...

Хранитель Клуба
Group Icon

Награды: 1

Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

Репутация: 50
Всего: 372

Цитата(NosfBlazE @ 11.1.2009, 17:36

)

P.S. Эх жалко не могу + поставить((

Поставил

NosfBlazE

Дата 11.1.2009, 19:33 (ссылка)

(нет голосов)

Загрузка ...

炎丸 =Ferro ignique!=

Профиль
Группа: Участник
Сообщений: 51
Регистрация: 16.11.2008
Где: Russia

Репутация: нет
Всего: нет

THandle, спасибо. smile

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »