VPF::Контекстное меню приложения на панели задач

avm2

Дата 16.7.2009, 09:46 (ссылка)

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

Загрузка ...

Новичок

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

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

Подскажите, пожалуйста, почему в MDI-приложении в контекстное меню у кнопки приложения на панели задач нет пунктов "Переместить", "Размер", "Развернуть", а в контекстном меню главной формы (если щёлкнуть по иконке) они есть?

dvamaster

Дата 21.7.2009, 06:15 (ссылка)

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

Загрузка ...

Опытный

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

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

так как используется DefMDIChildProc перенаправляется все подобные мессаги в MDI фрейм, фрейм отправляет эти сообщения в парент, а парент есть главное окно

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

Хорошую информацию трудно добыть. Сделать с ней что-нибудь - еще труднее. /L. Skywalker/

Что же я сделал не так? /Король Лир/

Я делаю это для твоего же блага! /Любой родитель и палач/

PKUNZIP.ZIP /неизвестный/

v258

Дата 18.2.2015, 10:08 (ссылка)

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

Загрузка ...

Шустрый

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

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

подниму, пожалуй, тему

Как можно отловить нажатие пунктов Свернуть и Закрыть контекстного меню кнопки приложения на панели задач? Или как заменить это меню системным контекстным меню приложения (это которое по значку в левой части заголовка формы)?

Poseidon

Дата 18.2.2015, 11:59 (ссылка)

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

Загрузка ...

Delphi developer

Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

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

Цитата(v258 @ 18.2.2015, 10:08

)

Как можно отловить нажатие пунктов Свернуть и Закрыть контекстного меню кнопки приложения на панели задач?

Код


unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs;

type
  TForm1 = class(TForm)
  private
    procedure WMSysCommand(var Msg: TWMSysCommand); message WM_SYSCOMMAND;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.WMSysCommand(var Msg: TWMSysCommand);
begin
  case Msg.CmdType of
    SC_MINIMIZE:
      ShowMessage('Свернуть');
    SC_CLOSE:
      ShowMessage('Закрыть');
  end;

  inherited;
end;

end.

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

Если хочешь, что бы что-то работало - используй написанное,
если хочешь что-то понять - пиши сам...

v258

Дата 18.2.2015, 12:17 (ссылка)

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

Загрузка ...

Шустрый

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

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

Poseidon, это работает с системным меню, с кнопками закрыть/свернуть в заголовке формы, но именно нажатие пунктов меню кнопки на панели задач не отлавливается. Код практически такой же

Код


procedure TM_Form.WMSysCommand(var Msg: TWMSysCommand);
begin
  case Msg.CmdType of
    SC_MINIMIZE: HideRestoreForm(False);
    SC_CLOSE: ExitButClick(Self);
    else
      inherited;
    end;
end;

Это сообщение отредактировал(а) v258 - 18.2.2015, 12:18

Poseidon

Дата 18.2.2015, 14:48 (ссылка)

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

Загрузка ...

Delphi developer

Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

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

Все там отлавливается. Проверь мой код на тестовом проекте. Конкретно в твоем случае подозреваю, что что-то не так работает в HideRestoreForm и ExitButClick.

Это сообщение отредактировал(а) Poseidon - 18.2.2015, 14:51

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

Если хочешь, что бы что-то работало - используй написанное,
если хочешь что-то понять - пиши сам...

v258

Дата 18.2.2015, 16:13 (ссылка)

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

Загрузка ...

Шустрый

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

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

Цитата(Poseidon @ 18.2.2015, 14:48

)

Конкретно в твоем случае подозреваю, что что-то не так работает в HideRestoreForm и ExitButClick.

нет, не работает, ни мой, ни твой коды, даже брекпойнт не отрабатывает.

если использовать системное меню, то все работает, а если меню кнопки в панели задач - нифига, пролетает мимо smile

Добавлено через 3 минуты и 36 секунд
на тестовом приложении тоже не работает, видимо, другие сообщения отлавливать нужно

Poseidon

Дата 18.2.2015, 16:21 (ссылка)

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

Загрузка ...

Delphi developer

Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

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

Windows7 ?

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

Если хочешь, что бы что-то работало - используй написанное,
если хочешь что-то понять - пиши сам...

v258

Дата 18.2.2015, 16:45 (ссылка)

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

Загрузка ...

Шустрый

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

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

нет, ХР

v258

Дата 21.2.2015, 08:39 (ссылка)

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

Загрузка ...

Шустрый

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

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

в семерке, кстати, по shift +ПКМ на кнопке в панели задач то же самое - никакой реакции

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